Kuidas makro abil tähti ja numbreid lugeda
Funktsiooni "Redigeeri - otsi" saate kasutada konkreetsete tekstide, numbrite, tähtede ja numbrijadade otsimiseks. Samuti saate makro abil tabelitest märke otsida.
Järgmine makro pärib kasutajalt sisu ja otsib seda sisu eelnevalt valitud lahtrite vahemikust. Nii et kõigepealt valige tabelist ala ja seejärel aktiveerige järgmine makro:
Alamarvestusmärgid ()
Dim i As Long
Pimendusasend nii kaua
Hämar märk stringina
Dim Cell kui vahemik
Dim a String
Character = InputBox ("Millist märki soovite üles lugeda?")
i = 0
Iga valitud lahtri kohta
Position = InStr (1, UCase (Cell.Value), UCase (Character))
Kuigi positsioon 0
i = i + 1
Position = InStr (Position + Len (Character), Cell.Value, Character)
Wend
Järgmine lahter
a = MsgBox ("String" ja märk & "sai" _
& i & "Leitud ajad.", vbOKOnly, "Otsingutulemus")
End Sub
Esimeses etapis küsib makro aknas, millist märki soovite märgitud alalt otsida:
Seejärel otsitakse lahtrite vahemikku. Tulemuste aken näitab, kui sageli otsitavat tegelast leiti:
Otsing ei ole tõstutundlik. Samuti saate otsida tähti või numbreid pikemaid stringe. Lisaks tähtedele saate otsida ka numbreid või tähtede ja numbrite kombinatsioone.
Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate lühikirjelduse siit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
