Как да броите букви и цифри с помощта на макрос
Можете да използвате функцията „Редактиране - Намиране“, за да търсите конкретни текстове, цифри, букви и последователности от числа. Можете също да използвате макрос, за да търсите знаци в таблиците си.
Следният макрос запитва потребителя за съдържание и търси това съдържание в предварително избрания диапазон от клетки. Така че първо изберете област в таблицата си и след това активирайте следния макрос:
Подброяващи знаци ()
Dim i As Long
Затъмнена позиция толкова дълго
Затъмнете знака като низ
Dim Cell As Range
Dim a As String
Character = InputBox ("Кой знак искате да броите?")
i = 0
За всяка избрана клетка
Позиция = InStr (1, UCase (Cell.Value), UCase (Character))
Докато позиция 0
i = i + 1
Position = InStr (Position + Len (Character), Cell.Vueue, Character)
Уенд
Следващата клетка
a = MsgBox ("Низът" & символ & "стана" _
& i & "Намерени времена.", vbOKOnly, "Резултат от търсенето")
End Sub
В първата стъпка макросът пита в прозорец кой знак искате да търсите в маркираната област:
След това се търси диапазонът от клетки. Прозорец с резултати показва колко често се намира търсеният от вас герой:
Търсенето не е чувствително към регистъра. Можете също да търсите низове, които са по -дълги от буква или цифра. Освен букви, можете също да търсите цифри или комбинации от букви и цифри.
Съвет: Ако искате да знаете как да въвеждате и стартирате макроси в Excel, ще намерите кратко описание тук: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- в-excel-ein.html
