Soru cümle içinde yazılmış "harf grubu"nun kaç kez yazılmış olduğunu bulmak..

H

hsyn17

Katılım
15 Temmuz 2013
Mesajlar
90
Excel Vers. ve Dili
2016 TR
a1:k10 hücre grubunda yazılı cümlelerde, istenilen karakterin kaç kez yazıldığını bulmak istiyoruz..
Örnek; a1:k10 hücrelerinde bunlar yazılı olsun;
kil,Pus,mus,dai,fah,rus,kil,dra,kil,fah..........
mus,kil,fah,ira,kil,kil,mus..................................
her hangi bir hücre "kil" in kaç kez yazıldığını bulmak istiyoruz... İlginize ve çabanıza çok teşekkür ederim
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,742
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++: 
=EĞERSAY(A1:K10;"kil")
 
H

hsyn17

Katılım
15 Temmuz 2013
Mesajlar
90
Excel Vers. ve Dili
2016 TR
Korhan Ayhan' Alıntı:
Deneyiniz.

C++: 
=EĞERSAY(A1:K10;"kil")
Genişletmek için tıkla ...
İlginize Teşekkür ederim Sn hocam.., ama bu ilgili koşula uyan hücrelerdeki "kil"i sayıyor, bizim istediğimiz birleştirilmiş hücrelerde yazan ve bir cümle içindeki koşulumuza uyan (örnek;"kil" gibi) kelime grubunun kaç kez yazıldığını bulmak... Tekrar ilginize teşekkür ediyorum
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,742
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosya paylaşarak yapmak istediğiniz işlemi açıklayınız.
 
E

excelokyanus500

Katılım
20 Şubat 2012
Mesajlar
242
Excel Vers. ve Dili
office2007 Türkçe
deneyiniz

Kod: 
Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String) As Long
'Kil ve kil ve kIl,KiL---------- KELIMESAY(A1;"kil")

Dim Say As Long
Dim F As Long
Dim BULUNAN As Long
    KucukHarf = LCase(Replace(Replace(ARANANKELIME, "İ", "i"), "I", "ı"))
    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(KucukHarf)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, LCase(CUMLENIZ), KucukHarf, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(KucukHarf)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function

Veya

Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String, _
                                Optional DUYARLILIK As VbCompareMethod) As Long
 'Harf büyük küçük DUYARLILIK  1 veya 0
‘KELIMESAY(A1;"kil";1)
Dim Say As Long
Dim F As Long
Dim BULUNAN As Long

    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(ARANANKELIME)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, CUMLENIZ, ARANANKELIME, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(ARANANKELIME)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function
 
H

hsyn17

Katılım
15 Temmuz 2013
Mesajlar
90
Excel Vers. ve Dili
2016 TR
excelokyanus500' Alıntı:
deneyiniz

Kod: 
Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String) As Long
'Kil ve kil ve kIl,KiL---------- KELIMESAY(A1;"kil")

Dim Say As Long
Dim F As Long
Dim BULUNAN As Long
    KucukHarf = LCase(Replace(Replace(ARANANKELIME, "İ", "i"), "I", "ı"))
    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(KucukHarf)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, LCase(CUMLENIZ), KucukHarf, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(KucukHarf)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function

Veya

Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String, _
                                Optional DUYARLILIK As VbCompareMethod) As Long
'Harf büyük küçük DUYARLILIK  1 veya 0
‘KELIMESAY(A1;"kil";1)
Dim Say As Long
Dim F As Long
Dim BULUNAN As Long

    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(ARANANKELIME)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, CUMLENIZ, ARANANKELIME, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(ARANANKELIME)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function
Genişletmek için tıkla ...
üstadım
excelokyanus500' Alıntı:
deneyiniz

Kod: 
Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String) As Long
'Kil ve kil ve kIl,KiL---------- KELIMESAY(A1;"kil")

Dim Say As Long
Dim F As Long
Dim BULUNAN As Long
    KucukHarf = LCase(Replace(Replace(ARANANKELIME, "İ", "i"), "I", "ı"))
    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(KucukHarf)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, LCase(CUMLENIZ), KucukHarf, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(KucukHarf)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function

Veya

Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String, _
                                Optional DUYARLILIK As VbCompareMethod) As Long
'Harf büyük küçük DUYARLILIK  1 veya 0
‘KELIMESAY(A1;"kil";1)
Dim Say As Long
Dim F As Long
Dim BULUNAN As Long

    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(ARANANKELIME)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, CUMLENIZ, ARANANKELIME, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(ARANANKELIME)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function
Genişletmek için tıkla ...

Üstadım emeğine sağlık Teşekkür ederimm.. Var olunnn
excelokyanus500' Alıntı:
deneyiniz

Kod: 
Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String) As Long
'Kil ve kil ve kIl,KiL---------- KELIMESAY(A1;"kil")

Dim Say As Long
Dim F As Long
Dim BULUNAN As Long
    KucukHarf = LCase(Replace(Replace(ARANANKELIME, "İ", "i"), "I", "ı"))
    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(KucukHarf)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, LCase(CUMLENIZ), KucukHarf, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(KucukHarf)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function

Veya

Function KELIMESAY(CUMLENIZ As String, ARANANKELIME As String, _
                                Optional DUYARLILIK As VbCompareMethod) As Long
'Harf büyük küçük DUYARLILIK  1 veya 0
‘KELIMESAY(A1;"kil";1)
Dim Say As Long
Dim F As Long
Dim BULUNAN As Long

    If Len(LCase(CUMLENIZ)) = 0 Then Exit Function
    If Len(LCase(ARANANKELIME)) = 0 Then Exit Function
    Say = 1
    Do
        Say = InStr(Say, CUMLENIZ, ARANANKELIME, DUYARLILIK)
        F = Say
        If Say > 0 Then
            BULUNAN = BULUNAN + 1
            Say = Say + Len(ARANANKELIME)
        End If
    Loop Until Say = 0
    KELIMESAY = BULUNAN
End Function
Genişletmek için tıkla ...
Emeğinize Sağlık Değerli üstadım .. Sağ ve sağlıklı olunn
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,742
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++: 
=TOPLA.ÇARPIM(UZUNLUK(A1:E9)-UZUNLUK(YERİNEKOY(BÜYÜKHARF(A1:E9);BÜYÜKHARF(A12);"")))/MAK(1;UZUNLUK(A12))
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst