Sayılarda hane sayısı belirleme.

[cekoist]

Arkadaşlar merhaba,

İşle alakalı olarak veri aktarımında sayılarla ilgili bir sorum olacak.

Veri aktarımında kodlarımız metin biçiminde ve 0001234 gibi yedi haneli olması gerekmekte. ancak başka bir programdan gelen verilerde başta ki sıfırlar mevcut değil ve 1234 olarak gelmekte. iki program arasında excel okutarak veri aktarımı yapabilmem için kodların yedi haneli olması gerekmekte.

Soru ise; 1234 sayısını 7 haneli olacak şekilde başına sıfır getirip 0001234 şeklinde metine çevirmek. Ve bunu binlerce hücreye uygulamam gerektiği için en pratik nasıl yapabilirim?

Teşekkürler

 

[Merhum İdris SERDAR]

.

İlgili alanı seçin ve hücre biçimlendirmeyi Custom'dan 0000000 (7 sıfır) yapın.

Text - Metin yapmak için ilgili alanı seçerek aşağıdaki kodlu makroyu çalıştırın.

Sub sfekle()
 For Each hcr In Selection
  If Not hcr.HasFormula And hcr <> "" Then
   hcr.Value = Chr(39) & String(7 - Len(hcr), "0") & hcr.Value
  End If
 Next hcr
End Sub

.