🔥 Свойство Hidden объекта Range
Свойство Range.Hidden позволяет скрывать или отображать строки и столбцы в Excel. Это свойство особенно полезно при автоматизации отчетов и создании динамических таблиц.
📌 Примеры:
1️⃣ Скрыть строку, содержащую ячейку A1:
🔹 Скрывает всю строку, в которой находится A1.
2️⃣ Скрыть столбец, содержащий ячейку B2:
🔹 Скрывает весь столбец, в котором находится B2.
3️⃣ Показать скрытую строку 5:
🔹 Делает строку 5 видимой.
4️⃣ Переключить видимость столбца C:
🔹 Если столбец C был скрыт, он станет видимым, и наоборот.
5️⃣ Скрыть все строки в диапазоне A1:A10, содержащие отрицательные значения:
🔹 Скрывает все строки в диапазоне A1:A10, где в ячейках находятся отрицательные числа.
💡 Важно:
✔️ Hidden можно использовать как для строк (EntireRow), так и для столбцов (EntireColumn).
✔️ Скрытие не удаляет данные, а просто делает их невидимыми.
✔️ Полезно при создании динамических отчетов и фильтрации данных.
#VBA #ExcelVBA #Range #Hidden
Свойство Range.Hidden позволяет скрывать или отображать строки и столбцы в Excel. Это свойство особенно полезно при автоматизации отчетов и создании динамических таблиц.
📌 Примеры:
1️⃣ Скрыть строку, содержащую ячейку A1:
Range("A1").EntireRow.Hidden = True 🔹 Скрывает всю строку, в которой находится A1.
2️⃣ Скрыть столбец, содержащий ячейку B2:
Range("B2").EntireColumn.Hidden = True 🔹 Скрывает весь столбец, в котором находится B2.
3️⃣ Показать скрытую строку 5:
Rows(5).Hidden = False
🔹 Делает строку 5 видимой.
4️⃣ Переключить видимость столбца C:
Columns("C").Hidden = Not Columns("C").Hidden 🔹 Если столбец C был скрыт, он станет видимым, и наоборот.
5️⃣ Скрыть все строки в диапазоне A1:A10, содержащие отрицательные значения:
Dim cell As Range
For Each cell In Range("A1:A10")
If cell.Value < 0 Then
cell.EntireRow.Hidden = True
End If
Next cell
🔹 Скрывает все строки в диапазоне A1:A10, где в ячейках находятся отрицательные числа.
💡 Важно:
✔️ Hidden можно использовать как для строк (EntireRow), так и для столбцов (EntireColumn).
✔️ Скрытие не удаляет данные, а просто делает их невидимыми.
✔️ Полезно при создании динамических отчетов и фильтрации данных.
#VBA #ExcelVBA #Range #Hidden
*Резервируется память в байтах на каждую переменную соответствующего типа.
Тип данных Variant может принимать специальные значения: Empty, Error, Nothing и Null.
Кроме встроенных типов данных VBA Excel позволяет использовать пользовательские типы, создаваемые с помощью оператора Type. Диапазон значений пользовательского типа данных определяется встроенными типами, из которых он состоит.
Тип данных Variant может принимать специальные значения: Empty, Error, Nothing и Null.
Кроме встроенных типов данных VBA Excel позволяет использовать пользовательские типы, создаваемые с помощью оператора Type. Диапазон значений пользовательского типа данных определяется встроенными типами, из которых он состоит.
🔥 Массивы в VBA Excel
Массивы в VBA — это структуры данных, которые позволяют хранить несколько значений под одним именем. Они удобны для работы с большими объемами данных, поскольку позволяют быстро обрабатывать их в циклах.
📌 Объявление массивов
1️⃣ Одномерный (фиксированный) массив с фиксированным числом элементов
🔹 В этом массиве 5 элементов, доступных по индексам 1–5.
2️⃣ Динамический массив (размер можно менять в процессе работы)
🔹 Используем ReDim, чтобы задать размер массива во время выполнения кода.
3️⃣ Многомерный массив
🔹 Это массив 3×3, где обозначение каждого элемента соответствует формуле - matrix(строка, столбец).
#VBA #ExcelVBA #Array #Массив #Массивы
Массивы в VBA — это структуры данных, которые позволяют хранить несколько значений под одним именем. Они удобны для работы с большими объемами данных, поскольку позволяют быстро обрабатывать их в циклах.
📌 Объявление массивов
1️⃣ Одномерный (фиксированный) массив с фиксированным числом элементов
Dim arr(1 To 5) As Integer
arr(1) = 10
arr(2) = 20
MsgBox arr(1) ' Выведет 10
🔹 В этом массиве 5 элементов, доступных по индексам 1–5.
2️⃣ Динамический массив (размер можно менять в процессе работы)
Dim arr() As Integer
ReDim arr(1 To 10)
arr(1) = 100
🔹 Используем ReDim, чтобы задать размер массива во время выполнения кода.
3️⃣ Многомерный массив
Dim matrix(1 To 3, 1 To 3) As Integer
matrix(1, 1) = 5
matrix(2, 3) = 10
MsgBox matrix(2, 3) ' Выведет 10
🔹 Это массив 3×3, где обозначение каждого элемента соответствует формуле - matrix(строка, столбец).
#VBA #ExcelVBA #Array #Массив #Массивы
Заполнение массивов
🔄 Циклы и массивы
Массивы удобно заполнять и читать с помощью цикла For:
🏎 Быстрое заполнение массивов через Array
🔹 Array() создает массив сразу со значениями, но его индексация начинается с 0!
📥 Заполнение массива из диапазона
В VBA можно легко загрузить данные из диапазона Excel в массив, обработать их и затем записать обратно в другой диапазон.
1️⃣ Заполнить массив из диапазона:
🔹 Данные из диапазона A1:A5 загружаются в массив arr.
🔹 Индексация массива начинается с 1, а не с 0.
🔹 Массив получается двумерным, даже если диапазон одномерный - arr(строка, столбец).
2️⃣ Передача массива обратно в диапазон:
🔹 Используем Transpose(), чтобы записать одномерный массив в вертикальный диапазон.
3️⃣ Копирование данных из одного диапазона в другой через массив:
🔹 Копируем значения из A1:C5 в E1:G5, используя массив.
🔹 Такой способ быстрее, чем копирование ячеек по одной.
#Range #Array #ЗаполнениеМассива #ЗаполнениеМассивов
🔄 Циклы и массивы
Массивы удобно заполнять и читать с помощью цикла For:
Dim i As Integer, arr(1 To 5) As Integer
For i = 1 To 5
arr(i) = i * 10
Next i
MsgBox arr(3) ' Выведет 30
🏎 Быстрое заполнение массивов через Array
Dim arr As Variant
arr = Array(10, 20, 30, 40)
MsgBox arr(2) ' Выведет 30 (нумерация начинается с 0!)
🔹 Array() создает массив сразу со значениями, но его индексация начинается с 0!
📥 Заполнение массива из диапазона
В VBA можно легко загрузить данные из диапазона Excel в массив, обработать их и затем записать обратно в другой диапазон.
1️⃣ Заполнить массив из диапазона:
Dim arr As Variant
arr = Range("A1:A5").Value
MsgBox arr(3, 1) ' Выведет значение из A3
🔹 Данные из диапазона A1:A5 загружаются в массив arr.
🔹 Индексация массива начинается с 1, а не с 0.
🔹 Массив получается двумерным, даже если диапазон одномерный - arr(строка, столбец).
2️⃣ Передача массива обратно в диапазон:
Dim arr As Variant
arr = Array(10, 20, 30, 40, 50)
Range("B1:B5").Value = Application.Transpose(arr)
🔹 Используем Transpose(), чтобы записать одномерный массив в вертикальный диапазон.
3️⃣ Копирование данных из одного диапазона в другой через массив:
Dim dataArr As Variant
dataArr = Range("A1:C5").Value ' Читаем данные из диапазона A1:C5
Range("E1:G5").Value = dataArr ' Записываем их в E1:G5
🔹 Копируем значения из A1:C5 в E1:G5, используя массив.
🔹 Такой способ быстрее, чем копирование ячеек по одной.
#Range #Array #ЗаполнениеМассива #ЗаполнениеМассивов
✨ Дата прописью в Excel
Функция «ДатаПрописью» преобразует даты из числового формата Excel в текст. Интервал преобразуемых дат: с 2001 по 2099 год. Используется в шаблонах доверенностей, договоров, соглашений, решений, уставов и других документов, заполняющихся в Excel. Формат преобразования: 01.01.2001 — «Первого января две тысячи первого года».
🛠 Код функции:
🔹 Если хотите, чтобы функция «ДатаПрописью» была доступна из всех рабочих книг на вашем компьютере, вставьте приведенный код в модуль, расположенный в Личной книге макросов.
#VBA #ExcelVBA #ДатаПрописью
Функция «ДатаПрописью» преобразует даты из числового формата Excel в текст. Интервал преобразуемых дат: с 2001 по 2099 год. Используется в шаблонах доверенностей, договоров, соглашений, решений, уставов и других документов, заполняющихся в Excel. Формат преобразования: 01.01.2001 — «Первого января две тысячи первого года».
🛠 Код функции:
'Преобразование даты из числового формата в текст с 2001 по 2099 год
Public Function ДатаПрописью(md As Date) As String
If (md < 36892) Or (md > 73050) Then
ДатаПрописью = "Преобразуемая дата должна быть с 2001 по 2099 год!"
Else
Dim den As Byte, dg(1 To 4) As Byte, mes As Byte, god As Byte, _
mespr As String, dmgpr As String
den = Day(md)
mes = Month(md)
god = (Year(md) Mod 100)
dg(1) = god Mod 10
dg(2) = Fix(god / 10)
dg(3) = den Mod 10
dg(4) = Fix(den / 10)
Dim dgpr(1 To 4) As String, i1 As Byte
For i1 = 1 To 4
If (i1 = 1) Or (i1 = 3) Then
If dg(i1 + 1) = 1 Then
dgpr(i1) = Choose(dg(i1) + 1, "десятого ", "одиннадцатого ", "двенадцатого ", _
"тринадцатого ", "четырнадцатого ", "пятнадцатого ", "шестнадцатого ", _
"семнадцатого ", "восемнадцатого ", "девятнадцатого ")
Else
dgpr(i1) = Choose(dg(i1) + 1, "", "первого ", "второго ", _
"третьего ", "четвертого ", "пятого ", "шестого ", _
"седьмого ", "восьмого ", "девятого ")
End If
ElseIf (i1 = 2) Or (i1 = 4) Then
If dg(i1 - 1) = 0 Then
dgpr(i1) = Choose(dg(i1) + 1, "", "", "двадцатого ", _
"тридцатого ", "сорокового ", "пятидесятого ", "шестидесятого ", _
"семидесятого ", "восьмидесятого ", "девяностого ")
Else
dgpr(i1) = Choose(dg(i1) + 1, "", "", "двадцать ", _
"тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", _
"семьдесят ", "восемьдесят ", "девяносто ")
End If
End If
Next
mespr = Choose(mes, "января ", "февраля ", "марта ", "апреля ", "мая ", _
"июня ", "июля ", "августа ", "сентября ", "октября ", "ноября ", "декабря ")
dmgpr = dgpr(4) & dgpr(3) & mespr & "две тысячи " & dgpr(2) & dgpr(1) & "года"
ДатаПрописью = Replace(dmgpr, Left(dmgpr, 1), UCase(Left(dmgpr, 1)), 1, 1)
End If
End Function
🔹 Если хотите, чтобы функция «ДатаПрописью» была доступна из всех рабочих книг на вашем компьютере, вставьте приведенный код в модуль, расположенный в Личной книге макросов.
#VBA #ExcelVBA #ДатаПрописью
🔹 Функция CBool
Функция CBool используется для преобразования аргументов в тип данных Boolean.
📌 Пример:
#VBA #ExcelVBA #CBool
Функция CBool используется для преобразования аргументов в тип данных Boolean.
📌 Пример:
Dim a
a = CBool(10) 'Результат: True
a = CBool(0) 'Результат: False
a = CBool("True") 'Результат: True
a = CBool("Test") 'Результат: Error
Dim a, b, c
a = "Test1"
b = "Test2"
c = CBool(a = b) 'Результат: False
c = CBool(a <> b) 'Результат: True
#VBA #ExcelVBA #CBool
🔹 Функция CDate
Функция CDate используется для преобразования аргументов в тип данных Date. Она распознает форматы даты в соответствии с национальной настройкой системы.
📌 Пример:
#VBA #ExcelVBA #CDate
Функция CDate используется для преобразования аргументов в тип данных Date. Она распознает форматы даты в соответствии с национальной настройкой системы.
📌 Пример:
Dim a As String, b As Date, c As Double
a = "28.01.2021"
b = CDate(a) 'Результат: #28.01.2021#
c = CDbl(b) 'Результат: 44224
Dim a
a = CDate(44298.63895) 'Результат: #12.04.2021 15:20:05#
a = CDate(44298) 'Результат: #12.04.2021#
a = CDate(0.63895) 'Результат: #15:20:05#
#VBA #ExcelVBA #CDate
🔹 Функция CDbl
Функция CDbl используется для преобразования аргументов в тип данных Double.
📌 Пример:
💡 Примечание:
Eсли основной язык системы – русский, при записи в редакторе VBA Excel дробного числа в виде текста, ставим в качестве разделителя десятичных разрядов – запятую. Проверьте разделитель по умолчанию для своей национальной системы:
#VBA #ExcelVBA #CDbl
Функция CDbl используется для преобразования аргументов в тип данных Double.
📌 Пример:
Dim a As String, b As String, c As Double
a = "45,3695423"
b = "548955,756"
c = CDbl(a) + CDbl(b) 'Результат: 549001,1255423
💡 Примечание:
Eсли основной язык системы – русский, при записи в редакторе VBA Excel дробного числа в виде текста, ставим в качестве разделителя десятичных разрядов – запятую. Проверьте разделитель по умолчанию для своей национальной системы:
MsgBox Application.DecimalSeparator
#VBA #ExcelVBA #CDbl
🔹 Функция CDec
Функция CDec используется для преобразования аргументов в тип данных Decimal.
📌 Пример:
#VBA #ExcelVBA #CDec
Функция CDec используется для преобразования аргументов в тип данных Decimal.
📌 Пример:
Dim a As String, b As Double, c
a = "5,9228162514264337593543950335"
b = 5.92281625142643
c = CDec(a) - CDec(b) 'Результат: 0,0000000000000037593543950335
Dim a As Double, b As String, c
a = 4.2643E-14
b = CStr(a) 'Результат: "4,2643E-14"
c = CDec(a) 'Результат: 0,000000000000042643
#VBA #ExcelVBA #CDec
🔹 Функция CVar
Функция CVar используется для преобразования аргументов в тип данных Variant.
📌 Пример:
#VBA #ExcelVBA #CVar
Функция CVar используется для преобразования аргументов в тип данных Variant.
📌 Пример:
Dim a As Double, b As String, c
a = 549258.232546
b = "Новое сообщение"
c = CVar(a) 'Результат: 549258,232546 (Variant/Double)
c = CVar(b) 'Результат: "Новое сообщение" (Variant/String)
#VBA #ExcelVBA #CVar
🔥 Метод Activate объекта Range
Метод Activate делает указанную ячейку активной. Активная ячейка — это та, в которой находится фокус. Этот метод удобен при перемещении по листу, когда нужно установить фокус на конкретную ячейку.
📌 Разница между Activate и Select
🔹 Activate — устанавливает фокус в указанную ячейку.
🔹 Select — выделяет одну или несколько ячеек, делая их текущим диапазоном, активной становится только одна ячейка, расположенная в левом верхнем углу выделенного диапазона.
📌 Примеры
✅ 1. Сделать ячейку B2 активной
✅ 2. Разница между Activate и Select
⚠️ Важно!
🔹 Метод Activate работает только с одной ячейкой, его нельзя применить к диапазону.
🔹 Работает только на активном листе.
🔹 Если указанная ячейка находится внутри выделенного диапазона, метод Activate не изменяет ранее выделенный диапазон, а просто ставит фокус в указанную ячейку. Если указанная ячейка находится вне выделенного диапазона, выделение текущего диапазона снимается.
💡 Когда использовать?
✅ Когда нужно переместить курсор в ячейку перед вводом данных через SendKeys.
✅ В макросах, где требуется точное управление фокусом без изменения выделенного диапазона.
#VBA #ExcelVBA #Range #Activate
Метод Activate делает указанную ячейку активной. Активная ячейка — это та, в которой находится фокус. Этот метод удобен при перемещении по листу, когда нужно установить фокус на конкретную ячейку.
📌 Разница между Activate и Select
🔹 Activate — устанавливает фокус в указанную ячейку.
🔹 Select — выделяет одну или несколько ячеек, делая их текущим диапазоном, активной становится только одна ячейка, расположенная в левом верхнем углу выделенного диапазона.
📌 Примеры
✅ 1. Сделать ячейку B2 активной
Sub ActivateCell()
Range("B2").Activate ' Фокус окажется в ячейке B2
End Sub
✅ 2. Разница между Activate и Select
Sub ActivateVsSelect()
Range("B2:E6").Select ' Выделен диапазон B2:E6, фокус в ячейке B2
MsgBox ActiveCell.Address ' $B$2
Range("D4").Activate ' Выделен диапазон B2:E6, фокус в ячейке D4
MsgBox ActiveCell.Address ' $D$4
Range("A1").Activate ' Выделен диапазон A1, фокус в ячейке A1
MsgBox ActiveCell.Address ' $A$1
End Sub
⚠️ Важно!
🔹 Метод Activate работает только с одной ячейкой, его нельзя применить к диапазону.
🔹 Работает только на активном листе.
🔹 Если указанная ячейка находится внутри выделенного диапазона, метод Activate не изменяет ранее выделенный диапазон, а просто ставит фокус в указанную ячейку. Если указанная ячейка находится вне выделенного диапазона, выделение текущего диапазона снимается.
💡 Когда использовать?
✅ Когда нужно переместить курсор в ячейку перед вводом данных через SendKeys.
✅ В макросах, где требуется точное управление фокусом без изменения выделенного диапазона.
#VBA #ExcelVBA #Range #Activate
👍1
🔥 Метод AutoFit объекта Range
Метод Range.AutoFit автоматически изменяет ширину столбцов или высоту строк в диапазоне так, чтобы все данные в ячейках были видны полностью.
📌 Примеры
1️⃣ Для одной строки и одного столбца
2️⃣ Для нескольких строк и нескольких столбцов
3️⃣ Для определенного диапазона
4️⃣ Для всего листа
⚠️ Важно:
🔹 Если в ячейках содержатся длинные строки текста, метод Range.AutoFit подгонит столбец/строку до его максимальной ширины/высоты.
🔹 Метод Range.AutoFit не работает для объединённых ячеек.
💡 Когда использовать?
✅ Когда нужно быстро подогнать размеры столбцов или строк в зависимости от содержимого ячеек.
Смотрите на нашем сайте, как работает автоподбор ширины объединенной ячейки и как работает автоподбор высоты объединенной ячейки.
#VBA #ExcelVBA #AutoFit #Range
Метод Range.AutoFit автоматически изменяет ширину столбцов или высоту строк в диапазоне так, чтобы все данные в ячейках были видны полностью.
📌 Примеры
1️⃣ Для одной строки и одного столбца
Rows(1).AutoFit ' можно и Rows("1").AutoFit
Columns("A").AutoFit2️⃣ Для нескольких строк и нескольких столбцов
Rows("1:5").AutoFit
Columns("A:E").AutoFit3️⃣ Для определенного диапазона
Range("A1:C10").Columns.AutoFit
Range("A1:C10").Rows.AutoFit4️⃣ Для всего листа
Cells.Columns.AutoFit
Cells.Rows.AutoFit
⚠️ Важно:
🔹 Если в ячейках содержатся длинные строки текста, метод Range.AutoFit подгонит столбец/строку до его максимальной ширины/высоты.
🔹 Метод Range.AutoFit не работает для объединённых ячеек.
💡 Когда использовать?
✅ Когда нужно быстро подогнать размеры столбцов или строк в зависимости от содержимого ячеек.
Смотрите на нашем сайте, как работает автоподбор ширины объединенной ячейки и как работает автоподбор высоты объединенной ячейки.
#VBA #ExcelVBA #AutoFit #Range