Kako šteti črke in številke z makrom
S funkcijo »Uredi - Najdi« lahko iščete določena besedila, številke, črke in zaporedja številk. Makro lahko uporabite tudi za iskanje znakov v tabelah.
Naslednji makro poizveduje uporabnika o vsebini in išče to vsebino v predhodno izbranem obsegu celic. Zato najprej izberite območje v tabeli in nato aktivirajte naslednji makro:
Podštevilčenje znakov ()
Dim i As Long
Zatemni položaj tako dolgo
Zatemnjen znak kot niz
Dim Cell As Range
Zatemni kot niz
Character = InputBox ("Kateri znak želite šteti?")
i = 0
Za vsako izbrano celico
Položaj = InStr (1, UCase (Cell.Value), UCase (Character))
Medtem ko je položaj 0
i = i + 1
Position = InStr (Position + Len (Character), Cell.Vueue, Character)
Wend
Naslednja celica
a = MsgBox ("Niz" & znak & "je postal" _
& i & "Najdeni časi.", vbOKOnly, "Rezultat iskanja")
End Sub
V prvem koraku makro v oknu vpraša, kateri znak želite poiskati na označenem območju:
Nato se išče obseg celic. Okno z rezultati prikazuje, kako pogosto je bil najden lik, ki ste ga iskali:
Iskanje ne razlikuje med velikimi in malimi črkami. Iščete lahko tudi nize, daljše od črke ali številke. Poleg črk lahko iščete tudi številke ali kombinacije črk in številk.
Nasvet: Če želite vedeti, kako vnesti in zagnati makre v Excelu, boste tukaj našli kratek opis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
