MS Excel

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

musisi mat povolene makra (Nastroje, Moznosti, Zabezpeceni maker - ja mam nizke), potom v excely Alt +F11 (otvoris editor VBA), insert, module - do bielej obrazovky nakopirujes text ktory som poslal, zavres editor VBA. od teraz mas tuto funkciu medzi ostatnymi funkciami v zalozke Vlastni (funkcia bude dostupna iba v ak budes mat otvoreny subor do ktoreho si to vlozil - da sa to urobit aj globalne ale ja som to este nepotreboval tak po tom nepatram), vyberes funkciu oznacis bunkuv ktorej je text a bunku v ktorej je pismeno ktoreho pocet chces zistitcitovat