Zanima me kako napisati makro za štetje znakov v posamezni celici oz. v več izbranih celicah.
Rad bi pa, da mi makro prešteje znake in vse znake na 40 odebelji.
LP Buhvald
Preštej znake v določeni celici
Re: Preštej znake v določeni celici
Pozdravljeni,
Preprosto se sprehodite skozi vse izbrane celice in štejete znake:Buhvald napisal/-a:Zanima me kako napisati makro za štetje znakov v posamezni celici oz. v več izbranih celicah.
Koda: Izberi vse
Sub PrestejZnake()
Dim celica
Dim stZnakov As Long
stZnakov = 0
For Each celica In Selection
stZnakov = stZnakov + Len(celica.Text)
Next
MsgBox stZnakov
End Sub
Tega pa ne razumemBuhvald napisal/-a:Rad bi pa, ... in vse znake na 40 odebelji.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Aha,
Makro ostaja praktično enak; dodan mu je še en IF stavek, ki preveri ali je vsebina daljša od 40 znakov:
Makro vam bo odebeljil in z rdečo obarval vse celice, ki so predolge. Če vas rdeča barva moti izbrišite vrstico (celica.Font.ColorIndex = 3).
Makro ostaja praktično enak; dodan mu je še en IF stavek, ki preveri ali je vsebina daljša od 40 znakov:
Koda: Izberi vse
Sub PrestejZnake()
Dim celica
Dim stZnakov As Long
stZnakov = 0
For Each celica In Selection
stZnakov = stZnakov + Len(celica.Text)
If Len(celica.Text) > 40 Then
celica.Font.Bold = True
celica.Font.ColorIndex = 3
End If
Next
MsgBox stZnakov
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator