56214_vba.png
Sub Pocet()
Dim Soubor As String, Hledej As String
Dim PocetVyskytu As Long
Soubor = "abc\def\ghi"
Hledej = "\"
PocetVyskytu = Len(Soubor) - Len(Replace(Soubor, Hledej, ""))
End Sub
alebo
...
PocetVyskytu = UBound(Split(Soubor, Hledej))
...citovat
Dim Soubor As String, Hledej As String
Dim PocetVyskytu As Long
Soubor = "abc\def\ghi"
Hledej = "\"
PocetVyskytu = Len(Soubor) - Len(Replace(Soubor, Hledej, ""))
End Sub
alebo
...
PocetVyskytu = UBound(Split(Soubor, Hledej))
...citovat
RSS nejnovější články