Jak počítat písmena a číslice pomocí makra
Pomocí funkce „Upravit - Najít“ můžete vyhledávat konkrétní texty, čísla, písmena a posloupnosti čísel. Pomocí makra můžete také hledat znaky ve svých tabulkách.
Následující makro dotazuje uživatele na obsah a hledá tento obsah v dříve vybrané oblasti buněk. Nejprve tedy vyberte oblast v tabulce a poté aktivujte následující makro:
Dílčí počítání znaků ()
Dim i As Long
Dim pozice jako dlouhá
Znak ztlumení jako řetězec
Dim Cell jako rozsah
Dim a As String
Character = InputBox („Který znak chcete počítat?“)
i = 0
Pro každou buňku ve výběru
Pozice = InStr (1, UCase (Cell.Value), UCase (Character))
Zatímco pozice 0
i = i + 1
Position = InStr (Position + Len (Character), Cell.Value, Character)
Zamířit
Další buňka
a = MsgBox ("Řetězec" & znak & "se stal" _
& i & „Nalezené časy.“, vbOKOnly, „Výsledek hledání“)
End Sub
V prvním kroku se makro v okně zeptá, který znak chcete v označené oblasti hledat:
Poté se prohledá rozsah buněk. Okno s výsledky ukazuje, jak často byla hledaná postava nalezena:
Při hledání se nerozlišují malá a velká písmena. Můžete také vyhledat řetězce, které jsou delší než písmeno nebo číslo. Kromě písmen můžete vyhledávat také čísla nebo kombinace písmen a číslic.
Tip: Pokud byste chtěli vědět, jak zadávat a spouštět makra v Excelu, najdete zde stručný popis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
