Як підрахувати рядки таблиці Excel за допомогою макросів VBA

Автор: Joan Hall
Дата Створення: 4 Січень 2021
Дата Оновлення: 1 Липня 2024
Anonim
Программирование макросов на VBA в Excel
Відеоролик: Программирование макросов на VBA в Excel

Зміст

Іноді нам потрібно знати кількість рядків, що використовуються в таблиці Excel, щоб ми могли створити формулу або навіть макрос VBA. На щастя, є кілька досить простих способів зробити це, і Excel VBA є лише одним з них.Найпростіший спосіб дізнатися цю інформацію - перейти в нижню частину робочого аркуша і подивитися номер справа від останньої точки даних; однак з VBA цей розрахунок надзвичайно простий.


Інструкції

З VBA, дуже просто розрахувати кількість рядків в робочому аркуші Excel (BananaStock / BananaStock / Getty Images)

    Планування макросу

  1. Відкрийте аркуш Excel і редактор VBA, натиснувши "Alt + F11".

  2. Запустіть новий файл проекту VBA, клацнувши правою кнопкою миші на робочій книжці, відображаючись у меню праворуч, і вибравши "Новий".

  3. Запустіть нову функцію, набравши "Sub CountRows ()". Це повідомляє компілятору VBA, що існує нова підпрограма для файлу проекту. Якщо ви бажаєте перейменовувати підпрограму, змініть текст "CountRows" на будь-яке бажане ім'я, за яким повинні йти дужки, показані вище, наприклад "YourName ()".

  4. Створіть на наступному рядку змінну, що містить текст "Розраховувати як довго".


  5. Введіть наступний код:

    Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0) .Виберіть Loop Until IsEmpty (ActiveCell.Offset (0, 1))

    Це інформує програму компілятора про те, що необхідно проаналізувати змінну Count, а потім підрахувати рядки всього аркуша. Код додає змінну до Total Count, а потім переходить до наступної комірки, якщо вона порожня. Коли вона досягає порожньої клітинки, виконання припиняється.

  6. Активуйте текстове поле, додавши новий рядок з текстом "MsgBox Count". У цьому вікні відобразиться спливаюче вікно, у якому буде вказано загальну кількість рядків. Щоб зробити вікно трохи більш корисним, можна ввести будь-який додатковий текст. Перейменувати рядок на:

    MsgBox "Існує" [кількість номерів] "рядків"

    За потребою можна змінити текст у лапках.

  7. Нарешті, введіть "End Sub" у новому рядку, щоб вийти з функції підпрограми.

    Запуск макросу

  1. Поверніться на аркуш Excel і збережіть його.


  2. Виділіть клітинку першого стовпця, яка містить найбільшу кількість даних. Цей стовпець не повинен містити порожніх клітинок від верхнього до нижнього.

  3. Відкрийте меню "Інструменти" і виберіть "Макроси", щоб відобразити діалогове вікно, що містить всі макроси, запрограмовані для робочого аркуша.

  4. Виберіть макрос, створений у розділі 1, з назвою "CountRows" або будь-якою іншою назвою, яку ви вказали, і натисніть "Виконати". Після завершення макрос буде відображати спливаюче текстове поле, яке повідомляє вам кількість заповнених рядків

Як

  • Якщо вам просто потрібно отримати число, легше і простіше вважати рядки за допомогою формули. У порожній комірці введіть "= COUNT (A: A, IF (A> 0,1,0))", де A - стовпець, кількість рядків якого підраховується.