vzorce mi nejdu spravil som jednoduchu funkciu ak chces - zatial berie iba jednu bunku alebo zlucene bunky
Function Pocet_vyskitov(Text, Pismeno) As String
Dim i As Long, pocet As Integer
pocet = 0
For i = 1 To Len(Text)
Select Case Mid(Text, i, 1)
Case Pismeno
pocet = pocet + 1
Case Else
End Select
Next i
Pocet_vyskitov = pocet
End Function
citovat
Function Pocet_vyskitov(Text, Pismeno) As String
Dim i As Long, pocet As Integer
pocet = 0
For i = 1 To Len(Text)
Select Case Mid(Text, i, 1)
Case Pismeno
pocet = pocet + 1
Case Else
End Select
Next i
Pocet_vyskitov = pocet
End Function
citovat