Herhangi bir sayının basamak sayısını bulma

[oguzka]

Merhabalar;

a değişkenine atadığım herhangi bir sayının basamak sayısını, b değişkenine atamak istiyorum. Daha sonrada c değişkenine b-1 tane 0(sıfır) atamak istiyorum. Kodlarla nasıl yapabilirim?

Örneğin: a= 1200 ise b=4 ve c=000
a= 355 ise b=3 ve c=00

 

[Necdet]

Merhaba,

C1 sütununu text olarak biçimlendirip, aşağıdaki kodları sayfanın kod bölümüne kopyalayıp inceleyiniz.

Fikir vermesi açısından değişken değil hücre kullandım.

A1 e girilen değere göre B1 ve C1 hesaplanır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
[B1] = Len([A1])
[C1] = Application.WorksheetFunction.Rept("0", [B1] - 1)
End Sub

 

[oguzka]

Yardımlarınız için teşekkür ederim Necdet Bey.