• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan hsyn17
  • Başlangıç tarihi Başlangıç tarihi
H

hsyn17

Katılım
15 Temmuz 2013
Mesajlar
92
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
 
Deneyiniz.

C++: 
=EĞERSAY(A1:K10;"kil")
 
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
 
Örnek dosya paylaşarak yapmak istediğiniz işlemi açıklayınız.
 
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
 
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
 
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.
Geri
Üst