Ako počítať písmená a číslice pomocou makra
Na vyhľadanie konkrétnych textov, číslic, písmen a sekvencií číslic môžete použiť funkciu „Upraviť - Hľadať“. Na vyhľadanie znakov v tabuľkách môžete použiť aj makro.
Nasledujúce makro dotazuje používateľa na obsah a hľadá tento obsah v predtým vybranom rozsahu buniek. Najprv teda vyberte oblasť v tabuľke a potom aktivujte nasledujúce makro:
Dočítanie znakov ()
Dim i As Long
Tlmená poloha ako dlhá
Znak stmavenia ako reťazec
Dim Cell as Range
Reťazec Dim a As
Character = InputBox („Ktorý znak chcete počítať?“)
i = 0
Pre každú bunku vo výbere
Poloha = InStr (1, UCase (Cell.Value), UCase (znak))
Kým je pozícia 0
i = i + 1
Poloha = InStr (pozícia + dĺžka (znak), hodnota bunky, znak)
Wend
Ďalšia bunka
a = MsgBox („Reťazec“ & znak & „sa stal“ _
& i & „Nájdené časy.“, vbOKOnly, „Výsledok hľadania“)
Koniec pod
V prvom kroku sa makro v okne opýta, ktorý znak chcete vo označenej oblasti hľadať:
Potom sa prehľadá rozsah buniek. Okno s výsledkami zobrazuje, ako často sa hľadaná postava nachádzala:
Pri hľadaní sa nerozlišujú malé a veľké písmená. Môžete tiež vyhľadať reťazce, ktoré sú dlhšie ako písmeno alebo číslo. Okrem písmen môžete vyhľadávať aj čísla alebo kombinácie písmen a číslic.
Tip: Ak by ste chceli vedieť, ako zadávať a spúšťať makrá v Exceli, nájdete tu stručný popis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
