Kaç dijit varsa onu gösterebilir miyim?

[buurakengin]

Sayın excelweb ailesi merhaba,

10000 tane verim tek bir sütunda, hepsinin dijit sayısı farklı.
Hangi sayı kaç dijitliyse onu göstermesini istiyorum.

Yardımcı olur musunuz?

 

[Korhan Ayhan]

Merhaba,

En basit haliyle sütunu seçerek biçimini GENEL yaparak deneyebilirmisiniz.

 

[omerybalarisi]

Sayın excelweb ailesi merhaba,

10000 tane verim tek bir sütunda, hepsinin dijit sayısı farklı.
Hangi sayı kaç dijitliyse onu göstermesini istiyorum.

Yardımcı olur musunuz?

Eğer doğru anladıysam =len(hücre) formulüyle bu işlemi yapabilir daha sonra da bu hücreyi aşağı doğru komple çalıştırabilirsiniz.

 

[omerybalarisi]

Eğer doğru anladıysam =len(hücre) formulüyle bu işlemi yapabilir daha sonra da bu hücreyi aşağı doğru komple çalıştırabilirsiniz.

Türkçe kullanıyorsanız =uzunluk olması lazım sanırsam LEN yerine.

 

[buurakengin]

İlginize teşekkür ederim ama malesef ikiside olmadı,

Örnek olarak tablo yaratayım.

0,001245670000

0,213652488600

0,000065476320

Yukarıda hepsinin dijit sayısı hücre biçimlendirmede 12 olduğundan dolayı eşit görünmektedir. Ama ben biçimlendirmeden sonra eklenen 0 ları istemiyorum. Çıktı olarak aşağıya bırakıyorum.

0,00124567 0,2136524886

0,00006547632

 

[Korhan Ayhan]

Örnek dosya paylaşabilirmisiniz.

Ayrıca rica etsem profilinizde yazan ofis sürümü ve dili bilgisini revize edebilirmisiniz.

Excel Vers. ve Dili VBA

 

[akmlyx]

Hocam, dijit ne demek?

 

[buurakengin]

Hocam, dijit ne demek?

virgülden sonra gelen her bir rakam dijit sayısıdır.

 

[buurakengin]

Örnek dosya paylaşabilirmisiniz.

Ayrıca rica etsem profilinizde yazan ofis sürümü ve dili bilgisini revize edebilirmisiniz.

Excel Vers. ve Dili VBA

Hocam güncelledim fakat dosya malesef paylaşamıyorum, aslında dosya tam olarak yukarıda oluşturduğum tablo gbi.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

A sütunu için ayarlanmıştır. Kendi dosyanıza göre uyarlarsınız.

Option Explicit

Sub Show_Digit()
    Dim Rng As Range, No As Variant
    
    Application.ScreenUpdating = False
    
    For Each Rng In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
        No = Split(Rng.Value2, ",")
        Rng.NumberFormat = "0." & WorksheetFunction.Rept("0", Len(No(1)))
    Next

    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[buurakengin]

Elinize sağlık teşekkür ederim, çalıştı