D sütununu sayıya dönüştürme makrosu

[babolii]

D sütunundaki tüm değerleri sayıya dönüştürecek makro istiyorum. Ama şöyle problem var:
Başında 0 olan rakamları siliyor. Ben hem silinmesin hem sayı olarak algılansın istiyorum.

Yani: 0111111111 ise

bunu sayıya dönüştürecek ama başındaki sıfırı da koruyacak.

 

[Korhan Ayhan]

Merhaba,

Standart yöntemle verileriniz sayıya dönüşür fakat soldaki sıfırlar maalesef silinir..

Aşağıdaki makro ile seçtiğiniz alanı sayıya çevirebilirsiniz ve sadece görsel olarak soldaki sıfırları gösterebilirsiniz. İşinize yararsa kullanabilirsiniz.

Option Explicit

Sub Rng_Convert_To_Number()
    Dim Rng As Range, X As Byte
    
    For Each Rng In Selection
        If Not IsEmpty(Rng) Then
            X = Len(Rng.Text) - Len(--Rng.Text)
            Rng.Value = CLng(Rng.Value)
            Rng.NumberFormat = WorksheetFunction.Rept("0", X + Len(--Rng.Text))
        End If
    Next
    
    MsgBox "Veriler sayıya çevrilmiştir.", vbInformation
End Sub

 

[babolii]

Merhaba,

Standart yöntemle verileriniz sayıya dönüşür fakat soldaki sıfırlar maalesef silinir..

Aşağıdaki makro ile seçtiğiniz alanı sayıya çevirebilirsiniz ve sadece görsel olarak soldaki sıfırları gösterebilirsiniz. İşinize yararsa kullanabilirsiniz.

Option Explicit

Sub Rng_Convert_To_Number()
    Dim Rng As Range, X As Byte
   
    For Each Rng In Selection
        If Not IsEmpty(Rng) Then
            X = Len(Rng.Text) - Len(--Rng.Text)
            Rng.Value = CLng(Rng.Value)
            Rng.NumberFormat = WorksheetFunction.Rept("0", X + Len(--Rng.Text))
        End If
    Next
   
    MsgBox "Veriler sayıya çevrilmiştir.", vbInformation
End Sub

çok teşekkürler.