Перейти до основного контенту
Лайфхаки

VBA Excel: як дізнатися кількість стовпців на аркуші?

6 хв читання
2219 переглядів

Один з нерідко задаються при роботі з макросами VBA в Excel звучить так: "як дізнатися кількість стовпців на аркуші?". Ця інформація може бути корисна в багатьох ситуаціях, коли потрібно працювати з діапазонами даних або проводити різні операції з осередками.

Найпростіший спосіб дізнатися кількість стовпців на активному аркуші-це скористатися властивістю Columns.Count. Дана властивість повертає кількість стовпців в діапазоні, і тому що вся таблиця являє собою діапазон, то воно також поверне кількість стовпців на аркуші. Наприклад, наступний код покаже, як дізнатися кількість стовпців на активному аркуші:




Sub CountColumns()


Dim numOfColumns As Integer


numOfColumns = ActiveSheet.Columns.Count


MsgBox "всього стовпців на аркуші:" & numOfColumns


End Sub

Якщо необхідно дізнатися кількість стовпців в певному діапазоні, можна використовувати властивість Range.Columns.Count. Наприклад, щоб дізнатися кількість стовпців в діапазоні від A1 до C10, слід використовувати наступний код:




Sub CountColumnsInRange()


Dim numOfColumns As Integer


Dim myRange As Range


Set myRange = Range("A1:C10")


numOfColumns = myRange.Columns.Count


MsgBox "всього стовпців в діапазоні:" & numOfColumns


End Sub

Тепер ви знаєте, як дізнатися кількість стовпців на аркуші в VBA Excel. Ця інформація може виявитися дуже корисною при розробці макросів, заснованих на роботі з таблицями та діапазонами даних.

Як знайти кількість стовпців у Excel за допомогою VBA

Для того щоб дізнатися кількість стовпців на аркуші в Excel за допомогою VBA, можна використовувати властивість Columns.

У VBA є кілька способів отримати кількість стовпців:

  • Використовувати властивість Columns.Count, який повертає загальну кількість стовпців на аркуші.
  • Використовувати метод UsedRange.Columns.Count, який повертає кількість стовпців у використовуваній області.
  • Використовувати метод Find з параметром LookIn, встановленим на xlFormulas, і потім за допомогою властивості Columns отримати номер останньої знайденої комірки.
Dim columnCount As Long' Получить общее количество столбцов на листеcolumnCount = Worksheets("Sheet1").Columns.Count' Получить количество столбцов в используемой областиcolumnCount = Worksheets("Sheet1").UsedRange.Columns.Count' Получить номер последней незаполненной ячейки в столбце AcolumnCount = Worksheets("Sheet1").Columns("A").Find(What:="*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Column

Тепер ви знаєте, як дізнатися кількість стовпців у Excel за допомогою VBA. Це може бути корисно при написанні макросів або автоматизації завдань в Excel.

Використання Об'єкта Worksheet

У VBA для роботи з даними в Excel ми можемо використовувати Об'єкт Worksheet. Цей об'єкт є окремим аркушем у таблиці Excel і дозволяє нам здійснювати різні операції з клітинками, стовпцями та рядками.

Для початку роботи з Об'єктом Worksheet нам необхідно оголосити змінну цього типу і присвоїти їй відповідний лист:

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets ("Лист1")

Після цього ми можемо використовувати змінну ws для посилання на різні властивості та методи Об'єкта Worksheet.

Однією з найкорисніших властивостей Об'єкта Worksheet є властивість Columns, яка дозволяє отримати доступ до всіх стовпців на аркуші. Наприклад, щоб дізнатися кількість стовпців на аркуші, ми можемо використовувати наступний код:

Dim columnCount As Integer

У цьому прикладі ми оголошуємо змінну columnCount типу Integer і присвоюємо їй значення властивості Count об'єкта Columns. Після виконання цього коду змінна columnCount міститиме кількість стовпців на аркуші.

Використовуючи Об'єкт Worksheet та його властивості та методи, ми можемо виконувати різні операції з даними в Excel та автоматизувати багато рутинних завдань.

Використання властивості UsedRange

- це властивість об'єкта

в Excel VBA, яке повертає діапазон комірок, що містять дані, що знаходяться на аркуші. При цьому повертається самий лівий верхній і самий правий нижній кути діапазону.

Одним із способів дізнатися кількість стовпців на аркуші за допомогою властивості UsedRange є отримання адреси діапазону за допомогою методу

і парсинг отриманого значення. Потім можна підрахувати кількість стовпців за номером останньої комірки за допомогою властивості

Наприклад, наступний код демонструє, як використовувати властивість UsedRange для визначення кількості стовпців на активному аркуші:

Sub CountColumns()Dim ws As WorksheetDim lastColumn As IntegerSet ws = ActiveSheetlastColumn = ws.UsedRange.Columns(ws.UsedRange.Columns.Count).ColumnMsgBox "Количество столбцов на листе: " & lastColumnEnd Sub

У цьому прикладі ми спочатку створюємо об'єкт змінної ws, який посилається на активний аркуш. Потім ми використовуємо властивість UsedRange для отримання діапазону комірок з даними на аркуші. Потім ми використовуємо властивість Columns.Count для визначення кількості стовпців у цьому діапазоні. Нарешті, ми використовуємо властивість Column, щоб отримати номер останнього стовпця та відобразити його за допомогою повідомлення MsgBox .

Використовуючи властивість UsedRange, ви можете легко визначити кількість стовпців на аркуші без необхідності перебирати кожну клітинку вручну.

Використання властивості Columns

У VBA для роботи з Excel можна використовувати властивість Columns, щоб отримати доступ до стовпців на аркуші. Ця властивість дозволяє виконувати різні операції зі стовпцями, включаючи отримання та встановлення значень, зміну форматування та інші властивості.

Щоб дізнатися кількість стовпців на аркуші, можна скористатися властивістю Columns.Count. Воно поверне число стовпців на аркуші і дозволить динамічно адаптувати код, якщо кількість стовпців зміниться.

Sub GetColumnCount()Dim ws As WorksheetDim columnCount As Long' Устанавливаем ссылку на активный листSet ws = ActiveSheet' Получаем количество столбцов на листеcolumnCount = ws.Columns.Count' Выводим результат в окно сообщенийMsgBox "Количество столбцов на листе: " & columnCountEnd Sub

В даному прикладі ми створюємо процедуру VBA, яка отримує кількість стовпців на активному аркуші і виводить його в вікно повідомлень. Тут використовується посилання на активний лист через об'єкт ActiveSheet, але ви можете використовувати посилання на будь-який інший аркуш на ваш вибір.

Тепер ви знаєте, як використовувати властивість Columns для отримання кількості стовпців на аркуші в VBA Excel.