hücre içini saymak

[xlomba]

hücre biçimlemeden yazılan rakamı (örn:123) başına sıfırla koyarak 11 e 00000000123 gibi yazdırdım. fakat bunu formülde kullancağım zaman (özellikle düşeyara) 123 şeklinde görüyor.bunu hücre dışına 00000000123 şeklinde nasıl çıkarıp kopyalayabilirim.
Birde daha önce yapmıştım ama nasıl yaptığımı hatırlayamadım.Hücre içindeki harf yada rakamları saydırmak istiyorum.nasıl yapacağım?

 

[Korhan Ayhan]

Merhaba,

METNEÇEVİR' ebilirsiniz.

=METNEÇEVİR(A1;"00000000000")

 

[xlomba]

metneçevir işime yarayacak, sağolasın.diğer konuda yardımcı olacak kimse yokmu (hücreiçini saydırmak)

 

[Korhan Ayhan]

Merhaba,

Hücre içindeki verilerinizden örnekler verirmisiniz.

 

[Murat OSMA]

Gelecek olan örneğe göre güncellemek gerekebilir ama, isterseniz şu kodları bir deneyiniz;


■ Hücredeki rakamların sayısını bulmak için;

Sub Rakam_Say()
    Dim Reg As Object
    Dim i As Integer
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.Global = True
    Reg.Pattern = "\d"
    For i = 2 To Range("A65536").End(3).Row
    Set say = Reg.Execute(Cells(i, 1))
        If say.Count > 0 Then
            Cells(i, 2) = Reg.Execute(Cells(i, 1)).Count
        End If
    Next i
    i = Empty: Set Reg = Nothing
End Sub

■ Hücredeki harflerin sayısını bulmak için;

Sub Harf_Say()
    Dim Reg As Object
    Dim i As Integer
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.Global = True
    Reg.Pattern = "[^\0-9,]"
    For i = 2 To Range("A65536").End(3).Row
    Set say = Reg.Execute(Cells(i, 1))
        If say.Count > 0 Then
            Cells(i, 3) = Reg.Execute(Cells(i, 1)).Count
        End If
    Next i
    i = Empty: Set Reg = Nothing
End Sub