Hücre İçindeki harf ve rakamların sayısını bulma

[Sarigol_937]

Merhaba arkadaşlar şöyle bir şeye ihtiyacım var. Diyelim A1 hücresi içerisinde Ahmet2755 diye bir metin var bu metin içerisindeki harf ve rakam sayılarını B1'hücresine harf sayısını, C1' hücresine de rakam sayısını yazacak bir formüle ihtiyacım var . Formülü tabloma uygulayacağım.yardımcı olan arkadaşlara şimdiden tşkler.


A1 Hücresi B1 Hücresi C1 Hücresi
Ahmet2755 Harf Sayısı? Rakam Sayısı?
....
...
.

 

[Erdem Akdemir]

Merhaba,

Harf sayısı için,

=TOPLA.ÇARPIM(--(DEĞİL(ESAYIYSA(--PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1)))))

Rakam sayısı için,

=TOPLA.ÇARPIM(--(ESAYIYSA(--PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1))))

 

[temat1100]

Sub deneme()

Dim uzunluk As Integer
Dim harfler As Integer
Dim sayilar As Integer

harfler = 0
sayilar = 0


uzunluk = Len(ActiveCell.Text) ' uzunluğunu bulmak istediğimiz hücre

For i = 1 To uzunluk

If IsNumeric(Mid(ActiveCell.Text, i, 1)) = 0 Then
harfler = harfler + 1
Else
sayilar = sayilar + 1
End If

Next i

MsgBox "Harf Sayısı => " & harfler & vbLf & "Rakam Sayısı => " & sayilar




End Sub

 

[Sarigol_937]

Teşekkürler arkadaşlar yardımlarınız için. Formül işime yaradı.