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
Buhvald napisal/-a:Rad bi pa, ... in vse znake na 40 odebelji.
Posamezna celica lahko vsebuje maksimalno 40 znakov.
Ker podatke uvažam, bi rad da mi Makro preveri koliko je znakov v posamezni celici oz. izbranem območju celic in odebelji celice, ki vsebujejo več kot 40 znakov.
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
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).