[VBA] Cifre numar

[manxten]

Salut! Am o problema in Excel pe la care nu am gasit o solutie cu functiile predefinite. Am incercat si cu VBA, dar nu mi-a iesit(ce e drept nici nu sunt un maestru in Visual Basic). Problema suna cam asa: Intr-o celula este scris un numar(ex: 21223224) si se cere sa se afiseze de cate ori apare cifra 2 in numar. Va arasez si o imagine

Daca cineva imi poate oferi o solutie cat mai scurta/simpla fara sa intre in chestii avansate de VB raman recunoscator.

[FreddieTux]

Solutia doar pentru cifre

Function CountDigitOccurence(Target As Long, SearchFor As Byte)
Dim number As Integer
number = 0

Do While Target <> 0
If Target Mod 10 = SearchFor Then
number = number + 1
End If
Target = Target / 10
Loop

CountDigitOccurence = number
End Function

Solutia pentru siruri de caractere (e ceva mai generala si se poate aplica si cifrelor)

Function CountOccurence(Target As String, SearchFor As Integer)
Dim number As Integer
number = 0

Do While InStr(Target, SearchFor) > 0
number = number + 1
Target = Replace(Target, SearchFor, "", 1, 1)
Loop

CountOccurence = number
End Function