Yinelenme sayısı

[mersilen]

Yinelenme sayısı KTF

Merhabalar

Adım-1:Bir metin veya sayıda belli karakterlerin yinelenme/tekrar sayılarını nasıl bulabiliriz

formülle yapılanı buldum

=UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;B2;""))
=UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;"a";""))

http://www.excel.web.tr/f47/karakter-saydyrma-t62070.html

ve özellikle KTF olarak yapılırsa çok makbule geçecek

Adım-2: Daha sonra yinelenme sayıları arasındaki parçaal yapılacak
mesela -- 12abcagdakjh
a için 2 değeri girilince 2. ve 3. a arasını (gd) yazacak KTF yapılacak


a için 0 .. 12
a için 1 .. bc
a için 2 .. gd
a için 3 .. kjh

 

[Mehmet Şahin]

Merhaba,
ekte iki adet ktf bulunmaktadır. İyi çalışmalar.

Function yineleme(alan As Range, harf As String) As Integer
    yineleme = Len(alan) - Len(Application.WorksheetFunction.Substitute(alan, harf, ""))
End Function
Function bul(alan As Range, harf As String, sira As Integer) As String
Dim i As Integer
        bul = ""
        a = alan 'aranacak tümce
        If a = "" Then Exit Function
        say = 0
        For i = 1 To Len(a)
           If sira = say And Left(Mid(a, i, Len(a)), 1) = harf Then GoTo son
            If sira = say Then
            bul = bul + Left(Mid(a, i, Len(a)), 1)
            End If
               s = Left(Mid(a, i, Len(a)), 1)
            If harf = s Then
            say = say + 1
            End If
        Next i
son:
End Function

 

[mersilen]

Dentex
ellerine sağlık, çok güzel olmuş.

Birde KTF yi macro içinde kullanmak mümkün oluyor mu?

Application.WorksheetFunction.bul(...)

 

[Mehmet Şahin]

Merhaba,
parametreleri doğru göndermek kaydı ile tabii ki kullanabilirsiniz.

sonuc=bul(a,b,c)

şeklinde...