Як рахувати літери та цифри за допомогою макросу
Ви можете використовувати функцію "Редагувати - Знайти" для пошуку певних текстів, цифр, літер та послідовностей цифр. Ви також можете використовувати макрос для пошуку символів у своїх таблицях.
Наступний макрос запитує у користувача вміст і шукає цей вміст у раніше вибраному діапазоні комірок. Тож спочатку виберіть область у своїй таблиці, а потім активуйте такий макрос:
Підрахунок символів ()
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 (символ), Cell.Vueue, Character)
Венд
Наступна клітина
a = MsgBox ("Рядок" & символ & "став" _
& i & "Знайдено час.", vbOKOnly, "Результат пошуку")
End Sub
На першому кроці макрос запитує у вікні, який символ ви хочете шукати у позначеній області:
Потім здійснюється пошук діапазону клітинок. Вікно результатів показує, як часто знаходився шуканий вами персонаж:
Пошук не враховує регістр. Ви також можете шукати рядки, довші за літеру чи цифру. Крім літер, ви також можете шукати цифри або комбінації букв і цифр.
Порада: Якщо ви хочете дізнатися, як вводити та запускати макроси в Excel, ви знайдете короткий опис тут: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
