Типы данных в VBA Excel

Встроенные типы данных VBA Excel:

#DataType #DataTypes #ТипДанных #ТипыДанных

*Резервируется память в байтах на каждую переменную соответствующего типа.

Тип данных Variant может принимать специальные значения: Empty, Error, Nothing и Null.

Кроме встроенных типов данных VBA Excel позволяет использовать пользовательские типы, создаваемые с помощью оператора Type. Диапазон значений пользовательского типа данных определяется встроенными типами, из которых он состоит.

🔥 Массивы в VBA Excel

Массивы в 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:

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 — «Первого января две тысячи первого года».

🛠 Код функции:

'Преобразование даты из числового формата в текст с 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 #ДатаПрописью

Функции преобразования типов данных

🔤 Синтаксис:
Функция (аргумент)

Список функций преобразования типов, типы данных, которые они возвращают, и интервалы данных для аргументов, смотрите в таблице ниже.

#VBA #ExcelVBA #Function #DataType #Функции #ТипДанных

🔹 Функция 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

🔹 Функция CByte
Функция CByte используется для преобразования аргументов в тип данных Byte.

📌 Пример:

Dim a, b, c
a = 654
b = 3.36
 
c = a / b 'Результат: 194,642857142857
c = CByte(c) 'Результат: 195
 
c = a * b 'Результат: 2197,44
c = CByte(c) 'Результат: Error

#VBA #ExcelVBA #CByte

🔹 Функция CCur
Функция CCur используется для преобразования аргументов в тип данных Currency.

📌 Пример:

Dim a, b, c
a = 254.6598254
b = 569.2156843
c = a + b 'Результат: 823,8755097
c = CCur(a + b) 'Результат: 823,8755

#VBA #ExcelVBA #CCur

🔹 Функция 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.

📌 Пример:

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.

📌 Пример:

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

🔹 Функция CInt
Функция CInt используется для преобразования аргументов в тип данных Integer.

📌 Пример:

Dim a As String, b As Integer
a = "2355,9228"
b = CInt(a) 'Результат: 2356

#VBA #ExcelVBA #CInt

🔹 Функция CLng
Функция CLng используется для преобразования аргументов в тип данных Long.

📌 Пример:

Dim a As Date, b As Long
a = CDate(44298.63895) 'Результат: #12.04.2021 15:20:05#
b = CLng(a) 'Результат: 44299
a = CDate(b) 'Результат: #13.04.2021#

#VBA #ExcelVBA #CLng

🔹 Функция CSng
Функция CSng используется для преобразования аргументов в тип данных Single.

📌 Пример:

Dim a As String, b As Single
a = "3,2365625106"
b = CSng(a) 'Результат: 3,236562

#VBA #ExcelVBA #CSng

🔹 Функция CStr
Функция CStr используется для преобразования аргументов в тип данных String.

📌 Пример:

Dim a As Single, b As String
a = 5106.23
b = CStr(a) 'Результат: "5106,23"

#VBA #ExcelVBA #CStr

🔹 Функция 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 активной

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

🔥 Метод AutoFit объекта Range

Метод Range.AutoFit автоматически изменяет ширину столбцов или высоту строк в диапазоне так, чтобы все данные в ячейках были видны полностью.

📌 Примеры

1️⃣ Для одной строки и одного столбца

Rows(1).AutoFit ' можно и Rows("1").AutoFit
Columns("A").AutoFit

2️⃣ Для нескольких строк и нескольких столбцов

Rows("1:5").AutoFit
Columns("A:E").AutoFit

3️⃣ Для определенного диапазона

Range("A1:C10").Columns.AutoFit
Range("A1:C10").Rows.AutoFit

4️⃣ Для всего листа

Cells.Columns.AutoFit
Cells.Rows.AutoFit

⚠️ Важно:
🔹 Если в ячейках содержатся длинные строки текста, метод Range.AutoFit подгонит столбец/строку до его максимальной ширины/высоты.
🔹 Метод Range.AutoFit не работает для объединённых ячеек.

💡 Когда использовать?
✅ Когда нужно быстро подогнать размеры столбцов или строк в зависимости от содержимого ячеек.

Смотрите на нашем сайте, как работает автоподбор ширины объединенной ячейки и как работает автоподбор высоты объединенной ячейки.

#VBA #ExcelVBA #AutoFit #Range