Як перевірити клітини за допомогою макросу
Ви хотіли б оцінити клітини та визначити, скільки клітинок заповнено в діапазоні, а скільки ні? Наступний малюнок показує приклад:
Маркер A1: B7 містить деякі порожні клітини та деякі заповнені клітини. Якщо ви хочете оцінити це в макросі, можна скористатися таким програмним кодом:
Sub CountsFilledCells ()
Яскраве число як довге
Dim Number2 As Long
Затемнити область як діапазон
Dim a As String
Область встановлення = Вибір
Number = Application.CountA (область)
Count2 = area.Cells.Count - номер
a = MsgBox ("У поточному виборі є" _
& Number & "клітинки заповнені та" & number2 _
& "Клітинки порожні.", VbOKТільки, "оцінити клітини")
End Sub
Макрос встановлює функцію КількістьA для підрахунку кількості не порожніх клітинок у діапазоні. Результат зберігає змінну номер. Щоб визначити кількість заповнених клітин, це значення віднімається від кількості загальної кількості досліджених клітин. Макрос зберігає це значення в Номер 2.
Після запуску код програми визначає кількість заповнених та порожніх клітинок у активному маркуванні та відображає результат у вікні:
Якщо ви хочете обробити діапазон за вашим вибором, а не поточний вибір, адаптуйте призначення значення до змінної площі у. Він використовується в макросі з властивістю Вибір підключені. Якщо ви хочете самостійно визначити діапазон, замініть встановити-Призначення змінної площі виразом такої форми:
Встановлений діапазон = Діапазон ("A1: B5")
Специфікація діапазону завжди посилається на активний аркуш. Якщо ви хочете звернутися до іншого аркуша, поставте перед ДіапазонНадайте посилання на методи Робочі зошити та Листи виправлено.