Harf Sayısını Bulmak

[baydeniro]

Arkadaşlar Merhaba. Bir hücre/aralık içindeki yazılarda bulunan harflerden (space-sembol-rakam v.s.) aranan harfin kaç tane olduğu nasıl bulunur ? Ekteki dosyada örnekler mevcuttur. Yardımcı olanlara şimdiden teşekkürler.

 

[veyselemre]

d2 ye kopyalayın aşağı doğru çoğaltın.

=UZUNLUK(B2)-UZUNLUK(YERİNEKOY(BÜYÜKHARF(B2);BÜYÜKHARF(C2);""))

 

[Merhum İdris SERDAR]

Arkadaşlar Merhaba. Bir hücre/aralık içindeki yazılarda bulunan harflerden (space-sembol-rakam v.s.) aranan harfin kaç tane olduğu nasıl bulunur ? Ekteki dosyada örnekler mevcuttur. Yardımcı olanlara şimdiden teşekkürler.

Örnek dosya ekte.

..

 

[baydeniro]

Teşekkürler

Arkadaşlar yardımlarınız için çok teşekkürler. İngilizcesini de ben ekleyeyim :

=LEN(B9)-LEN(SUBSTITUTE(UPPER(B9),UPPER(C9),""))

 

[Merhum İdris SERDAR]

Sayın veyselemre'nin yanıtını sonra gördüm. Benimki uzun olmuş.

En kısa yol bu.

=UZUNLUK(B2)-UZUNLUK(YERİNEKOY(BÜYÜKHARF(B2);BÜYÜKHARF(C2);""))

Ayrıca formül;

=UZUNLUK(B2)-UZUNLUK(YERİNEKOY(KÜÇÜKHARF(B2);KÜÇÜKHARF(C2);""))

şeklinde de kurulabilir.

.

 

[hamitcan]

Bu da kullanıcı tanımlı fonksiyon.

Büyükharf-Küçükharf duyarlı

Function say(ne, aralik As Range)
    For Each hucre In aralik
        For i = 1 To Len(hucre)
            If ne = Mid(hucre, i, 1) Then t = t + 1
        Next
    Next
    say = t
End Function

Büyükharf-Küçükharf duyarsız

Function sayB(ne, aralik As Range)
    For Each hucre In aralik
        For i = 1 To Len(hucre)
            If StrConv(ne, vbUpperCase) = StrConv(Mid(hucre, i, 1), vbUpperCase) Then t = t + 1
        Next
    Next
    sayB = t
End Function

 

[baydeniro]

Sayın hamitcan fonksiyon da güzel bir fikir. Ben uygulayamadım. Acaba bir dosya içinde uygulmasını ekleyebilir misiniz !!!

 

[hamitcan]

1-Bir modul içine yukarıdaki kodları ekleyin.
2-Bir excel hücresi içine =say(karaketerin bulunduğu hücre;tek bir hücre yada bir aralık) Örn: =say(c2;b2) yada =say(c2;b2:b5) yada =sayB(c2;b2) yada =sayB(c2;b2:b5) ekleyin.
Not:Yine uygulayamadım derseniz, dosya ekleyebilirim.

 

[baydeniro]

Çok Teşekkürler.

Sayın hamitcan çok teşekkürler. Size de zahmet verdirdim. Tamam şimdi oldu. Emeğinize sağlık. Çok işime yarayacak. Sağlıcakla kalın.