Pozdravljeni.
Zanima me, kako bi izgledal zapis, ki prešteje točno določene znake (npr. ".") v celici? Na vašem forumu sem že našel nekaj na temo štetja, ampak ne za točno določen znak. Na spletu sem našel zapis "=LEN(A1)-LEN(SUBSTITUTE(A1,A2,""))", kjer je A1 celica z izbranim tekstom in A2 znak, ki ga iščem. Ampak mi zapis ni čisto jasen...
Prosil bi za pomoč.
Hvala.
Lp, Gregor
Štetje določenih znakov v celici
Re: Štetje določenih znakov v celici
Da, koda, ki ste jo našli je čisto pravilna. Naredi pa sledeče:
- Izračuna dolžino celotnega besedila
- V besedilu iskane znake pobriše (no konkretno jih zamenja s praznimi znaki) a praktično to pomeni da jih izbriše
- Izračuna dolžino novega besedila
- Razlika obeh dolžin je število iskanih znakov
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Štetje določenih znakov v celici
Sem "skombiniral" to kodo:
Sem preizkusil na nekaj primerih in zaenkrat dela.
Hvala za odgovor.
lp
Koda: Izberi vse
Sub preveri()
Dim Count As Integer
Dim Target As String
Dim N As Integer
'določim zadnjo aktivno vrstico
t = ActiveSheet.Range("B65536").End(xlUp).Row
For i = 3 To t
Count = 0
Target = "."
N = InStr(1, Cells(i, 2).Value, Target)
While N <> 0
Count = Count + 1
N = InStr(N + 1, Cells(i, 2).Value, Target)
Wend
If Count > 2 Then
MsgBox "Preveč nivojev!"
GoTo konec
End If
Next
konec:
End Sub
Hvala za odgovor.
lp