Probao sam ovo da uradim u VBA, cisto da vidim da li mogu da dobijem isti rezultat, a i da vezbam malo.
Generalno, ono sto sam ja zamislio - to i radi, ali kasnije sam video u okacenom primeru da ako je u celiji upisano:
Code:
Float (4+12+4+12+4) 2Float
a prebrojava se ponavljanje niza "Float" - ocekivani rezultat je 1, dok meni vraca 2. Razlog je sto se uslov preklapa, a to vec ne znam da resim.
Code:
Sub brojanje()
Dim rg1 As String
Dim n As Integer
Dim korak As Integer
Dim p As Integer
Dim uslov As String
Dim broj As String
rg1 = Selection
n = Len(rg1)
' duzina niza
If n = o Then
' proveravamo da li je prazna celija
MsgBox "Oznacite celiju koja ima upisanu vrednost i u kojoj zelite da vrsite prebrojavanje.", vbExclamation, "Greska!!!"
Exit Sub
End If
uslov = InputBox("Unesite niz simbola koje zelite da prebrojite u selektovanoj celiji: ")
' Unosimo koju cifru prebrojavamo
korak = Len(uslov)
p = 0
broj = Left(rg1, korak)
If broj = uslov Then
p = p + 1
End If
For i = 1 + korak To n
broj = Right(Left(rg1, i), korak)
If broj = uslov Then
p = p + 1
End If
Next i
MsgBox (" Niz simbola ''" & uslov & "'' se u selektovanoj celiji ponavlja " & p & " puta.")
End Sub
Potpis
VICTORIA CONCORDIA CRESCIT