Vba excel создать переменную

Хитрости »

1 Май 2011              225505 просмотров

Что такое переменная и как правильно её объявить?

Переменная — это некий контейнер, в котором VBA хранит данные. Если подробнее, то это как коробочка, в которую Вы можете положить что-то на хранение, а затем по мере необходимости достать. Только в данном случае в переменной мы храним число, строку или иные данные, которые затем можем извлекать из неё и использовать в коде по мере необходимости.

Для чего нужна переменная? Чтобы хранить значение и применить его позже в любой момент. Например, в ячейке А1 записана сумма, а нажатием на кнопку запускается обновление отчета. После обновления отчета сумма в А1 изменится. Необходимо сверить сумму до обновления с суммой после и в зависимости от этого сделать какое-либо действие. Переменная как раз позволит запомнить значение ячейки до того, как она обновится и использовать именно это значение после обновления.

• Требования к переменным
• Типы данных, хранимых в переменных
• Как объявлять переменные
• Как правильно назвать переменную
• Пример использования переменных
• Константы

В качестве имен переменных можно использовать символы букв и числа, но первой в имени переменной всегда должна быть буква. Не допускается использование точки, запятой, пробела и иных знаков препинания, кроме нижнего подчеркивания. Длина имени не должна превышать 254 символов. Так же нельзя использовать в качестве имен для переменных зарезервированные константы редактора VBA(например Sub, Msgbox, ubound, Date и т.п.). Так же для переменных неважен регистр букв.

Как видно из таблицы больше всего памяти занимает Variant. Притом это если он хранит числовые данные. Если же такая переменная будет хранить данные строкового типа(текст), то размер занимаемой памяти будет измеряться уже начиная с 22 байт + длина строки, хранящейся в переменной. Чем больше памяти занимает переменная, тем дольше она инициализируется в памяти и тем медленнее код будет выполняться. Вот поэтому и важно явно задавать тип данных, хранимых в переменной — это называется объявить переменную.

Тип данных Decimal больше не используется, поэтому объявить переменную данного типа в VBA не получится — подобная попытка приведет к синтаксической ошибке. Для работы с данными типа Decimal переменную необходимо изначально объявить как Variant или вообще без типа (например Dim a), т.к. тип данных Variant используется в VBA по умолчанию и принимает любой тип данных.

Так же переменным можно назначать и другие типы данных, которых нет в таблице выше — это типы, которые поддерживаются объектной моделью приложений, к которым «подключен» VBA. Например, если зайти в VBA из Excel, то библиотека типов объектной модели Excel подключена по умолчанию и для переменных становится доступно множество типов этой объектной модели. Многие из них знакомы всем: Workbook, Worksheet, Range, Cells, Chart и т.д. Т.е. это книги, листы, ячейки, диаграммы. Типов много, почти на каждый объект и коллекцию. Рассматривать здесь все бессмысленно. Могу лишь привести пару строк кода:

Dim rRange as Range 'назначили переменной тип ячейка/диапазон
Set rRange = Range("A1") 'присвоили ссылку на ячейку A1 текущего листа

Про объявление переменных подробно написано чуть ниже.
А более подробно про обращение к диапазонам из VBA можно почитать в этой статье: Как обратиться к диапазону из VBA

[оператор области действия] Имя_переменной As [тип данных]

Очень частая ошибка при объявлении переменных, совершаемая начинающими изучать VBA:

Dim MyVar1, MyVar2, MyVar3 As Integer

Вроде бы исходя из логики всем переменным присвоен тип данных Integer. Но это ошибочное суждение. Тип Integer присвоен только последней переменной, к которой он «привязан» оператором As — MyVar3. Все остальные переменные имеют тип данных Variant. Т.е. если Вы не задаете каждой переменной свой тип хранимых данных явно(т.е. не указываете для неё тип данных через As), то VBA сам присваивает для такой переменной тип данных Variant, т.к. он может хранить любой тип данных. А вот так выглядит правильное присвоение типа данных:

Dim MyVar1 As Integer, MyVar2 As Integer, MyVar3 As Integer

Это и есть объявление переменных. Т.е. сначала идет оператор области действия (Dim, Public,Static), сразу за ним имя переменной, затем оператор As и тип.
Но это не все. Некоторые типы переменным можно присваивать еще короче — даже без оператора As:

Dim MyVar1%, MyVar2%, MyVar3%

Всего шесть типов, которые можно объявить подобным методом:
! — Single
# — Double
$ — String
% — Integer
& — Long
@ — Currency
На что стоит обратить внимание, при объявлении переменных подобным образом: между именем переменной и знаком типа не должно быть пробелов.
Я лично в большинстве статей предпочитаю использовать первый метод, т.е. полное указание типа. Это читабельнее и понятнее. В каких-то проектах могу использовать краткое указание, в общих(разработка в команде) — полное. В своих кодах Вы вправе использовать удобный Вам метод — ошибки не будет.

Теперь разберемся с операторами области действия(Dim, Public и Static):

• Dim — данный оператор используется для объявления переменной, значение которой будет храниться только в той процедуре, внутри которой данная переменная объявлена. Во время запуска процедуры такая переменная инициализируется в памяти и использовать её значение можно внутри только этой процедуры, а по завершению процедуры переменная выгружается из памяти(обнуляется) и данные по ней теряются. Переменную, объявленную подобным образом еще называют локальной переменной. Однако с помощью данного оператора можно объявить переменную, которая будет доступна в любой процедуре модуля. Необходимо объявить переменную вне процедуры — в области объявлений(читать как первой строкой в модуле, после строк объявлений типа — Option Explicit). Тогда значение переменной будет доступно в любой процедуре лишь того модуля, в котором данная переменная была объявлена. Такие переменные называются переменными уровня модуля. Также для использования переменных во всех процедурах и функциях одного конкретного модуля можно использовать оператор Private. Но он в данном случае ничем не отличается от Dim, а пишется длиннее Плюс, Private нельзя использовать внутри процедуры или функции(только в области объявлений), что еще больше сужает её применимость. По сути чаще этот оператор применяется к функциям и процедурам(об этом см.ниже)
• Static — данный оператор используется для объявления переменной, значение которой предполагается использовать внутри конкретной процедуры, но не теряя значения данной переменной по завершении процедуры. Переменные данного типа обычно используют в качестве накопительных счетчиков. Такая переменная инициализируется в памяти при первом запуске процедуры, в которой она объявлена. По завершении процедуры данные по переменной не выгружаются из памяти, но однако они не доступны в других процедурах. Как только Вы запустите процедуру с этой переменной еще раз — данные по такой переменной будут доступны в том виде, в котором были до завершения процедуры. Выгружается из памяти такая переменная только после закрытия проекта(книги с кодом).
• Public — данный оператор используется для объявления переменной, значение которой будет доступно в любой процедуре проекта(в обычных модулях, модулях класса, модулях форм, модулях листов и книг). Переменная, объявленная подобным образом, должна быть объявлена вне процедуры — в области объявлений. Такая переменная загружается в память во время загрузки проекта(при открытии книги) и хранит значение до выгрузки проекта(закрытия книги). Использовать её можно в любом модуле и любой процедуре проекта. Важно: объявлять подобным образом переменную необходимо строго в стандартном модуле. Такие переменные называются переменными уровня проекта. В простонародье такие переменные еще называют глобальными(возможно из-за того, что раньше подобные переменные объявлялись при помощи оператора Global, который в настоящее время устарел и не используется).
  Для большего понимания того, где и как объявлять переменные уровня проекта два небольших примера.
  Неправильное объявление

  Option Explicit
   
  Sub main()
  Public MyVariable As String
  MyVariable = "Глобальная переменная"
  'показываем текущее значение переменной
  MsgBox MyVariable
  'пробуем изменить значение переменной
  Call sub_main
  'показываем измененное значение переменной
  MsgBox MyVariable
  End Sub
  'доп.процедура изменения значения переменной
  Sub ChangeMyVariable()
  MyVariable = "Изменили её значение"
  End Sub

  переменные не будут видны во всех модулях всех процедур и функций проекта, потому что:
  1. Оператор Public недопустим внутри процедуры(между Sub и End Sub), поэтому VBA при попытке выполнения такой процедуры обязательно выдаст ошибку — Invalid Attribut in Sub or Function.
  2. Даже если Public заменить на Dim — это уже будет переменная уровня процедуры и для других процедур будет недоступна.
  3. Т.к. объявление неверное — вторая процедура(ChangeMyVariable) ничего не знает о переменной MyVariable и естественно, не сможет изменить именно её.
  Правильное объявление

  'выше глобальных переменных и констант могут быть только декларации:
  Option Explicit     'принудительное объявление переменных
  Option Base 1       'нижняя граница объявляемых массивов начинается с 1
  Option Compare Text 'сравнение текста без учета регистра
  'глобальная переменная - первой строкой, выше всех процедур
  Public MyVariable As String
  'далее процедуры и функции
  Sub main()
      MyVariable = "Глобальная переменная"
      'показываем текущее значение переменной
      MsgBox MyVariable, vbInformation, "www.excel-vba.ru"
      'пробуем изменить значение переменной
      Call ChangeMyVariable
      'показываем измененное значение переменной
      MsgBox MyVariable, vbInformation, "www.excel-vba.ru"
  End Sub
  'доп.процедура изменения значения переменной
  Sub ChangeMyVariable()
      MyVariable = "Изменили её значение"
  End Sub

  Если при этом вместо Public записать Dim, то эта переменная будет доступна из всех функций и процедур того модуля, в котором записана, но недоступна для функций и процедур других модулей.
  Переменные уровня проекта невозможно объявить внутри модулей классов(ClassModule, ЭтаКнига(ThisWorkbook), модулей листов, модулей форм(UserForm) — подробнее про типы модулей: Что такое модуль? Какие бывают модули?)

• Операторы области действия так же могут применяться и к процедурам. Для процедур доступен еще один оператор области действия — Private. Объявленная подобным образом процедура доступна только из того модуля, в котором записана и такая процедура не видна в диалоговом окне вызова макросов(Alt+F8)

'процедура записана в Module1
'эта процедура будет доступна для вызова исключительно из процедур в этом же модуле
'но не будет доступна при вызове из других модулей
Private Sub PrivateMain()
    MsgBox "Процедура может быть вызвана только из модуля, в котором записана", vbInformation, "www.excel-vba.ru"
End Sub
'другая процедура, записанная в этом же модуле
Sub CallPrivate()
    Call PrivateMain
End Sub

'эта процедура записана в другом модуле - Module2
'при попытке вызова этой процедурой получим ошибку
' Sub or Function not defined
' потому что процедура PrivateMain объявлена только для Module1
Sub CallPrivate_FromModule1()
    Call PrivateMain
End Sub

При этом, если из Excel нажать сочетание клавиш Alt+F8, то в окне будут доступны только CallPrivate_FromModule1 и CallPrivate. Процедура PrivateMain будет недоступна.

«Что самое сложное в работе программиста? — выдумывать имена переменным.» :-)А ведь придумать имя переменной тоже не так-то просто. Можно, конечно, давать им имена типа: a, d, f, x, y и т.д.(я сам иногда так делаю, но либо в простых кодах, либо для специального запутывания кода). Но стоит задуматься: а как Вы с ними будете управляться в большом коде? Код строк на 10 еще потерпит такие имена, а вот более крупные проекты — не советовал бы я в них оперировать такими переменными. Вы сами запутаетесь какая переменная как объявлена и какой тип данных может хранить и что за значение ей присвоено. Поэтому лучше всего давать переменным осмысленные имена и следовать соглашению об именовании переменных. Что за соглашение? Все очень просто: перед основным названием переменной ставится префикс, указывающий на тип данных, который мы предполагаем хранить в данной переменной. Про имеющиеся типы данных я уже рассказал выше. А ниже приведена примерная таблица соответствий префиксов типам данных:

Лично я немного для себя её переделал, т.к. некоторые обозначения мне кажутся скудными. Например Double я обозначаю как dbl, а Single как sgl. Это мне кажется более наглядным.

В чем еще плюс явного указания префикса данных. В VBA есть такие операторы как Def, при помощи которых можно указать тип данных по умолчанию для переменных, первая буква имени которых попадает в заданный в операторе диапазон. Например:

DefBool B
Sub test()
    Dim bCheck
End Sub

Автоматически переменной bCheck будет присвоен тип Boolean, т.к. она начинается с буквы b — регистр здесь не имеет значения(впрочем как в VBA в целом). Оператор Def задается в области объявления. Можно задать не одну букву, а целый диапазон букв:

DefBool B-C
Sub test()
    Dim bCheck, cCheck
End Sub

Но я считаю, что одной буквы для одного типа вполне достаточно. Можно задать сразу несколько операторов Def.

DefBool B
DefStr S
Sub test()
    Dim bCheck, sCheck
End Sub

Ниже приведен полный перечень операторов типов и данные, которые задает каждый из них:
DefBool — Задает тип Boolean
DefByte — Задает тип Byte
DefCur — Задает тип Currency
DefDate — Задает тип Date
DefDbl — Задает тип Double
DefInt — Задает тип Integer
DefLng — Задает тип Long
DefObj — Задает тип Object
DefSng — Задает тип Single
DefStr — Задает тип String
DefVar — Задает тип Variant
По умолчанию в VBA применена инструкция DefVar для всех букв(иначе говоря для всех переменных, которым не назначен тип данных явно через оператор As).

Ну и немаловажный момент это непосредственно осмысленное имя переменной. Имя переменной должно примерно отражать то, что в ней будет храниться. Например, Вы создаете отчет и Вам надо объявить две переменные: одна имя листа, другая имя книги. Можно было сделать так: str1, str2. Коротко, здорово. Но если подумать — и как можно понять, какая из этих переменных что хранит? Никак. Надо просматривать код и вспоминать, какой переменной какое значение было присвоено. Не совсем удобно, правда? А если бы Вы задали имена так: strBookName, strSheetName, то вроде как более понятно, что мы в них будем хранить. Это удобно не только вам самим при работе с кодом, но и другим людям, которые, возможно в будущем будут пользоваться Вашим кодом. Им будет удобнее читать код, если он будет оформлен грамотно, а переменные названы осмысленно. И не стоит экономить на длине имени — имя должно быть понятным. Без фанатизма, конечно :-). Хоть VBA и позволяет нам создавать переменные длиной до 254 символов, но читать такую переменную так же неудобно, как и с одним символом. Но здесь уже все зависит от Ваших предпочтений и фантазии.
Небольшое дополнение: лучше привыкать давать названия переменным на латинице(т.е. английский алфавит), т.к. для VBA английский язык «родной» и лучше использовать его.

Sub main()
'объявляем переменные с назначением конкретных типов
'As String - текст
'As Long   - целое число
Dim sAddress As String, sNewAddress As String, sShName As String
Dim lRow As Long
Dim rRange as Range 'назначили переменной тип ячейка/диапазон
 
'присвоили переменной rRange ссылку на текущую выделенную ячейку
Set rRange = Selection
'меняем выделение - выделяем ячейку D9
Range("D9").Select
'назначаем переменной адрес выделенных ячеек
sAddress = Selection.Address
'назначаем переменной lRow значение первой строки выделенной области
lRow = Selection.Row
'показываем сообщение
MsgBox "Адрес выделенной области: " & sAddress, vbInformation, "www.excel-vba.ru"
MsgBox "Номер первой строки: " & lRow, vbInformation, "www.excel-vba.ru"
'назначаем другой переменной значение адреса ячейки A1
sNewAddress = "A1"
'выделяем ячейку, заданную переменной sNewAddres
Range(sNewAddress).Select
MsgBox "Адрес выделенной области: " & sNewAddress, vbInformation, "www.excel-vba.ru"
'выделяем изначально выделенную ячейку, используя переменную rRange
rRange.Select
MsgBox "Адрес выделенной области: " & rRange.Address, vbInformation, "www.excel-vba.ru"
'задаем значение переменной
sShName = "excel-vba"
'переименовываем активный лист на имя, заданное переменной
ActiveSheet.Name = sShName
End Sub

Просмотреть пошагово выполнение данного кода поможет статья: Отлов ошибок и отладка кода VBA
Важно! Назначение значений переменным задается при помощи знака равно(=). Однако, есть небольшой нюанс: для переменных типа Object(а так же других объектных типов(Workbook, Worksheet, Range, Cells, Chart и т.п.)) присвоение идет при помощи ключевого оператора Set:

'присвоили переменной rRange ссылку на текущую выделенную ячейку
Set rRange = Selection

это так же называется присвоением ссылки на объект. Почему именно ссылки? Все просто: при помещении в переменную непосредственно ячейки или диапазона(Set var = Range(«A1») или Set rRange = Selection) нет никакого запоминания самой ячейки. В переменную помещается лишь ссылка на эту ячейку(можете считать, что это как ссылка в формулах) со всеми вытекающими: такое назначение не запоминает свойства ячейки до или после — в переменной хранится ссылка на конкретную ячейку и доступ есть исключительно к свойствам ячейки на текущий момент. Чтобы запомнить для этой ячейки значение, цвет или даже адрес (а так же и другие свойства) до её изменения и применить запомненное даже после изменения/перемещения самой ячейки — необходимо запоминать в переменные именно свойства ячейки:

Sub main()
    Dim val, l_InteriorColor As Long, l_FontColor As Long
    Dim rRange As Range 'назначили переменной тип ячейка/диапазон
 
    'присвоили переменной rRange ссылку на активную ячейку
    Set rRange = ActiveCell
    'запоминаем свойства ячейки
    val = rRange.Value                      'значение
    l_InteriorColor = rRange.Interior.Color 'цвет заливки
    l_FontColor = rRange.Font.Color         'цвет шрифта
    'копируем другую ячейку и вставляем на место активной
    ActiveSheet.Range("D1").Copy rRange
 
    'проверяем, что rRange теперь имеет совершенно другие свойста - как у D1
    MsgBox "Значение rRange: " & rRange.Value & vbNewLine & _
           "Цвет заливки rRange: " & rRange.Interior.Color & vbNewLine & _
           "Цвет шрифта rRange: " & rRange.Font.Color & vbNewLine, vbInformation, "www.excel-vba.ru"
 
    'назначаем свойства из сохраненных в переменных
    rRange.Value = val                      'значение
    rRange.Interior.Color = l_InteriorColor 'цвет заливки
    rRange.Font.Color = l_FontColor         'цвет шрифта
 
    'проверяем, что rRange возвращены параметры до копирования
    MsgBox "Значение rRange: " & rRange.Value & vbNewLine & _
           "Цвет заливки rRange: " & rRange.Interior.Color & vbNewLine & _
           "Цвет шрифта rRange: " & rRange.Font.Color & vbNewLine, vbInformation, "www.excel-vba.ru"
End Sub

Это так же распространяется на все другие объекты. Т.е. те переменные, значения которым назначаются через оператор Set.
Для других же типов Set не нужен и в переменную значение заносится без этих нюансов.

Const sMyConst As String = "Имя моей программы"

Константам могут быть назначены данные тех же типов, что и для переменных, за исключением типа Object, т.к. Object это всегда ссылка на объект, который как правило обладает «динамическими»(т.е. обновляющимися) свойствами. А изменение для констант недопустимо.
Для дополнительной области видимости/жизни констант используется только Public. Если область видимости не указана, то константа будет доступна только из того модуля, в котором объявлена. Здесь обращаю внимание на то, что Dim уже не используется, т.к. Dim это идентификатор только для переменных. Пару важных отличий объявления констант от объявления переменных:

• при объявлении константы необходимо обязательно указывать явно, что это константа ключевым словом Const
• сразу в момент объявления необходимо назначить константе значение: = «Имя моей программы»

Во всем остальном объявление и применение констант идентично объявлению переменных. Коротко приведу пару примеров.
Если константа объявлена внутри процедуры:

Sub TestConst()
    Const sMyConst As String = "Имя моей программы"
    MsgBox sMyConst 'показываем сообщение с именем программы
End Sub

то она не может быть использована в другой процедуре:

Sub TestConst()
    Const sMyConst As String = "Имя моей программы"
    MsgBox sMyConst 'показываем сообщение с именем программы
End Sub
Sub TestConst2()
    MsgBox sMyConst 'вызовет ошибку Variable not defined
End Sub

Чтобы использовать одну константу во всех процедурах модуля(того, в котором она объявлена), необходимо объявить её в области объявлений:

Const sMyConst As String = "Имя моей программы"
Sub TestConst()
    MsgBox sMyConst 'показываем сообщение с именем программы
End Sub
Sub TestConst2()
    MsgBox sMyConst 'уже не вызовет ошибку Variable not defined
End Sub

Чтобы использовать одну константу во всех процедурах проекта(книги), необходимо объявить её как Public:

Public Const sMyConst As String = "Имя моей программы"
Sub TestConst()
    MsgBox sMyConst 'показываем сообщение с именем программы
End Sub
Sub TestConst2()
    MsgBox sMyConst 'не вызовет ошибку Variable not defined, даже если процедура в другом модуле
End Sub

Подробнее можно прочитать выше — как я уже писал для констант применяются те же правила, что и для переменных.

Также см.:
Variable not defined или что такое Option Explicit и зачем оно нужно?
Что такое модуль? Какие бывают модули?
Что такое макрос и где его искать?
Отлов ошибок и отладка кода VBA

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Алан Перлис

Постоянная одного человека — переменная другого

Эта статья содержит полное руководство по работе с переменными и использованию VBA Dim.

Первый раздел содержит краткое руководство по использованию оператора
Dim, включая примеры и формат оператора Dim.

Остальная часть поста содержит наиболее полное руководство, которое вы
найдете в VBA Dim Statement.

Если вы заинтересованы в объявлении параметров, вы можете прочитать о
них здесь.

Краткое руководство по использованию VBA Dim Statement

* Примечание. Для раннего связывания необходимо добавить
справочный файл с помощью меню «Инструменты» -> «Ссылки». Смотрите здесь,
как добавить ссылку на Dictonary.

Полезные ссылки 

• Объявление параметров в подпрограмме или функции
• Использование объектов в VBA
• Массивы VBA
• Коллекции VBA
• Словарь VBA
• VBA Workbook
• VBA Worksheet

Что такое VBA Dim Statement?

Ключевое слово Dim — это сокращение от Dimension. Он
используется для объявления переменных в VBA.

Объявление означает, что мы говорим VBA о переменной,
которую будем использовать позже.

Существует четыре типа Dim Statement. Все они очень похожи по синтаксису.

Вот они:

1. Basic variable
2. Variant
3. Object
4. Array

Ниже приводится краткое описание каждого типа

1. Basic variable — этот тип переменной содержит одно значение. Это такие типы, как Long, String, Date, Double, Currency.
2. Variant — VBA решает во время выполнения, какой тип будет использоваться. Вы должны избегать вариантов, где это возможно, но в некоторых случаях требуется их использование.
3. Object — это переменная, которая может иметь несколько методов (то есть подпрограмм / функций) и несколько свойств (то есть значений). Есть 3 вида:
   Объекты Excel, такие как объекты Workbook, Worksheet и Range.
   Пользовательские объекты, созданные с использованием модулей классов.
   Внешние библиотеки, такие как Словарь.
4. Array — это группа переменных или объектов.

В следующем разделе мы рассмотрим формат оператора VBA Dim с
некоторыми примерами каждого из них.

В последующих разделах мы рассмотрим каждый тип более
подробно.

Формат VBA Dim Statement

Формат выражения Dim показан ниже.

' 1. BASIC VARIABLE
' Объявление основной переменной
Dim [Имя переменной] As [тип]

' Объявление фиксированной строки
Dim [Имя переменной] As String * [размер]

' 2. VARIANT
Dim [Имя переменной] As Variant
Dim [Имя переменной]

' 3. OBJECT
' Объявление объекта
Dim [Имя переменной] As [тип]

' Объявление и создание объекта
Dim [Имя переменной] As New [тип]

' Объявление объекта с использованием позднего связывания
Dim [Имя переменной] As Object

' 4. ARRAY
' Объявление статического массива
Dim [Имя переменной](first To last) As [тип]

' Объявление динамического массива
Dim [Имя переменной]() As [тип]
Ниже приведены примеры использования различных форматов.
Sub Primeri()

    ' 1. BASIC VARIABLE
    ' Объявление основной переменной
    Dim name As String
    Dim count As Long
    Dim amount As Currency
    Dim eventdate As Date
    
    ' Объявление фиксированной строки
    Dim userid As String * 8
    
    ' 2. VARIANT
    Dim var As Variant
    Dim var
    
    ' 3. OBJECT
    ' Объявление объекта
    Dim sh As Worksheet
    Dim wk As Workbook
    Dim rg As Range
    
    ' Объявление и создание объекта
    Dim coll1 As New Collection
    Dim o1 As New Class1
    
    ' Объявление объекта - создайте объект ниже, используя Set
    Dim coll2 As Collection
    Dim o2 As Class1
    
    Set coll2 = New Collection
    Set o2 = New Class1
    
    ' 	Объявление и присвоение с использованием позднего связывания
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 4. ARRAY
    ' Объявление статического массива
    Dim arrScores(1 To 5) As Long
    Dim arrCountries(0 To 9) As String
    
    ' Объявление динамического массива - установите размер ниже, используя ReDim
    Dim arrMarks() As Long
    Dim arrNames() As String
    
    ReDim arrMarks(1 To 10) As Long
    ReDim arrNames(1 To 10) As String

End Sub

Мы рассмотрим эти различные типы операторов Dim в следующих
разделах.

Как использовать Dim с несколькими переменными

Мы можем объявить несколько переменных в одном выражении Dim.

Dim name As String, age As Long, count As Long

Если мы опускаем тип, то VBA автоматически устанавливает тип как Variant. Мы увидим больше
о Variant позже.

' Сумма является вариантом
Dim amount As Variant

' Сумма является вариантом
Dim amount

' Адрес это вариант - имя это строка
Dim name As String, address

' имя - это вариант, адрес – строка
Dim name, address As String

Когда вы объявляете несколько переменных, вы должны указать тип каждой отдельно.

Dim wk As Workbook, marks As Count, name As String

Вы можете поместить столько переменных, сколько захотите, в
одном выражении Dim, но
для удобства чтения рекомендуется оставить его равным 3 или 4.

Где я должен поместить Dim Statement?

Оператор Dim может быть помещен в любое место кода. Тем не менее, он должен предшествовать любой строке, где используется переменная.

Если переменная используется перед оператором Dim, вы получите ошибку
«переменная не определена»

Когда дело доходит до позиционирования ваших Dim утверждений, вы можете сделать это двумя основными способами. Вы можете разместить все свои Dim заявления в верхней части процедуры.

Sub DimVverh()

    ' Размещение всех Dim statements наверху
    Dim count As Long, name As String, i As Long
    Dim wk As Workbook, sh As Worksheet, rg As Range
    
    Set wk = Workbooks.Open("C:ДокументыОтчет.xlsx")
    Set sh = wk.Worksheets(1)
    Set rg = sh.Range("A1:A10")
    
    For i = 1 To rg.Rows.count
        count = rg.Value
        Debug.Print count
    Next i
  
End Sub

ИЛИ вы можете объявить переменные непосредственно перед их
использованием:

Sub DimIsp()

    Dim wk As Workbook
    Set wk = Workbooks.Open("C:ДокументыОтчет.xlsx")
    
    Dim sh As Worksheet
    Set sh = wk.Worksheets(1)
    
    Dim rg As Range
    Set rg = sh.Range("A1:A10")
    
    Dim i As Long, count As Long, name As String
    For i = 1 To rg.Rows.count
        count = rg.Value
        name = rg.Offset(0, 1).Value
        Debug.Print name, count
    Next i
  
End Sub

Я лично предпочитаю последнее, так как оно делает код более
аккуратным, и его легче читать, обновлять и обнаруживать ошибки.

Использование Dim в циклах

Помещение оператора Dim в цикл не влияет на переменную.

Когда VBA запускает Sub (или Function), первым делом он
создает все переменные, которые были объявлены в выражениях Dim.

Следующие 2 фрагмента кода практически одинаковы. Во-первых,
переменная Count объявляется перед циклом. Во втором он объявлен в цикле.

Sub CountPeredCiklom()

    Dim count As Long

    Dim i As Long
    For i = 1 To 3
        count = count + 1
    Next i
    
    ' значение счета будет 3
    Debug.Print count

End Sub

Sub CountPosleCikla()

    Dim i As Long
    For i = 1 To 3
        Dim count As Long
        count = count + 1
    Next i
    
    ' значение счета будет 3
    Debug.Print count

End Sub

Код будет вести себя точно так же, потому что VBA создаст переменные при
входе в подпрограмму.

Могу ли я использовать Dim для присвоения значения?

В таких языках, как C ++, C # и Java, мы можем объявлять и назначать переменные в одной строке:

' C++
int i = 6
String name = "Иван"

Мы не можем сделать это в VBA. Мы можем использовать оператор двоеточия для размещения
объявлений и назначения строк в одной строке.

Dim count As Long: count = 6

Мы не объявляем и не присваиваем в одной строке VBA. Что мы
делаем, это помещаем эти две строки (ниже) в одну строку в редакторе. Что
касается VBA, это две отдельные строки, как здесь:

Dim count As Long
count = 6

Здесь мы помещаем 3 строки кода в одну строку редактора,
используя двоеточие:

count = 1: count = 2: Set wk = ThisWorkbook

Нет никаких преимуществ или недостатков в назначении и
объявлении в одной строке редактора. Все сводится к личным предпочтениям.

Dim действительно требуется?

Ответ в том, что это не обязательно. VBA не требует от вас
использовать Dim Statement.

Однако не использовать оператор Dim — плохая практика и
может привести к множеству проблем.

Вы можете использовать переменную без предварительного
использования оператора Dim. В этом случае переменная автоматически будет типом
варианта.

Это может привести к таким проблемам, как

1. Все переменные являются вариантами (проблемы с
   этим см. В разделе «Варианты»).
2. Некоторые переменные ошибки останутся
   незамеченными.

Из-за этих проблем рекомендуется сделать использование Dim
обязательным в нашем коде. Мы делаем это с помощью оператора Option Explicit.

Option Explicit

 Мы можем сделать Dim
обязательным в модуле, набрав «Option Explicit» в верхней части модуля.

Мы можем сделать это автоматически в каждом новом модуле,
выбрав Tools-> Options из меню и отметив флажок «Требовать декларацию
переменной». Затем, когда вы вставите новый модуль, «Option Explicit» будет
автоматически добавлен в начало.

Давайте посмотрим на некоторые ошибки, которые могут
остаться незамеченными, если мы не будем использовать Dim.

Ошибки Переменной

В приведенном ниже коде мы используем переменную Total без использования оператора Dim.

Sub BezDim()

    Total = 6
    
    Total = Total + 1
    
    Debug.Print Total

End Sub

Если мы случайно написали Total неправильно, VBA сочтет это
новой переменной.

В приведенном ниже коде мы неправильно написали переменную Total как Totall.

Sub BezDimOshibki()

    Total = 6
    
    ' Первый Total - это ошибка
    Totall = Total + 1
    
    ' напечатает 6 вместо 7
    Debug.Print Total

End Sub

VBA не обнаружит ошибок в коде, и будет напечатано неверное
значение.

Давайте добавим Option Explicit и попробуйте приведенный
выше код снова

Option Explicit 

Sub BezDimOshibki()

    Total = 6
    
    ' Первый Total - это ошибка
    Totall = Total + 1
    
    ' Напечатает 6 вместо 7
    Debug.Print Total

End Sub

Теперь, когда мы запустим код, мы получим ошибку «Переменная
не определена». Чтобы эта ошибка не появлялась, мы должны использовать Dim для каждой переменной,
которую мы хотим использовать.

Когда мы добавим оператор Dim для Total
и запустим код, мы получим ошибку, сообщающую, что опечатка Totall не была определена.

Это действительно полезно, так как помогает нам найти
ошибку, которая в противном случае осталась бы незамеченной.

Ошибка в ключевом слове

Вот второй пример, который более тонкий.

Когда следующий код выполняется, он должен изменить шрифт в
ячейке A1 на синий.

Однако, когда код запускается, ничего не происходит.

Sub ZadatCvet()

    Sheet1.Range("A1").Font.Color = rgblue

End Sub

Ошибка здесь в том, что rgblue должен быть rgbBlue. Если вы
добавите Option Explicit в модуль, появится ошибка «переменная не определена».
Это значительно облегчает решение проблемы.

Эти два примера очень просты. Если у вас много кода, то
подобные ошибки могут стать кошмаром для отслеживания.

Использование Dim с Basic Variables

VBA имеет те же основные типы переменных, которые
используются в электронной таблице Excel.

Вы можете увидеть список всех типов переменных VBA здесь.

Тем не менее, большую часть времени вы будете использовать следующие:

* Первоначально мы использовали бы тип Long вместо Integer,
потому что Integer был 16-разрядным, и поэтому диапазон был от -32 768 до 32
767, что довольно мало для многих случаев использования целых чисел.

Однако в 32-битной (или выше) системе целое число автоматически
преобразуется в длинное. Поскольку Windows была 32-битной начиная с Windows 95
NT, нет смысла использовать Integer.

В двух словах, всегда используйте Long для целочисленного
типа в VBA.

Фиксированный тип строки

В VBA есть один необычный тип базовой переменной, с которым
вы, возможно, не знакомы.

Это фиксированный тип строки. Когда мы создаем нормальную строку в VBA, мы можем добавить текст, и VBA автоматически изменит размер строки для нас.

Sub TipStroki()

    Dim s As String
    
    ' s is "Иван Петров"
    s = "John Smith"
    
    ' s is "Игорь"
    s = "Tom"

End Sub

Фиксированная строка никогда не изменяется. Эта строка
всегда будет иметь одинаковый размер независимо от того, что вы ей назначаете

вот несколько примеров:

Sub FiksStroka()
    
    Dim s As String * 4
    
    ' s is "Иван"
    s = "Иван Перов"
    
    ' s = "Игорь "
    s = "Игорь"

End Sub

Использование Dim с Variants

Когда мы объявляем переменную как вариант, VBA решает во время выполнения, какой
тип переменной должен быть.

Мы объявляем варианты следующим образом

' Оба варианта
Dim count
Dim count As Variant
Это звучит как отличная идея в теории. Больше не нужно беспокоиться о типе переменной
Sub IspVariants()
    
    Dim count As Variant
        
    count = 7
    
    count = "Иван"
    
    count = #12/1/2018#

End Sub

Однако использование вариантов является плохой практикой, и
вот почему:

1. VBA
   не будет замечать неправильных ошибок типа (т. Е. Несоответствие данных).
2. Вы не можете получить доступ к Intellisense.
3. VBA
   угадывает лучший тип, и это может быть не то, что вы хотите.

Тип ошибки

Ошибки твои друзья!

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

Ошибка несоответствия типов предупреждает вас, когда используются неверные данные.

Например. Представьте, что у нас есть лист оценок учеников.
Если кто-то случайно (или намеренно) заменит метку на текст, данные будут
недействительными.

Если мы используем вариант для хранения меток, то ошибки не
возникнет

Sub MarksVariant()
    
    Dim marks As Variant
    
    Dim i As Long
    For i = 1 To 10
        
        ' Прочитайте отметку
        mark = Sheet1.Range("A" & i).Value
        
    Next

End Sub

Это не хорошо, потому что в ваших данных есть ошибка, а вы
не знаете об этом.

Если вы зададите переменную Long, VBA сообщит вам об ошибке
«Несоответствие типов», если значения являются текстовыми.

Sub MarksLong()
    
    Dim mark As Long
    
    Dim i As Long
    For i = 1 To 10
        
        ' Прочитайте отметку
        mark = Sheet1.Range("A" & i).Value
        
    Next

End Sub

Доступ к Intellisense

Intellisense — удивительная особенность VBA. Он дает вам
доступные параметры в зависимости от типа, который вы создали.

Представьте, что вы объявляете переменную листа, используя
Dim

Когда вы используете переменную wk с десятичной точкой, VBA
автоматически отобразит доступные опции для переменной.

Вы можете увидеть Intellisense на скриншоте ниже

Если вы используете Variant как тип, то Intellisense будет
недоступен

Это потому, что VBA не будет знать тип переменной до времени
выполнения.

Использование Dim с Objects

Если вы не знаете, что такое Objects, вы можете прочитать
мою статью об VBA Objects здесь.

Есть 3 типа объектов:

1. Объекты Excel
2. Объекты модуля класса
3. Внешние объекты библиотеки

Примечание. Объект VBA Collection используется аналогично тому, как мы используем объект Class Module. Мы используем новое, чтобы создать его.

Давайте посмотрим на каждый из них по очереди.

Объекты Excel

Объекты Excel, такие как Рабочая книга, Рабочий лист,
Диапазон и т. Д., Не используют Новый, поскольку они автоматически создаются
Excel. Смотрите, «когда New не требуется».

При создании или открытии книги Excel автоматически создает
связанный объект.

Например, в приведенном ниже коде мы открываем рабочую
книгу. VBA создаст объект, а функция Open вернет книгу, которую мы можем
сохранить в переменной

Sub OtkrWorkbook()
    
    Dim wk As Workbook
    Set wk = Workbooks.Open("C:ДокументыОтчет.xlsx")

End Sub

Если мы создадим новый лист, произойдет похожая вещь. VBA
автоматически создаст его и предоставит доступ к объекту.

Sub DobavSheet()
    
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets.Add

End Sub

Нам не нужно использовать ключевое слово New для этих объектов Excel.

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

Вот несколько примеров назначения переменных Workbook, Worksheet и range

Sub DimWorkbook()
    
    Dim wk As Workbook
    
    ' назначить wk новой книге
    Set wk = Workbooks.Add
    
    ' назначить wk первой открытой книге
    Set wk = Workbooks(1)
    
    ' назначить wk рабочей книге Отчет.xlsx
    Set wk = Workbooks("Отчет.xlsx")
    
    ' назначить wk активной книге
    Set wk = ActiveWorkbook
    
End Sub

Sub DimWorksheet()
    
    Dim sh As Worksheet
    
    ' Назначить sh на новый лист
    Set sh = ThisWorkbook.Worksheets.Add
    
    ' Назначьте sh на крайний левый лист
    Set sh = ThisWorkbook.Worksheets(1)
    
    ' Назначьте sh на лист под названием «Клиенты»
    Set sh = ThisWorkbook.Worksheets("Клиенты")
    
    ' Присвойте sh активному листу
    Set sh = ActiveSheet

End Sub

Sub DimRange()

    ' Получить рабочий лист клиента
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("Клиенты")
    
    ' Объявите переменную диапазона
    Dim rg As Range
    
    ' Присвойте rg диапазону A1
    Set rg = sh.Range("A1")
    
    ' Назначьте rg в диапазоне от B4 до F10
    Set rg = sh.Range("B4:F10")
    
    ' Присвойте rg диапазону E1
    Set rg = sh.Cells(1, 5)
    
End Sub

Если вы хотите узнать больше об этих объектах, вы можете ознакомиться со следующими статьями: Workbook VBA, Worksheet VBA и Cell и Range VBA.

Использование Dim с Class Module Objects

В VBA мы используем Class Modules для создания наших собственных пользовательских объектов. Вы можете прочитать все о Class Modules здесь.

Если мы
создаем объект, нам нужно использовать ключевое слово New.

Мы можем сделать это в операторе Dim или в операторе Set.

Следующий код создает объект, используя ключевое слово New в выражении Dim:

' Объявить и создать
Dim o As New class1
Dim coll As New Collection

Использование New в выражении Dim означает, что каждый раз
при запуске нашего кода будет создаваться ровно один объект.

Использование Set дает нам больше гибкости. Мы можем создать
много объектов из одной переменной. Мы также можем создать объект на основе
условия.

Этот следующий код показывает, как мы создаем объект Class Module, используя Set. (Чтобы создать модуль класса, перейдите в окно проекта, щелкните правой кнопкой мыши соответствующую книгу и выберите «Вставить модуль класса». Подробнее см. «Создание Simple Class Module».)

' Объявить только
Dim o As Class1

' Создать с помощью Set
Set o = New Class1

Давайте посмотрим на пример использования Set. В приведенном ниже коде мы хотим
прочитать диапазон данных. Мы создаем объект только в том случае, если значение
больше 50.

Мы используем Set для создания объекта Class1. Это потому, что количество нужных нам объектов зависит от
количества значений более 50.

Sub IspSet()
    
    ' Объявите переменную объекта Class1
    Dim o As Class1
    
    ' Читать диапазон
    Dim i As Long
    For i = 1 To 10
        If Sheet1.Range("A" & i).Value > 50 Then

            ' Создать объект, если условие выполнено
            Set o = New Class1
            
        End If
    Next i

End Sub

Я сохранил этот пример простым для ясности. В реальной версии этого кода мы бы заполнили объект Class Module данными и добавили его в структуру данных, такую как Collection или Dictionary.

Вот пример реальной версии, основанной на данных ниже:

' Class Module - clsStudent
Public Name As String
Public Subject As String

' Стандартный модуль
Sub ChitatBalli()

    ' Создать коллекцию для хранения объектов
    Dim coll As New Collection
    
    ' Current Region получает соседние данные
    Dim rg As Range
    Set rg = Sheet1.Range("A1").CurrentRegion
    
    Dim i As Long, oStudent As clsStudent
    For i = 2 To rg.Rows.Count
        
        ' Проверьте значение
        If rg.Cells(i, 1).Value > 50 Then
            ' Создать новый объект
            Set oStudent = New clsStudent
            
            ' Читать данные на объект студента
            oStudent.Name = rg.Cells(i, 2).Value
            oStudent.Subject = rg.Cells(i, 3).Value
            
            ' добавить объект в коллекцию
            coll.Add oStudent
            
        End If
        
    Next i
    
    ' Распечатайте данные в Immediate Window, чтобы проверить их
    Dim oData As clsStudent
    For Each oData In coll
        Debug.Print oData.Name & " studies " & oData.Subject
    Next oData

End Sub

Чтобы узнать больше о Set вы можете заглянуть сюда.

Объекты из внешней библиотеки

Действительно полезная часть VBA — это то, как у нас есть
доступ к внешним библиотекам. Это открывает целый новый мир тому, что мы можем
сделать.

Примерами являются библиотеки Access, Outlook и Word,
которые позволяют нам взаимодействовать с этими приложениями.

Мы можем использовать библиотеки для различных типов
структур данных, таких как Словарь, Массив, Стек и Очередь.

Существуют библиотеки для очистки веб-сайта (библиотека
объектов Microsoft HTML), использования регулярных выражений (регулярные
выражения Microsoft VBScript) и многих других задач.

Мы можем создать эти объекты двумя способами:

1. Раннее связывание
2. Позднее связывание

Давайте посмотрим на это по очереди.

Раннее связывание

Раннее связывание означает, что мы добавляем справочный
файл. Как только этот файл добавлен, мы можем рассматривать объект как объект
модуля класса.

Мы добавляем ссылку, используя Tools-> Reference, а затем
проверяем соответствующий файл в списке.

Например, чтобы использовать словарь, мы ставим флажок
«Microsoft Scripting Runtime»

Как только мы добавим ссылку, мы можем использовать словарь
как объект модуля класса

Sub RanSvyaz()

    ' Используйте только Dim
    Dim dict1 As New Dictionary
    
    ' Используйте Dim и Set
    Dim dict2 As Dictionary
    Set dict2 = New Dictionary

End Sub

Преимущество раннего связывания заключается в том, что у нас
есть доступ к Intellisense. Недостатком является то, что это может вызвать
конфликтные проблемы на других компьютерах.

Лучше всего использовать раннюю привязку при написании кода,
а затем использовать позднюю привязку при распространении кода другим
пользователям.

Позднее связывание

Позднее связывание означает, что мы создаем объект во время
выполнения.

Мы объявляем переменную как тип «Объект». Затем мы
используем CreateObject для создания объекта.

Sub PozdSvyaz()

    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
End Sub

Использование Dim с Arrays

В VBA есть два типа массивов:

1. Статический — размер массива задается в
   операторе Dim и не может изменяться.
2. Динамический — размер массива не указан в
   выражении Dim. Это устанавливается позже с помощью оператора ReDim

' Статический массив

' Магазины 7 длинных - от 0 до 6
Dim arrLong(0 To 6) As Long

' Магазины 7 длинных - от 0 до 6
Dim arrLong(6) As String

Динамический массив дает нам гораздо больше гибкости. Мы
можем установить размер во время выполнения кода.

Мы объявляем динамический массив, используя инструкцию Dim,
и устанавливаем размер позже, используя ReDim.

' Динамический массив

' Объявите переменную
Dim arrLong() As Long

' Установить размер
ReDim arrLong(0 To 6) As Long

Использование ReDim

Большая разница между Dim и ReDim
заключается в том, что мы можем использовать переменную в выражении ReDim. В операторе Dim размер должен быть
постоянным значением.

Sub IspSet()

    ' Объявите переменную
    Dim arrLong() As Long
    
    ' Спросите пользователя о размере
    Dim size As Long
    size = InputBox("Пожалуйста, введите размер массива.", Default:=1)
    
    ' Установите размер на основе пользовательского ввода
    ReDim arrLong(0 To size) As Long

End Sub

На самом деле мы можем использовать оператор Redim без
предварительного использования оператора Dim.

В первом примере вы можете видеть, что мы используем Dim:

Sub IspDimReDim()

    ' Использование Dim
    Dim arr() As String

    ReDim arr(1 To 5) As String
    
    arr(1) = "Яблоко"
    arr(5) = "Апельсин"
    
End Sub

Во втором примере мы не используем Dim:

Sub IspTolkoReDim ()

    ' Использование только ReDim
    ReDim arr(1 To 5) As String
    
    arr(1) = "Яблоко"
    arr(5) = "Апельсин"
    
End Sub

Преимущество состоит в том, что вам не нужно тусклое
утверждение. Недостатком является то, что это может сбить с толку тех, кто
читает ваш код. В любом случае это не имеет большого значения.

Вы можете использовать ключевое слово Preserve с ReDim для сохранения существующих данных при изменении размера массива. Вы можете прочитать больше об этом здесь.

Вы можете найти все, что вам нужно знать о массивах в VBA здесь.

Устранение неполадок ошибок  Dim

В таблице
ниже приведены ошибки, с которыми вы можете столкнуться при использовании Dim. См. Ошибки VBA для
объяснения различных типов ошибок.

Локальные и глобальные переменные

Когда мы используем Dim в процедуре (то есть подпрограмме или функции), она считается
локальной. Это означает, что это доступно только с этой процедурой.

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

В приведенном ниже коде мы объявили count как глобальную переменную:

' Глобальная
Dim count As Long
Sub UseCount1()
    count = 6
End Sub
Sub UseCount2()
    count = 4
End Sub

Что произойдет, если у нас будет глобальная переменная и
локальная переменная с одинаковым именем?

На самом деле это не вызывает ошибку. VBA дает приоритет локальной декларации.

' Глобальная
Dim count As Long

Sub UseCount()
    ' Локальная
    Dim count As Long
    
    ' Относится к локальному счету
    count = 6
    
End Sub

Подобная ситуация может привести только к проблемам, так как
трудно отследить, какой счет используется.

Вообще глобальных переменных следует избегать, где это
возможно. Они делают код очень трудным для чтения, потому что их значения могут
быть изменены в любом месте кода. Это затрудняет обнаружение и устранение ошибок.

Важно знать и понимать глобальные переменные как вы,
поскольку вы можете встретить их в существующем коде.

Dim против Private

В VBA есть ключевое слово Private.

Если мы используем ключевое слово Private с переменной или
подфункцией / функцией, то этот элемент доступен только в текущем модуле.

Использование Dim и Private для переменной дает тот же
результат

' Доступно во всем этом модуле
Private priCount As Long
Dim dimCount As Long

Sub UseCount()

    ' Доступно только в этом разделе
    Private priName As String
    Dim dimName As String
    
End Sub

В VBA принято использовать Private для глобальных переменных
и Dim для локальных

' Доступно во всем этом модуле
Private priCount As Long

Sub UseCount()
    ' Только локальный
    Dim dimName As String
    
End Sub

Local OnlyThere
в VBA есть 2 других
типа объявлений, которые называются Public и Global.

Ниже приводится краткое изложение всех 4 типов:

1. Dim
   — используется для объявления локальных переменных, т. Е. В процедурах.
2. Private
   — используется для объявления глобальных переменных и процедур. Эти переменные
   доступны только для текущего модуля.
3. Public
   — используется для объявления глобальных переменных и процедур. Эти переменные
   доступны во всех модулях.
4. Global
   — старая и устаревшая версия Public.
   Может использоваться только в стандартных модулях. Он существует только для обратной
   совместимости.

Заключение

На этом мы заканчиваем статью о VBA Dim Statement. Если у вас есть
какие-либо вопросы или мысли, пожалуйста, дайте мне знать в комментариях ниже.

In a computer system, variables and data types are almost used in every program to store and represent data. Similarly, Excel VBA also has variables and data types to store and represent data and its type. In this article, we will learn about VBA variables, their scope, data types, and much more.

VBA Variables

VBA(Visual Basic for Application) variables are similar to other programming languages variables, they act as a container that is used to store data(integer, string, floats, etc). We can use the variables in the code at multiple places and executer the programs.

Defining Variables In VBA

VBA gives permission to define variables in two ways:

1. Implicitly – In VBA, we can implicitly declare variables using the assignment(=) operator. All the variables that are implicitly declared in VBA are of type “Variant“. The variant type variables required more memory space than usual variables. Example: label=”gfg”
2. Explicitly – Explicitly we can declare variables using “Dim” keyword. Explicit variable also reduces the naming conflicts and spelling mistakes. Example: Num as password

Syntax For VBA Variables

// macro definition

Sub VBA_Variable_Example ()

        Dim <name>

End Sub

VBA Variables Rule:

1. Its length should be less than 255 characters.
2. No space is allowed between characters.
3. It should not starts with an integer.
4. Period(.) is not allowed in between the characters.

Example:

In this example, we will define a macro in excel, And we will enter the code inside that macro and execute the code to understand the working of VBA variables in excel.

Step 1: First, we will make our Developer option available in the Excel toolbar. For this, go to any of the tools(here, we are choosing Draw) and then right-click on it and select the “Customize the Ribbon..” option.

The excel will open pop-up options, there we need to check the Developer checkbox and click on OK. This will enable the Developer option and make it available in the excel top toolbar.

Step 2: In this step, we will declare our variable in the visual basic editor. For this go to Developer > Visual Basic Editor.

This will open the Visual Basic Code Editor, where we are required to write our VBA script.

Step 3: In this step, we will write our VBA scripts. For this, we will double click on ThisWorkbook under Microsoft excel objects in the left pan and open the editor and write the following code to it.

Sub VBA_Variable_GFG_Example()

Range(“a1”).Value = “Data Structure Course”

Range(“b1”).Value = “Data Structure Course”

Range(“c1”).Value = “Data Structure Course”

Var = “Data Structure Course”

Range(“a3”).Value = Var

Range(“b3”).Value = Var

Range(“c3”).Value = Var

End Sub

In the above, we can see without using variables if we want to make changes to the string “Data Structure Course” and add “GeeksForGeeks” before every string, we need to repeat it at three different places. But if we use a variable then we just need to change it at one place where we declare our variable. This will reduce the workload.

Sub VBA_Variable_GFG_Example()

Range(“a1”).Value = “Data Structure Course”

Range(“b1”).Value = “Data Structure Course”

Range(“c1”).Value = “Data Structure Course”

Var = “GeeksForGeeks – Data Structure Course”

Range(“a3”).Value = Var

Range(“b3”).Value = Var

Range(“c3”).Value = Var

End Sub

We will write this code in the VBS script editor and execute it. This will print the output string in the cells defined in the code.

Once, we execute it using the Run button, we will get the following output.

Scope Of VBA Variables

The scope of variables is determined when we declare the variable. In VBA, the scope tells where the variable may be used. There is three level of scopes of the variable:

1. Procedure Level: These are those variables that can be used within the procedure they are defined. A Procedure is either a Sub or a Function

Example: In this example, we will see the procedure level of the VBA variable’s scope. For this open the VBA editor and write the following code to it.

Sub sub1()

Dim res As String

res = “The variable which can be used within the procedure they are defined in.”

Range(“a1”).Value = res

End Sub

Once, we click on the Run button in the VBA editor, we will the output. The text will get printed to cell A1.

2. Module Level: It is also known as the Private Module Level. It can be used by any procedures within the same module. These variables must be declared outside of all the procedures, at the top of the module.

Example: In this example, we will look for the module scope of variables. For this, we will create a new module. We will open VBA Editor and in the left pane (project explorer) we will Right-Click and create a new module add the following code to it.

Dim txt As String

Sub ProcedureDemo()

txt = “A Sub or Function is a Procedure, variables defined inside them only accessible within them”

Range(“a1”).Value = txt

End Sub

Sub PrivateModuleDemo()

txt = “Variable which is define inside a module, are accessible by all the procedures within that module”

Range(“a2”).Value = txt

End Sub

After this, we just need to click on the Run button. Also, when we run it, it asks for which macros to run, there we need to choose “Macros In: <All Projects>“.

 Once we run it, we will get the output in cells A1 and A2. 

3. Public Module Level: As the name suggests, the public module variables scope is at the Project level. If we define any variable as a public module variable it can be used in any module inside that project.

Example: In this example, we will add two different modules and define a public VBA variable inside one module and try to access it from both modules. Below is the code for module1 and module2.

Module1

Public res As String

Sub demo_1()

res = “geeks”

Range(“a1”).Value = res

End Sub

Module2

Sub demo_2()

res = “geeksforgeeks”

Range(“a2”).Value = res

End Sub

Once, done with both the modules. Just click on the Run button. The output will get printed in cells A1 and A2,

Lifetime Of Variable

The variables can retain their value up to their scope. The lifetime of a variable tells about how long a variable can retain its value. In order to extend the scope and so, the lifetime of a variable we need to declare the variable with a static keyword. If we declare a variable with a static keyword, the variables will retain their value even after all the macros are finished execution.

Example: In this example, we will define a variable using the static keyword and execute it multiple time to check whether it retains the value or not. We need to write the following code to the VBA Editor.

Sub StaticVariableDemo()

Static count As Integer

count = count + 1

MsgBox (count)

End Sub

After this, we need to execute it. Every time we will click on the run button the MessageBox will return the updated value. (1, 2, 3…..) and thus it will extend its scope and lifetime.

VBA Data Types

In computers, we use data types to differentiate between the integers and strings, etc. The data types which we will assign to a variable, decide what should be stored in that variable, i.e., the values that need to be stored in the variable is depends on the data type of the variable. In VBA, data types are divided into two major types:

1. Numeric Data Type: Numeric data types are used to perform mathematical operations such as addition, subtraction, etc. It is used to handle the numbers in various representations format. In numeric data type, the Integral Type represents only the whole numbers(zero, positive & negative). Non-Integral Types represent both the integer and the fractional part.

2. Non-Numeric Data Type: Non-Numeric data types are not manipulated by the arithmetic operators. These are comprised of texts, data, etc.

Note: If we do not declare any data type, the VBA will be default makes variable as a variant type.

Example:

In this example, we will write a simple script to create a button and with one click of that button an event will occur and we will get the output.

Step 1: First we will insert a command button in our excel worksheet. For this go to Developer > Insert > Command Button and click on it.

 After that, we can insert the button anywhere in the sheet we want. We just need to drag it over the excel sheet.

Step 2: In this step, we will write the script for our button. For this just double-click on the button. This will open the VBA Script Editor where we will write the following code. In the below code, we are defining GFG and course as String data type and res as Integer data type.

Private Sub CommandButton1_Click()

Dim GFG As String, res As Integer, course As String

GFG = “GeeksForGeeks”

res = “01”

course = “Interview Preparation”

Range(“a1”).Value = GFG

Range(“b1”).Value = res

Range(“c1”).Value = course

End Sub

Step 3: In this step, we will save our script. For this click on the Save button in the VBA Editor. 

The excel will popup a window asking for saving the macros. We need to click “Yes” and it will save it.

Step 4: Now, we will execute our script. For this, we need to click over the command button. But before clicking over it, we are required to come out of Design Mode. To move out of any mode just click on mode once.

Once we are done with this, we will execute our script by clicking over the commandButton1. It will give the following output.

Note: If we write “01” in any cell in excel, it will print “1” by default. That’s why the in output, in cell b1 only “1” is printed.

Переменные и константы в VBA

​Смотрите также​ конкретным вопросом (что​ данных Long​ тип указать. Поверьте,​ и объявлять переменные​ по ссылке​ vbNewLine & TypeName(l)​, Запустите для проверки​ пользователю должно быть​Нажмите​

​ выражение:​​ полезным ещё раз​​Sub​ константам.​ зависит от того,​Если все переменные​вместо​В VBA, как и​ нужно сделать/для чего)​

​DefCur — Тип​ столько было ошибок​ и их количество.​​RAN​​ & vbNewLine &​ такой макрос​ показано сообщение об​​Alt+F8​​=SumMinus(10, 5, 2)​ взглянуть на особенности​в VBA добавляет​Option Explicit Public sVAT_Rate​

Типы данных

​ где было сделано​ объявляются, то можно​Double​ в любом другом​ — возможно получится​ данных Currency​ из-за того, что​ Варианты переменных я​

​: Вот уж воистину​ TypeName(d)​

​ с соответствующим параметром.»​DefDate — Тип​Все_просто​ байтам- тёмный лес.​ модуль? Какие бывают​: Насколько мне известно​[a1] = w​​ VAT_Amount = 0​​).​​ вот такими открывающим​​и​​ при помощи аргумента,​​Public​​ функции​​ все не объявленные​ было попыток уместить​ переменные могут изменяться,​А вот этого,​ данных Date​: Если хотите работать​ Вот если не​ модули?​

Объявление переменных и констант

​ такой способ возможен​​[a2] = e​ If sVAT_Rate​В появившемся списке макросов​ и закрывающим операторами:​Sub​ вот так:​использовано для объявления​Total_Cost​ переменные.Таким образом исключается​ в них не​
​ константы же хранят​ если честно, не​DefStr — Тип​
​ профессионально в VBA,​ трудно, то в​
​combat​​ только в VB.NET.​​End Sub​
​Обратите внимание, что перед​ выберите тот, который​

​Sub … End​и показаны простые​Sub AddToCells(i As​ переменной​. В следующей таблице​ появление в программе​

​ соразмерно большие значения.​​ фиксированные значения.​​ понял. Знаний еще​​ данных String​

​ то нужно приучать​ каком случае выбирать​​: Так у меня​​Ни в VB6,​и Вам сразу​ тем, как завершить​ хотите запустить.​​ Sub​​ примеры.​ Integer) … End​sVAT_Rate​ рассмотрены два варианта​ ошибки в результате​

​Примечание переводчика:​Например, константа​ маловато….​

​DefObj — Тип​ себя объявлять все​ string, а в​ один код в​ ни в VBA​

​ все станет ясно​ выполнение процедуры​Нажмите​

​Рассмотрим пример простой VBA​Редактор VBA распознаёт процедуру​ Sub​и константы​ области действия переменной​ не верно записанного​​Говоря о переменных​​Pi​Jack Famous​ данных Оbject​

​ переменные. Для дисциплинирования​ каком Boolean, а​ форме, а другой​ он не катит.​Wowick​Function​Выполнить​ процедуры​​Function​​Имейте в виду, что​iMax_Count​sVAT_Rate​

1. ​ имени переменной. Например,​ в VBA, стоит​​хранит значение 3,14159265…​: тем более на​DefVar — Тип​ можно нажать на​ в каком variant.​ на листе, переменную​​Кстати в VB.NET​​: Неужели самому сложно​–​(Run)​Sub​, когда встречает группу​ наличие аргументов для​. Областью действия объявленных​, объявленной в двух​ используя в коде​ упомянуть ещё один​ Число «Пи» не​ форум​ данных Variant​ птичку в настройках,​Спасибо​​ я привязываю от​​ тип данных относится​ проверить???​​VAT_Amount​​Чтобы выполнять процедуру​​, задача которой –​​ команд, заключённую между​ процедур​ таким образом элементов​ различных позициях в​​ переменную с именем​​ очень важный момент.​ будет изменяться в​А перед этим​Jack Famous​ где указывается, что​​vikttur​​ формы, где должно​ ко всем переменным​
2. ​Написал вот такой​, в код вставлена​​Sub​ изменить форматирование выделенного​ вот такими открывающим​Function​​ будет весь текущий​​ модуле:​sVAT_Rate​ Если мы объявляем​ ходе выполнения программы,​ почитать про диалоги​: Alemox, так по​ в самом верху​: В зависимости от​ присвоится к «rrr»​ в строке:​​ макрос:​​ встроенная VBA функция​быстро и легко,​ диапазона ячеек. В​ и закрывающим операторами:​и​ проект.​​Option Explicit Dim sVAT_Rate​​, можно допустить опечатку​ переменную, но не​ но все же​ и их особенности​ вашей же ссылке​ модуля всегда будет​ данных, для которых​ либо значение 21​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim i, j, k​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub start()​MsgBox​​ можно назначить для​​ ячейках устанавливается выравнивание​
3. ​Function … End​Sub​​Это значит, что​ As Single Function​ и, присваивая значение​ присваиваем ей какое-либо​ хранить такое значение​Как минимум, InputBox​ всё это есть)​ указываться option explicit.​ предназначены переменные.​ либо 25 для​ As Integer​Dim i, k,​, которая показывает пользователю​ неё комбинацию клавиш.​ по центру (и​ Function​в VBA не​sVAT_Rate​ Total_Cost() As Double​ этой переменной, записать:​ значение, то она​ удобнее как константу.​ и Application.InputBox —​ крутая вещь, но​Примитивы объявлять большого​Текстовые -​ кода листа (РСИ),​В VB.NET все​ n As Integer​ всплывающее окно с​ Для этого:​

​ по вертикали, и​Как упоминалось ранее, процедура​ является обязательным. Для​и​ … End Function​ «VATRate = 0,175».​ инициализируется значением по​В то же время​ разные вещи. К​ я пока «ручками»​

Option Explicit

​ смысла нет, можно​​Sring​​модуль в общем​ переменный будут Integer​i = 1.65​ предупреждением.​Нажмите​ по горизонтали) и​Function​ некоторых процедур аргументы​iMax_Count​Если переменная​ Ожидается, что с​ умолчанию:​ мы можем использовать​ тому же, там​

​ каждую всё-таки задаю​

​ все оставлять variant​​, логические -​​ проекте есть но​В VB6 и​k = 2.65​Урок подготовлен для Вас​Alt+F8​ размер шрифта изменяется​​в VBA (в​​ не нужны.​будут доступны в​

​sVAT_Rate​

• ​ этого момента, переменная​• текстовые строки​​ переменную​​ есть другие параметры,​​Alemox​
• ​ и не сильно​Boolean​​ он не использует​
• ​ VBA k Integer​​n = 7.65​​ командой сайта office-guru.ru​​.​

​ на заданный пользователем:​​ отличие от​​Процедуры VBA могут иметь​ любом модуле проекта.​объявлена в самом​

Область действия переменных и констант

​sVAT_Rate​ — инициализируются пустыми​sVAT_Rate​ кроме названия (например​: Jack Famous, Да​ заморачиваться (хотя лучше​. Всяческие счетчики, количества​ эту переменную​i, j -​MsgBox i &​Источник: http://www.excelfunctions.net/VBA-Functions-And-Subroutines.html​В появившемся списке макросов​​Sub Format_Centered_And_Sized(Optional iFontSize​​Sub​ необязательные аргументы. Это​​Option Explicit Private sVAT_Rate​​ начале модуля, то​должна содержать значение​ строками;​​для хранения ставки​​тип получаемых данных​ я увидел тоже​ объявлять — правило​

​ предназначены для хранения​RAN​, Зато вот так​Запустил и тут​​ в интернете встречаются​​Параметры​ iFontSize End Sub​ должен быть объявлен​ то процедура использует​ объявления переменной​будет распознаваться всеми​ обязательного объявления всех​​— False;​​ зависимости от того,​ создавайте тему на​​ в которой хорошо​​ массив достаточно большой).​

​ целых чисел в​: Понажимайте кнопочки​ работает:​ же увидел результат.​​ разные разъяснения:​​(Options) и в​Данная процедура​​ в заголовке процедуры​​ для них заданные​sVAT_Rate​ процедурами в этом​ используемых переменных, то​• даты —​

​ что за товар​ форуме.​ описано не вникая​​ А вот объекты​​ зависимости от разрядности​​_Boroda_​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub test()​Анатолий​​Вот на одном​​ появившемся диалоговом окне​Sub​

​Function​ по умолчанию значения.​​и константы​​ модуле).​​ компилятор VBA сразу​​ 30 декабря 1899.​ приобретается.​FreddyLumix​

​переменной​ не найдёт переменную​
​ нужно объявить. Для​
​ типу данных. В​

​Иду читать про​

office-guru.ru

Процедуры «Function» и «Sub» в VBA

Встроенные функции VBA

​ тоже имеется. Ну​ obj/dim obj as​ до 255, другие​ нет, а весь​Next​ n As Integer​ без повторения типа​и закройте диалоговое​ использован необязательный (Optional)​

​ названа так же,​ его нужно объявить​. Областью действия этих​

• ​sVAT_Rate​VATRate​ этого в макрос​ таблице ниже приведены​​ диалоги!..)))​​ ладно. Повторение мать​​ object), если используем​​ и +, и​
• ​ код где-то в​End Sub​i = 1.65​​ данных. В следующих​​ окно​
• ​ аргумент​ как и процедура​ вот так:​ элементов является текущий​будет присвоено некоторое​среди объявленных.​ добавляют вот такую​​ типы данных, используемые​​Юрий М​ учения.​

​ late binding, либо​ -). Для дробных​ других местах, Вам​combat​k = 2.65​ операторах переменные i​

Пользовательские процедуры «Function» и «Sub» в VBA

​Макрос​iFontSize​Function​Sub AddToCells(Optional i​​ модуль.​​ значение, то следующая​​Выделение значений, не соответствующих​​ простую строку кода:​ в VBA, с​​: Я не думаю​​FreddyLumix​​ по типу (dim​​ данных​ нужно его (модуль)​​: В исполняемом коде​​n = 7.65​​ ,j и k​​(Macro).​

​. Если аргумент​. Эту переменную не​ As Integer =​Это значит, что​ функция, выполняемая в​ объявленному типу переменной.​​Dim​​ описанием и диапазоном​ — я знаю.​: Доброго времени суток!​ rng as range/dim​Single, Double​ создать и там​​ формы объявил глобальную​​MsgBox i &​

Аргументы

​ объявляются как тип​Внимание:​iFontSize​ нужно объявлять отдельно,​ 0)​sVAT_Rate​​ пределах этого же​​Если объявить переменную​Имя_Переменной​ возможных значений:​ А, если Вы​Я чайник в​ cln as collection/dim​… и т.д.​ написать одну строку​

​ переменную rrr​ » » &​ Integer, l и​

​Назначая сочетание клавиш​не передан процедуре​ так как она​​В таком случае целочисленный​​и​​ модуля, будет использовать​​ определённого типа и​As​Тип данных Размер​ сомневаетесь,- проверьте )​

Необязательные аргументы

​ VBA, только делаю​ appOutlook as Outlook.Application),​Если переменная для​ -​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Option Explicit​ k & «​ m как Long,​ для макроса, убедитесь,​Sub​

​ всегда существует как​ аргумент​iMax_Count​ переменную​ попытаться присвоить ей​

​Тип_Данных​ Описание Диапазон значений​Про Application.InputBox -​

​ первые шаги…Подскажите, как​ если используем early​​ объекта (диапазон, лист,​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public rrr As Integer​’​

​ » & n​ x и y​ что оно не​, то его значение​ неотъемлемая часть процедуры​

Передача аргументов по значению и по ссылке

​i​будут доступны во​sVAT_Rate​

• ​ данные другого типа,​​В показанной выше строке​Byte​ почитайте справку. Ну​ решить следующую проблемку.​ binding.​ книга), можно​combat​Public rrr As​End Sub​ как Single:​ используется, как стандартное​
• ​ по умолчанию принимается​​Function​по умолчанию будет​ всех процедурах текущего​с этим же​ то появится ошибка,​ кода​1 байт​ не дело здесь​ Создан скрипт, который​В использовании Early​

​Object,​​: Что то я​​ Integer​​Ясно. Значит нужно​​Dim i, j,​ в Excel (например,​ равным 10. Однако​.​ равен 0.​ модуля, но не​

​iFontSize​ следующем примере.​ может быть несколько,​ процедур, находящихся в​ какая-то функция, расположенная​ в работе программы.На​​ переменной, которая будет​​ данных​​: Ещё про​​В нем, как​ intellisense (автопоказ свойств/методов/пр.)​

​Range, Worksheet​ не знаю​​ As Range​​ String, S2 As​​ variables in the​​ существующее сочетание клавиш,​ передается процедуре​Ниже приведён пример кода​ все они перечисляются​ других модулях.​ в другом модуле,​ первый взгляд, это​​ использована в коде,​​от 0 до 255​​InputBox:​​ переменная, обьявляется массив:​ после вставки точки​

VBA процедура «Function»

​…​​в вашем примере​​Dim roww As​ String, S3 As​ preceding statement are​ то оно будет​

​Sub​ VBA процедуры​

​ в конце списка​​Урок подготовлен для Вас​​ то для неё​ может показаться хорошей​​ а​​Boolean​возможно, выручит неявное​Dim My_Data (1​

• ​ (например rng.)​Variant​ глобальную переменную объявили​​ Long​​ String​
• ​ declared as Integer.​ переназначено макросу, и​, то в выделенном​Function​​ аргументов.​​ командой сайта office-guru.ru​ переменная​ причиной, чтобы не​Тип_Данных​2 байта​​ преобразование текста в​​ to 20) As​

​И еще одно​можно не указывать​

Пример VBA процедуры «Function»: Выполняем математическую операцию с 3 числами

​ в модуле, где​в этой форме​​Спасибо​​Dim l, m​ в результате пользователь​​ диапазоне ячеек будет​​, которая получает три​Аргументы в VBA могут​Источник: http://www.excelfunctions.net/VBA-Variables-And-Constants.html​sVAT_Rate​ объявлять переменные, но​​– это один​​Может принимать значения либо​ число, но лучше​ Variant​

​ замечание. Старайтесь объявлять​ — по умолчанию​ и прописали код,​ должен получить значения​Hugo​ As Long, x,​ может запустить выполнение​

​ установлен размер шрифта,​ аргумента типа​​ быть переданы процедуре​​Перевел: Антон Андронов​будет не известна.​ на самом деле,​ из типов данных​ True, либо False​ не рисковать )​​’где 20 -​​ ВСЕ переменные/константы. При​ так и есть.​​ но я то​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub OptionButton1_Change()​: Такой вариант:​ y As Single​ макроса случайно.​​ заданный пользователем.​​Double​ двумя способами:​Автор: Антон Андронов​

Вызов VBA процедуры «Function»

​Option Explicit Function Total_Cost()​ чем раньше выяснится,​​ из таблицы, приведённой​​True или False​eugene.v​ длина массива, впрочем​ необходимости вводите enum/создавайте​ Под​ не использую модуль​Frame1.Height = 150​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Option Explicit​

Вызов VBA процедуры «Function» из другой процедуры

​’ In the​​В части 2 данного​​Следующая процедура похожа на​(числа с плавающей​ByVal​Перед тем, как приступить​ As Double Dim​ что одна из​ чуть ранее в​​Integer​​: Есть 2 файла,​ для людей сведующих​

​ новые классы.​Variant​прописал там переменную​If OptionButton1.Value =​’Иногда удобнее использовать​

Вызов VBA процедуры «Function» из рабочего листа

​ preceding statement, l​​ самоучителя обсуждалась тема​​ только что рассмотренную,​ точкой двойной точности).​– передача аргумента​ к созданию собственных​ sVAT_Rate As Single​ переменных получила не​ этой статье. Например:​​2 байта​​ ниже выдержки из​​ понятно и без​​Например намного приятнее​выделяется область памяти​ и то же​ True Then​

​ префиксы, причём по​

VBA процедура «Sub»

​ and m are​ области действия переменных​​ но на этот​​ В результате процедура​ по значению. Это​ функций VBA, полезно​ … End Function​

​ те данные, которые​Dim sVAT_Rate As​

VBA процедура «Sub»: Пример 1. Выравнивание по центру и изменение размера шрифта в выделенном диапазоне ячеек

​Целые числа (нет дробной​ кода. В представленном​​ комментов.​​ разбираться в коде,​ с запасом, по​ самое​rrr = 21​ двум причинам​ Long, x and​ и констант и​ раз, вместо изменения​ возвращает ещё одно​

​ значит, что процедуре​ знать, что Excel​Если переменная​ должна была получить​ Single Dim i​ части)​

​ виде все работает,​​Теперь формулирую вопрос:​​ когда написано:​ максимуму, т.к. программа​

​может быть я​…​’1 — первая​​ y are Single.​​ роль ключевых слов​​ размера, применяется полужирное​​ число типа​​ передаётся только значение​​ VBA располагает обширной​sVAT_Rate​ – тем лучше!​ As Integer​​от -32 768 до +32 767​​ но стоит в​​ С учетом того,​​arr(enProduct1) = …​ не знает. что​ не так объясняю,​End Sub​

VBA процедура «Sub»: Пример 2. Выравнивание по центру и применение полужирного начертания к шрифту в выделенном диапазоне ячеек

​ буква имени уже​Вот на другом:​Public​ начертание шрифта в​Double​ (то есть, копия​ коллекцией готовых встроенных​объявлена в начале​​ Иначе, если программа​​Аналогично объявляются константы, но​Long​

​ первом дописать объявление​ что длина массива​ arr(enOrder2) = …​ Вы собрались помещать​ может быть весь​

Вызов процедуры «Sub» в Excel VBA

Вызов VBA процедуры «Sub» из другой процедуры

​Private Sub OptionButton2_Change()​​ подсказывет её тип​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Очень частая ошибка​и​ выделенном диапазоне ячеек.​​, равное сумме первых​​ аргумента), и, следовательно,​​ функций, которые можно​​ функции​ продолжит работу, результаты​ при объявлении констант​4 байта​

​ переменных через «Dim​ ( в нашем​

​чем​​ в переменную.​​ файл скинуть​Frame1.Height = 150​’2 — не​ при объявлении переменных,​

​Private​ Это пример процедуры​ двух аргументов минус​

Вызов VBA процедуры «Sub» из рабочего листа

​ любые изменения, сделанные​​ использовать при написании​​Total_Cost​ могут оказаться неверными​ обязательно сразу указывается​Большие целые числа (нет​ x, y», или​ случае 20), возможно​​arr(75)= … arr(23)​​Да все это​​после заполнения бланка​​If OptionButton2.Value =​ указываем тип при​​ совершаемая начинающими изучать​​. Эти ключевые слова​Sub​​ третий аргумент:​​ с аргументом внутри​ кода.​, то её область​ и неожиданными, а​ их значение. Например,​ дробной части)​​ во втором эту​​ будет меняться, хотелось​ = …​ описано-переописано…​​ и нажатия кн.​​ True Then​ объявлении (что и​ VBA:​ так же можно​​, которой не передаются​​Function SumMinus(dNum1 As​ процедуры, будут потеряны​Список этих функций можно​

​ действия будет ограничена​ найти причину ошибок​​ вот так:​​от -2 147 483 648 до +2 147 483 647​ строку убрать, добавив​

• ​ бы реализовать скрипт​​Кроме того, если​​Количество — в​​ Печать идет сохранение​​rrr = 25​ требовалось)Код Visual Basic​​Dim MyVar1, MyVar2,​​ использовать применительно к​
• ​ никакие аргументы:​ Double, dNum2 As​ при выходе из​
• ​ посмотреть в редакторе​​ только этой функцией​​ будет гораздо сложнее.Возможно​

​Const iMaxCount =​​Single​​ «Set» перед присвоением​ в таком виде:​ в будущем константа​ зависимости от решаемой​

• ​ вот здесь ругается,​​…​​’В секции Declaration​
• ​ MyVar3 As Integer​ VBA процедурам:​Sub Format_Centered_And_Bold() Selection.HorizontalAlignment​ Double, dNum3 As​
• ​ неё.​​ VBA:​​ (т.е. в пределах​ также, что макрос​ 5000 Const iMaxScore​
• ​4 байта​​ значения переменной, как​​Dim My_Data (1​ поменяется, вы это​​ задачи и применяемых​​ выскочит ошибка​

​End If​​DefInt I​Вроде бы исходя​Public Sub AddToCells(i As​ = xlCenter Selection.VerticalAlignment​ Double) As Double​​ByRef​​Откройте рабочую книгу Excel​ функции​ будет «успешно» выполнен.​ = 100​Число с плавающей точкой​ редактор VBA ругается.​ to a) As​

Область действия процедуры VBA

​ будете менять только​ алгоритмов. Чем меньше,​_Boroda_​End Sub​DefLng L​​ из логики всем​​ Integer) … End​​ = xlCenter Selection.Font.Bold​​ SumMinus = dNum1​– передача аргумента​ и запустите редактор​Total_Cost​

​ В модуль1 сверху​ появляется ошибка, код​Sub Макрос1()​​ данных Integer. Но​​Если перед объявлением процедуры​​ Sub​​ dNum3 End Function​ есть процедуре передаётся​ этого​ переменную​​ работа продолжится с​​ умолчанию все введённые,​Double​ книги).​ («Введите максимальное значение​ нескольких местах. Так​ же — не​ нужно дописать еще​​ на листе, ггг​​Dim i1, i2,​

Ранний выход из VBA процедур «Function» и «Sub»

​ это ошибочное суждение.​ стоит ключевое слово​​Чтобы вызвать VBA процедуру​​Эта очень простая VBA​​ фактический адрес размещения​​Alt+F11​sVAT_Rate​ неверными данными!​ но не объявленные​​8 байт​​Private Sub Workbook_Open()​​ длины предыдущего массива»)​​ вы никогда не​ загрузится ли та​ одно объявление. Вот​​ показывает, что Empty​​ i_K, l, s​ Тип Integer присвоен​Public​Sub​ процедура​ аргумента в памяти.​), и затем нажмите​, а за её​В связи с этим,​ переменные в Excel​Число с плавающей точкой​With Worksheets(«Лист1»)​Но это не​

​ пропустите не совсем​ же память вычислениями,​ так​ Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sheets(«Save»).Range(«a» + LTrim$(Str$(z)))​

​MsgBox TypeName(i_K)​ только последней переменной,​, то данная процедура​​из другой VBA​​Function​​ Любые изменения, сделанные​​F2​ пределами – нет).​​ неверный тип данных​​ будут иметь тип​ двойной точности​.[B:B].ClearContents​

​ работает, при компилляции​ нужную ошибку даже​
​ которых можно было​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public Slov() As String​

​ = Mid(Worksheets(«РСИ»).Cells(15, 1).Value,​

office-guru.ru

Разногласия Объявление переменных (Макросы/Sub)

​MsgBox TypeName(l)​​ к которой он​ будет доступна для​ процедуры, нужно записать​
​иллюстрирует, как данные​ с аргументом внутри​
​.​При попытке использовать​ желательно обнаруживать и​Variant​от -1.8e308 до +1.8e308​Set x =​ сразу вылетает ошибка​ в не самых​ бы избежать, применяя​Public Ind() As​ rrr, 999) '​
​MsgBox TypeName(s)​ «привязан» оператором As​
​ всех модулей в​ ключевое слово​ передаются процедуре через​ процедуры, будут сохранены​
​В выпадающем списке в​sVAT_Rate​ как можно раньше​
​и смогут принять​Currency​ .Columns("A").Find("*", .[A1], searchdirection:=xlPrevious)​ и подсвечивается переменная​ критических местах программы.​
​ переменные?​
​ Long​ наименование, тип, рег.​End Sub​ — MyVar3. Все​
​ данном проекте VBA.​Call​
​ аргументы. Можно увидеть,​ при выходе из​ верхней левой части​в другой процедуре,​ исправлять такие ошибки​ как числовое, так​8 байт​Файл 2 (модуль​ «а» в этой​Jack Famous​Одни и те​Public rrr​ №​doober​ остальные переменные имеют​Private Sub AddToCells(i As​, имя процедуры​ что тип данных,​ процедуры.​ экрана выберите библиотеку​ компилятор VBA сообщит​ в коде. По​ и текстовое значение.​Число с плавающей точкой,​ листа).​ строке​
​: Ronin71, Alemox дал​ же переменные можно​В остальном коде​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub CommandButton2_Click()​
​:​
​ тип данных Variant.​ Integer) … End​
​Sub​ возвращаемых процедурой, определён​
​При помощи ключевых слов​VBA​ об ошибке, так​ этим причинам при​
​Таким образом, программист в​ с фиксированным количеством​Option Explicit​Dim My_Data (1​ отличную , но​ (и советую) применять​
​ убрать все Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim​ActiveSheet.PrintOut​

​_Boroda_​​ Т.е. если Вы​​ Sub​и далее в​ как​​ByVal​.​ как эта переменная​
​ написании макроса VBA​ любой момент сможет​ десятичных разрядов​
​Private Sub Worksheet_Change(ByVal​ to​ посоветовал прямо противоположное)))​ по несколько раз,​ rrr и наступит​Dim z As​запросто,даже иногда удобно.Например​ не задаете переменной​Если перед объявлением процедуры​
​ скобках аргументы процедуры.​​Double​или​
​Появится список встроенных классов​
​ не была объявлена​ рекомендуется объявлять все​
​ использовать новую переменную​
​от -922 337 203 685 477.5808 до +922 337 203 685 477.5807​
​ Target As Range)​
​a​
​не скажу, как​
​ если это позволяет​ счастье!​

​ Variant​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Это_Возможно()​ тип хранимых данных​
​ стоит ключевое слово​ Это показано в​
​(об этом говорят​
​ByRef​ и функций VBA.​
​ за пределами функции​
​ переменные.​
​ (даже если она​
​Date​Dim x, y​) As Variant​ там "много программистов"​
​ код. Только не​
​Это называется «Не​z = 1​

​For n As​​ явно(т.е. не указываете​​Private​
​ примере ниже:​ слова​
​в объявлении процедуры​
​ Кликните мышью по​
​Total_Cost​
​Оператор​ не была объявлена),​8 байт​If Intersect(Target, [A:A])​
​то есть скрипт​
​ делает, но лично​ забывать их очищать​
​ спрашивайте «Почему?», просто​While Sheets(«Save»).Range(«a» +​ Integer = 0​ для неё тип​
​, то данная процедура​

​Sub main() Call​​As Double​
​ можно задать, каким​
​ имени функции, чтобы​(при условии, что​Option Explicit​
​ и Excel будет​Дата и время –​ Is Nothing Then​
​ сразу же требует​ я на себе​ перед новым применением​ сделайте так". Ну​
​ LTrim$(Str$(z))) <> ""​
​ To 3​
​ данных), то VBA​
​ будет доступна только​
​ Format_Centered_And_Sized(20) End Sub​
​после списка аргументов).​ именно способом аргумент​
​ внизу окна отобразилось​
​ использован оператор​
​заставляет объявлять все​
​ рассматривать её как​


​ данные типа Date​​ Exit Sub​​ конкретное число, а​
​ не раз испытал​
​ (очистка не нужна,​
​ такие правила объявления,​z = z + 1​If 1 =​
​ сам присваивает такой​ для текущего модуля.​
​Если процедура​ Также данный пример​
​ передаётся процедуре. Ниже​
​ её краткое описание.​Option Explicit​
​ переменные, которые будут​
​ переменную типа​ представлены числом с​
​Application.EnableEvents = False​ вводить его каждый​
​ "пинки" от необъявленных​
​ если при следующем​ так установили в​
​Wend​
​ 2 Then​
​ переменной тип данных​

​ Её нельзя будет​​Format_Centered_And_Sized​ показывает, как результат​
​ это показано на​
​ Нажатие​).​
​ использованы в коде​Variant​
​ плавающей точкой. Целая​[B:B].ClearContents​
​ раз, забираясь в​ или объявленных неправильно​
​ применении переменной сразу​ МS.​
​Sheets("Save").Range("a" + LTrim$(Str$(z)))​Dim r As​
​ Variant, т.к. он​ вызвать, находясь в​


​имеет более одного​ процедуры​ примерах:​​F1​​В показанном выше примере​ VBA, и при​. Однако, есть несколько​
​ часть этого числа​x = Columns(«A»).Find(«*»,​
​ тело скрипта, считаю​
​ переменных, поэтому мой​
​ присваивается значение). Например,​
​У меня тоже​
​ = Mid(Worksheets(«РСИ»).Cells(15, 1).Value,​ String = «»​ может хранить любой​ любом другом модуле​
​ аргумента, то они​
​Function​Sub AddToCells(ByVal i As​

​откроет страницу онлайн-справки​​ переменная объявлена на​ компиляции выделяет все​ причин, почему так​
​ выражает дату, а​ [A1], searchdirection:=xlPrevious)​ тупо и непрофессионально.​
​ совет —​ циклам, расположенным последовательно,​ не влезло. Тоже​ rrr, 999) ‘​
​Else​ тип данных. А​
​ или из рабочей​ должны быть разделены​
​сохраняется в переменной​ Integer) … End​
​ по этой функции.​ уровне модуля при​

​ не объявленные переменные​​ поступать не следует:​​ дробная часть –​​eugene.v​Как решить данную​​Option Explicit​
​ можно отдать один​ выкинул.​
​ наименование, тип, рег.​
​Dim r As​
​ вот так выглядит​

excelworld.ru

Объявление глобальной переменной (Макросы/Sub)

​ книги Excel.​​ запятыми. Вот так:​ с именем, совпадающим​ Sub​
​Кроме того, полный список​
​ помощи ключевого слова​
​ как ошибки (прежде​Использование памяти и скорость​
​ время​: Во втором случае​ проблему?​
​по умолчанию в​ и тот же​
​RAN​ №​
​ Image = Nothing​
​ правильное присвоение типа​
​Помните о том, что​Sub main() Call​
​ с именем процедуры.​
​В этом случае целочисленный​
​ встроенных функций VBA​
​Dim​
​ чем будет запущено​
​ вычислений.​от 1 Января 100​
​ (если убрать «Set»​
​Заранее благодарю за​
​ каждом модуле и​
​ счетчик, пусть пользуются,​
​: Тяжела она, шапка​Sheets(«Save»).Range(«b» + LTrim$(Str$(z)))​End If​ данных:​ если перед объявлением​ Format_Centered_And_Sized(arg1, arg2, …)​Если рассмотренная выше простая​ аргумент​ с примерами можно​
​. Однако, бывает необходимо,​
​ выполнение кода). Применить​
​Если не объявлять​ до 31 Декабря​
​ и добавить «Dim​
​ помощь.​ отладка кода после​
​ ущерба никакого нет..​
​ Мономаха.​
​ = Worksheets(«РСИ»).Cells(25, 14).Value​If 1 =​Dim MyVar1 As​ VBA процедуры​ End Sub​
​ процедура​i​ найти на сайте​
​ чтобы объявленными переменными​
​ этот оператор не​
​ переменную с указанием​ 9999​ x, y»), то​Юрий М​ написания через​ Но и тут​Листы выкинул, думал​ ‘ зав. №​

​ 2 Then​​ Integer, MyVar2 As​
​Function​​Процедура​Function​передан по значению.​ Visual Basic Developer​ можно было пользоваться​

​ сложно – просто​​ типа данных, то​Object​ просто не работает​: А если СНАЧАЛА​Debug —> Compile [Name​

​ нужно с умом​​ без архива влезет.​….​Dim r As​

​ Integer, MyVar3 As​​или​Sub​​вставлена в модуль​
​ После выхода из​ Centre.​
​ в других модулях.​ запишите в самом​ по умолчанию для​4 байта​

​ код, то есть​​ задать переменной значение,​ of VBA Project]​

​ подходить — можно​​Не влезло.​End Sub​ Integer = 2​
​ Integer​Sub​не может быть​ в редакторе Visual​

​ процедуры​​В Excel Visual Basic​ В таких случаях​ верху файла VBA​ неё будет установлен​Ссылка на объект​ переменной «x» не​ а уже ПОТОМ​(за совет по​ такого понаписывать, что​combat​
​кто подскажет, где​Else​отсюда вопрос: это​ключевое слово не​
​ введена непосредственно в​ Basic, то она​Sub​ набор команд, выполняющий​

​ для объявления переменной​​ такую строку:​

​ тип​​Любая ссылка на объект​
​ назначается значение конца​ объявлять массив? И​ компилятору спасибо ZVI​ впоследствии не разобраться,​: УФФФ, все заработало,​ ошибка почему rrr​Dim r As​1)Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim S1, S2,​ вставлено, то по​
​ ячейку листа Excel,​

​ может быть вызвана​​все сделанные с​ определённую задачу, помещается​ вместо ключевого слова​Option Explicit​
​Variant​String​ диапазона.​ не забывайте, что​)​ а что же​
​ доходчиво теперь….​ для кода листа​ Double = 34.0​
​ S3 As String​ умолчанию для процедуры​ как это может​ из других процедур​
​i​ в процедуру​Dim​Если хотите всегда вставлять​. Этот тип данных​

​изменяется​​В первом случае​ InputBox выдаст Вам​Alemox​ там данный момент​СПАСИБО!!!​
​ "РСИ" не присваивается​
​End If​одно и тоже​
​ устанавливается свойство​
​ быть сделано с​ VBA или использована​изменения будут утрачены.​Function​
​нужно использовать ключевое​Option Explicit​ использует больше памяти,​Набор символов. Тип String​ (если не указать​ текст. Или преобразуйте​
​: Ну коли на​ хранится.​RAN​

​ значение 21 или​​Next​ с этим​
​Public​ процедурой​
​ на рабочем листе​

​Sub AddToCells(ByRef i As​​(Функция) или​ слово​
​в начало каждого​

​ чем другие типы​​ может иметь фиксированную​
​ «Dim x, y»),​ его в число,​ то пошло, то​
​Alemox​: Кстати, о Public.​ 25 в зависимости​End Sub​2)Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim S1 As​

​(то есть она​​Function​ в книге Excel.​ Integer) … End​Sub​Public​ нового созданного модуля​ данных.Казалось бы, несколько​ или изменяющуюся длину.​ пишет: «Compile error:​ или используйте Application.InputBox​ выложу информацию ещё​: Могу только добавить​Public z_ As​ от условия в​SkyPro​
​ String, S2 As​ будет доступна везде​, потому что процедура​

excelworld.ru

Переменные VBA

​Процедуру​​ Sub​
​(Подпрограмма). Главное отличие​.​ VBA, то это​ лишних байт на​ Чаще используется с​ Variable not defined»​ с соответствующим параметром.​ по одному типу​ следующее. Сейчас программисты​ String в модуле​ формы2​: А я предпочитаю​ String, S3 As​ в данном проекте​Sub​Function​В этом случае целочисленный​
​ между процедурами​

​Кстати, для того, чтобы​​ можно делать автоматически.​ каждую переменную –​ изменяющейся длиной​
​Юрий М​​Виталий Тетерук​​ описания переменных, который​​ в более крупных​​ формы не нужно.​RAN​ краткую запись:​​ String​​ VBA). В этом​не возвращает значение.​можно вызвать из​ аргумент​Function​​ объявить переменную на​​ Для этого необходимо​ не так уж​Фиксированной длины — приблизительно​: А не объявлены​: Юрий М​​ тянется с далёкого​​ и запутанных программах,​
​Public нужно на​: Потому, что​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​​Т.е. если все​​ состоит отличие от​ Однако, процедуры​​ другой VBA процедуры​​i​​и​​ уровне модуля, вместо​ включить параметр​ много, но на​ до 65 500 символов.​​ ли случайно в​​Спасибо! Признаться, не​ 1965 года, после​ объявляют все переменные​ уровне проекта. На​Цитата​Dim t$ ‘as​
​ три переменные нужно​ объявления переменных, которые​
​Sub​ при помощи простого​передан по ссылке.​Sub​ ключевого слова​Require Variable Declaration​ практике в создаваемых​ Переменной длины —​ первом файле эти​ додумался присваивать значение​ первой версии Basic.​ с типом Variant.​
​ уровне модуля достаточно​combat, 22.11.2015 в​ string​ объявить как строковые,​ по умолчанию бывают​, не имеющие аргументов​ присваивания этой процедуры​ После выхода из​состоит в том,​Dim​в настройках редактора​ программах могут быть​ приблизительно до 2​ переменные (x и​ до обьявления… НО​Мало кто знает,​ Так код легче​ Dim z_ As​ 11:32, в сообщении​Dim i% ‘​ то нужно делать​Private​ и объявленные как​ переменной. В следующем​ процедуры​

​ что процедура​​можно использовать ключевое​ VBA.​ тысячи переменных (особенно​ миллиардов символов​ y), как Public?​ почему Вы думаете​ что так можно​ поддаётся изменению. Если​ String.​ № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>В исполняемом​ as integer​ как во втором​.​Public​ примере показано обращение​Sub​Function​ слово​Это делается так:​
​ при работе с​Variant​Юрий М​

​ что, InputBox выдаст​​ описывать переменные.​
​ у вас макрос​

​combat​​ коде формы объявил​Dim l& ‘​ случае?​
​Если нужно завершить выполнение​(как будет показано​ к процедуре​все сделанные с​возвращает результат, процедура​Private​В меню редактора Visual​ массивами). Поэтому излишняя​изменяется​

​: Дим, а меня​​ текст, если я​

​Например, все переменные​​ небольшой, то можете​: Учел исправил. Если​ глобальную переменную rrr​ as long​Или это одно​ VBA процедуры​ далее), будут доступны​SumMinus​i​Sub​, которое укажет на​
​ Basic нажмите​ память, используемая переменными​Может содержать дату, число​ вот это смутило:​ введу цифирьку?​ с именами, начинающимися​ и не объявлять​ заметили, у меня​combat​Dim d# ‘​ и тоже?​Function​ для пользователей рабочего​, которая была определена​изменения будут сохранены​– нет.​ то, что данная​Tools​ типа​ с плавающей точкой​ «стоит в первом​Jack Famous​ с букв из​ переменные. Но иногда​
​ есть лист калибровка,​: Все равно не​ as double​_Boroda_​или​ листа. Таким образом,​
​ выше.​ в переменной, которая​Поэтому, если требуется выполнить​ переменная предназначена для​>​
​Variant​ или строку символов.​ дописать объявление переменных​
​: Виталий, а может​ диапазона от А​
​ бывают случаи, что​
​ нужен для подгонки​ понял, все таки​
​Dim [email protected] ‘​:​Sub​ если рассмотренные выше​Sub main() Dim​ была передана процедуре​ действия и получить​ использования только в​Options​, по сравнению с​ Этот тип используют​ через «Dim x,​

​ это на форум,​​ до Q,​ их просто необходимо​ 2-х линий на​
​ как решить проблему,​ as currency​Вообще-то, пора бы уже​, не дожидаясь её​ простые процедуры​ total as Double​Sub​ какой-то результат (например,​ текущем модуле.​​В появившемся диалоговом окне​​ переменными типа​ в тех случаях,​ y»»​ а?))) Тут, в​​имеют строковый тип:​ объявить, так как​​ листе РСИ (в​ что не так,​​Dim s! ‘​

​ и зарегистрироваться, Вы​​ естественного финала, то​Sub​ total = SumMinus(5,​.​ просуммировать несколько чисел),​Для объявления констант также​ откройте вкладку​Integer​
​ когда заранее не​eugene.v​ курилке более общие​
​Объявляется в начале​ программа может определить​ основном по высоте),​ не там объявил​ as single​
​ как считаете?​
​ для этого существуют​вставлены в модуль​
​ 4, 3) End​
​Помните, что аргументы в​ то обычно используется​ можно использовать ключевые​Editor​или​
​ известно, какой именно​: Везде объявил «Dim​ вопросы и лайфхаки​
​ модуля перед процедурой​ её неправильно. Сам​
​ почему то на​RAN​
​Dim v ‘​А то Ваши​
​ операторы​ в редакторе Visual​
​ Sub​ VBA по умолчанию​
​ процедура​ слова​
​Отметьте галочкой параметр​Single​
​ тип данных будет​ x, y as​
​ обсуждаются​DefStr A-Q​
​ лично встречал такие​ разных ПК, по​
​: Что такое переменная​ as variant​

​ «коды» читать уж​​Exit Function​ Basic, то процедура​VBA процедуру​ передаются по ссылке.​Function​Public​

​Require Variable Declaration​​, может сложится в​ введён​ Range» и оставил​По вопросу:​DefStr A-Q Sub​ ситуации.​ разному рисует, вообще​ и как правильно​А еще можно​ очень неудобно​и​Format_Centered_And_Bold​Function​ Иначе говоря, если​

​, а для того,​​и​
​и нажмите​ значительную сумму.К тому​Число – Double, строка​ «Set» — все​первое, что приходит​ Пример() A =​А вообще можете​
​ правильно ли я​ её объявить?​
​ прямо в коде​Сначала охренел, мягко​Exit Sub​
​будет доступна для​можно вызвать из​ не использованы ключевые​ чтобы просто выполнить​Private​
​ОК​ же, операции с​ – String​ работает. Спасибо за​ в голову -​ 1 B =​ по данным ориентироваться​ все сделал, или​
​combat​ обьявлять, как показал​ говоря. сайт Майкрософт​
​. Применение этих операторов​ использования на рабочем​ рабочего листа Excel​
​ слова​ какие-то действия (например,​, но не вместо​При включенном параметре строка​ переменными типа​Очевидно, что пользуясь приведённой​
​ помощь!​ то, что предложил​​ «Строка» C =​​ по таблице.​
​ же по др.​: То есть, я​doober​ http://msdn.microsoft.com/ru-ru/library/ke6sh835.aspx​ показано ниже на​ листе книги Excel,​ таким же образом,​
​ByVal​ изменить форматирование группы​
​ ключевого слова​Option Explicit​

​Variant​​ выше таблицей и​Юрий М​ Юрий М.​ 123456 End Sub​Ronin71​ пути надо было​ не там вставил​, но это удобно​Потом почитал внимательно​ примере простой процедуры​

​ а процедура​​ как любую другую​
​или​ ячеек), нужно выбрать​Const​будет автоматически вставляться​выполняются гораздо медленнее,​ правильно выбирая тип​: А вот это​

​А дальше смотрите​​Вот основные команды​: Спасибо «курильщики»!​ идти​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public rrr As Integer​ только для небольших​ — там не​
​Function​​Format_Centered_And_Sized​ встроенную функцию Excel.​ByRef​ процедуру​
​, а вместе с​ в начало каждого​​ чем с переменными​​ данных, можно использовать​​ не совсем верно​​ в сторону​ объявления таким образом​Буду пытаться, разбираться…​Какое отношение этот​нужно было вставить​ макросов.​ про VBA, а​, в которой ожидается​– не будет​ Следовательно, созданную в​

​, то аргумент будет​​Sub​ ним.​
​ нового созданного модуля.​ других типов, соответственно​ память более экономно​ — нужно вот​

​ReDim​​ переменных.​SuperCat​
​ вопрос имеет к​ в ЭтаКнига?​Кстати, можно еще​
​ про VB. Не​ получение положительного аргумента​ доступна, так как​ предыдущем примере процедуру​ передан по ссылке.​.​​В следующих примерах показано​​Каждая объявленная переменная или​ лишняя тысяча переменных​ (например, выбрать тип​ так:​и​DefBool — Тип данных​

​: Потому и запутанные,​​ глобальным переменным?​предложенный ресурс почитал,​
​ так:​ знаю, есть ли​

​ для выполнения дальнейших​​ она имеет аргументы.​Function​Перед тем как продолжить​При помощи аргументов процедурам​
​ использование ключевых слов​ константа имеет свою​ типа​ данных​

​Dim x as​​ReDim Preserve​​ Boolean​​ так как всё​Ronin71​ на мысль об​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub variableinmacro()​

planetaexcel.ru

Объявление переменных в VBA

​d# = 25.222​​ синтаксис и прокатывает.​ операции не могут​, доступную из рабочего​ в ячейку рабочего​Sub​

​ при объявлении процедуры.​​в применении к​ которой эта переменная​Профилактика опечаток в именах​или​: Не знал, буду​ же — лучше​

​ данных Integer​​ а ещё лучше​ какому принципу выбирать​: Цитата из статьи​MsgBox TypeName(s) &​Анатолий​ быть выполнены, поэтому​

​ листа:​​ листа вот такое​более подробно, будет​ К примеру, процедура​ переменным и к​
​ существует. Область действия​ переменных.​Single​

​ исправлять. Спасибо.​​ на форум с​DefLng — Тип​

planetaexcel.ru

​ — ещё и​

Неявная и явная декларация

Если модуль кода не содержит Option Explicit в верхней части модуля, тогда компилятор автоматически (то есть «неявно») создает переменные для вас, когда вы их используете. Они будут использовать переменную типа Variant .

Public Sub ExampleDeclaration()    

    someVariable = 10                  ' 
    someOtherVariable = "Hello World"
    'Both of these variables are of the Variant type.

End Sub

В приведенном выше коде, если указан параметр Option Explicit , код будет прерываться, потому что ему не нужны необходимые инструкции Dim для someVariable и someOtherVariable .

Option Explicit

Public Sub ExampleDeclaration()   

    Dim someVariable As Long 
    someVariable = 10

    Dim someOtherVariable As String
    someOtherVariable = "Hello World"

End Sub

Рекомендуется использовать Option Explicit в модулях кода, чтобы гарантировать, что вы объявите все переменные.

См. VBA Best Practices, как установить этот параметр по умолчанию.

переменные

Объем

Переменная может быть объявлена ​​(при увеличении уровня видимости):

• На уровне процедуры, используя ключевое слово Dim в любой процедуре; локальная переменная .
• На уровне модуля, используя ключевое слово Private в модуле любого типа; частное поле .
• На уровне экземпляра используйте ключевое слово Friend в модуле любого типа; поле друга .
• На уровне экземпляра, используя ключевое слово Public в модуле класса любого типа; публичное поле .
• Глобально, используя ключевое слово Public в стандартном модуле ; глобальная переменная .

Переменные всегда должны быть объявлены с наименьшей возможной областью: предпочитайте передавать параметры процедурам, а не объявлять глобальные переменные.

Дополнительную информацию см. В разделе Модификаторы доступа .

Местные переменные

Используйте ключевое слово Dim чтобы объявить локальную переменную :

Dim identifierName [As Type][, identifierName [As Type], ...]

Параметр [As Type] синтаксиса объявления является необязательным. Когда указано, он устанавливает тип данных переменной, который определяет, сколько памяти будет выделено этой переменной. Это объявляет переменную String :

Dim identifierName As String

Если тип не указан, тип неявно Variant :

Dim identifierName 'As Variant is implicit

Синтаксис VBA также поддерживает объявление нескольких переменных в одном выражении:

Dim someString As String, someVariant, someValue As Long

Обратите внимание, что [As Type] должен быть указан для каждой переменной (кроме «Variant»). Это относительно распространенная ловушка:

Dim integer1, integer2, integer3 As Integer 'Only integer3 is an Integer. 
                                            'The rest are Variant.

Статические переменные

Локальные переменные также могут быть Static . В VBA ключевое слово Static используется для того, чтобы переменная «запомнила» значение, которое она имела, в последний раз, когда была вызвана процедура:

Private Sub DoSomething()
    Static values As Collection
    If values Is Nothing Then
        Set values = New Collection
        values.Add "foo"
        values.Add "bar"
    End If
    DoSomethingElse values
End Sub

Здесь коллекция values объявляется как Static локальная; потому что это переменная объекта , она инициализируется Nothing . Условие, следующее за объявлением, проверяет, была ли ссылка на объект Set раньше — если она выполняется в первый раз, процедура инициализируется. DoSomethingElse может добавлять или удалять элементы, и они все равно будут в коллекции в следующий раз, когда вызывается DoSomething .

альтернатива

Ключевое слово VBA Static легко может быть неправильно понято — особенно опытные программисты, которые обычно работают на других языках. На многих языках static используется для того, чтобы член класса (field, property, method, …) принадлежал типу, а не экземпляру . Код в static контексте не может ссылаться на код в контексте экземпляра . Ключевое слово VBA Static означает что-то совершенно другое.

Часто Static локальный объект может быть также реализован как Private переменная (поле) на уровне модуля, однако это бросает вызов принципу, с помощью которого переменная должна быть объявлена ​​с наименьшей возможной областью; доверяйте своим инстинктам, используйте то, что вы предпочитаете — оба будут работать … но использование Static без понимания того, что он делает, может привести к интересным ошибкам.

Дим против частного

Ключевое слово Dim является законным на уровне процедур и модулей; его использование на уровне модуля эквивалентно использованию ключевого слова Private :

Option Explicit
Dim privateField1 As Long 'same as Private privateField2 as Long
Private privateField2 As Long 'same as Dim privateField2 as Long

Ключевое слово Private доступно только на уровне модуля; это вызывает резервирование Dim для локальных переменных и объявление переменных модуля с помощью Private , особенно с контрастным ключевым словом Public которое должно быть использовано для объявления публичного участника. Также можно использовать Dim везде — то , что имеет значение консистенция:

«Частные поля»

• DO использовать Private чтобы объявить переменную уровня модуля.
• DO используйте Dim чтобы объявить локальную переменную.
• НЕ используйте Dim чтобы объявить переменную уровня модуля.

«Тусклый везде»

• DO используйте Dim чтобы объявить что-либо частным / местным.
• НЕ используйте Private чтобы объявить переменную уровня модуля.
• ИЗБЕГАЙТЕ объявление Public полей. *

_{* В общем, следует избегать объявления Public или Global полей.}

поля

Переменная, объявленная на уровне модуля, в разделе объявлений в верхней части тела модуля является полем . Public поле, объявленное в стандартном модуле, является глобальной переменной :

Public PublicField As Long

Доступ к переменной с глобальной областью можно получить из любого места, включая другие проекты VBA, которые будут ссылаться на проект, в котором он объявлен.

Чтобы сделать переменную global / public, но только видимую изнутри проекта, используйте модификатор Friend :

Friend FriendField As Long

Это особенно полезно в надстройках, где намерение заключается в том, что другие проекты VBA ссылаются на проект надстройки и могут потреблять открытый API.

Friend FriendField As Long 'public within the project, aka for "friend" code
Public PublicField As Long 'public within and beyond the project

Поля друзей недоступны в стандартных модулях.

Поля экземпляра

Переменная, объявленная на уровне модуля, в разделе объявлений в верхней части тела модуля класса (включая ThisWorkbook , ThisDocument , Worksheet , UserForm и модулях классов ) является полем экземпляра : оно существует только до тех пор, пока существует экземпляр класс вокруг.

'> Class1
Option Explicit
Public PublicField As Long

'> Module1
Option Explicit
Public Sub DoSomething()
    'Class1.PublicField means nothing here
    With New Class1
        .PublicField = 42
    End With
    'Class1.PublicField means nothing here
End Sub

Инкапсулирующие поля

Данные Instance часто хранится Private и дублирован инкапсулируются. Закрытое поле можно открыть с помощью процедуры Property . Чтобы публично публиковать приватную переменную, не предоставляя доступ к записи вызывающему, модуль класса (или стандартный модуль) реализует элемент « Property Get :

Option Explicit
Private encapsulated As Long

Public Property Get SomeValue() As Long
    SomeValue = encapsulated
End Property

Public Sub DoSomething()
    encapsulated = 42
End Sub

Сам класс может изменить инкапсулированное значение, но вызывающий код может получить доступ только к Public членам (и членам Friend , если вызывающий объект находится в одном проекте).

Чтобы разрешить вызывающему абоненту:

• Инкапсулированное значение , модуль предоставляет элемент Property Let .
• Ссылка на инкапсулированные объекты , модуль предоставляет член Property Set .

Константы (Const)

Если у вас есть значение, которое никогда не изменяется в вашем приложении, вы можете определить именованную константу и использовать ее вместо буквенного значения.

Вы можете использовать Const только на уровне модуля или процедуры. Это означает, что контекст объявления для переменной должен быть классом, структурой, модулем, процедурой или блоком и не может быть исходным файлом, пространством имен или интерфейсом.

Public Const GLOBAL_CONSTANT As String = "Project Version #1.000.000.001"
Private Const MODULE_CONSTANT As String = "Something relevant to this Module"

Public Sub ExampleDeclaration()    

    Const SOME_CONSTANT As String = "Hello World"
    
    Const PI As Double = 3.141592653

End Sub

Хотя можно считать хорошей практикой указывать константные типы, это строго не требуется. Не указывая тип, он все равно приведет к правильному типу:

Public Const GLOBAL_CONSTANT = "Project Version #1.000.000.001" 'Still a string
Public Sub ExampleDeclaration()

    Const SOME_CONSTANT = "Hello World"           'Still a string
    Const DERIVED_CONSTANT = SOME_CONSTANT        'DERIVED_CONSTANT is also a string
    Const VAR_CONSTANT As Variant = SOME_CONSTANT 'VAR_CONSTANT is Variant/String
    
    Const PI = 3.141592653        'Still a double
    Const DERIVED_PI = PI         'DERIVED_PI is also a double
    Const VAR_PI As Variant = PI  'VAR_PI is Variant/Double
    
End Sub

Обратите внимание, что это специфично для констант и в отличие от переменных, где не указано, что тип приводит к типу Variant.

Хотя можно явно объявить константу как String, невозможно объявить константу в виде строки с использованием синтаксиса строки фиксированной ширины

'This is a valid 5 character string constant
Const FOO As String = "ABCDE"

'This is not valid syntax for a 5 character string constant
Const FOO As String * 5 = "ABCDE"

Модификаторы доступа

Dim должна быть зарезервирована для локальных переменных. На уровне модуля предпочитайте явные модификаторы доступа:

• Private для частных полей, доступ к которым возможен только в том модуле, в котором они объявлены.
• Public для общедоступных полей и глобальных переменных, к которым может обращаться любой вызывающий код.
• Friend для переменных, публикуемых в рамках проекта, но недоступных для других проектов VBA, связанных с надстройками (для надстроек)
• Global также может использоваться для Public полей в стандартных модулях, но является незаконным в модулях классов и в любом случае является устаревшим — вместо этого предпочитайте Public модификатор. Этот модификатор также не является законным для процедур.

Модификаторы доступа применимы как к переменным, так и к процедурам.

Private ModuleVariable As String
Public GlobalVariable As String

Private Sub ModuleProcedure()

    ModuleVariable = "This can only be done from within the same Module"

End Sub

Public Sub GlobalProcedure()

    GlobalVariable = "This can be done from any Module within this Project"

End Sub

Дополнительный модуль

Открытые Sub процедуры в стандартных модулях отображаются как макросы и могут быть прикреплены к элементам управления и сочетания клавиш в документе хоста.

И наоборот, публичные процедуры Function в стандартных модулях отображаются как пользовательские функции (UDF) в хост-приложении.

Указание отдельного модуля Option Private Module в верхней части стандартного модуля не позволяет его членам отображаться как макросы и UDF для приложения-хозяина.

Тип подсказки

Тип подсказки сильно обескуражен. Они существуют и документируются здесь по причинам исторической и обратной совместимости. As [DataType] этого следует использовать синтаксис As [DataType] .

Public Sub ExampleDeclaration()

        Dim someInteger% '% Equivalent to "As Integer"
        Dim someLong&    '& Equivalent to "As Long"
        Dim [email protected] '@ Equivalent to "As Currency"
        Dim someSingle!  '! Equivalent to "As Single"
        Dim someDouble#  '# Equivalent to "As Double"
        Dim someString$  '$ Equivalent to "As String"

        Dim someLongLong^  '^ Equivalent to "As LongLong" in 64-bit VBA hosts
End Sub

Типовые подсказки значительно уменьшают читаемость кода и поощряют венгерскую нотацию, которая также препятствует читаемости:

Dim strFile$
Dim iFile%

Вместо этого, объявляйте переменные ближе к их использованию и называйте вещи тем, что они используются, а не после их типа:

Dim path As String
Dim handle As Integer

Типовые подсказки также могут использоваться в литералах, чтобы обеспечить соблюдение определенного типа. По умолчанию числовой литерал, меньший, чем 32 768, будет интерпретироваться как литерал Integer , но с подсказкой типа вы можете контролировать это:

Dim foo 'implicit Variant
foo = 42& ' foo is now a Long
foo = 42# ' foo is now a Double
Debug.Print TypeName(42!) ' prints "Single"

Типные подсказки обычно не нужны для литералов, потому что они будут назначены переменной, объявленной с явным типом, или неявно преобразуются в соответствующий тип при передаче в качестве параметров. Неявные преобразования можно избежать, используя одну из явных функций преобразования типов:

'Calls procedure DoSomething and passes a literal 42 as a Long using a type hint
DoSomething 42&

'Calls procedure DoSomething and passes a literal 42 explicitly converted to a Long
DoSomething CLng(42)

Строковые возвращаемые встроенные функции

Большинство встроенных функций, которые обрабатывают строки, представлены в двух версиях: свободно напечатанная версия, которая возвращает Variant , и строго типизированную версию (заканчивающуюся на $ ), которая возвращает String . Если вы не назначаете возвращаемое значение для Variant , вы должны предпочесть версию, которая возвращает String противном случае происходит неявное преобразование возвращаемого значения.

Debug.Print Left(foo, 2)  'Left returns a Variant
Debug.Print Left$(foo, 2) 'Left$ returns a String

Эти функции:

• VBA.Conversion.Error -> VBA.Conversion.Error $
• VBA.Conversion.Hex -> VBA.Conversion.Hex $
• VBA.Conversion.Oct -> VBA.Conversion.Oct $
• VBA.Conversion.Str -> VBA.Conversion.Str $
• VBA.FileSystem.CurDir -> VBA.FileSystem.CurDir $
• VBA. [_ HiddenModule] .Input -> VBA. [_ HiddenModule] .Input $
• VBA. [_ HiddenModule] .InputB -> VBA. [_ HiddenModule] .InputB $
• VBA.Interaction.Command -> VBA.Interaction.Command $
• VBA.Interaction.Environ -> VBA.Interaction.Environ $
• VBA.Strings.Chr -> VBA.Strings.Chr $
• VBA.Strings.ChrB -> VBA.Strings.ChrB $
• VBA.Strings.ChrW -> VBA.Strings.ChrW $
• VBA.Strings.Format -> VBA.Strings.Format $
• VBA.Strings.LCase -> VBA.Strings.LCase $
• VBA.Strings.Left -> VBA.Strings.Left $
• VBA.Strings.LeftB -> VBA.Strings.LeftB $
• VBA.Strings.LTtrim -> VBA.Strings.LTrim $
• VBA.Strings.Mid -> VBA.Strings.Mid $
• VBA.Strings.MidB -> VBA.Strings.MidB $
• VBA.Strings.Right -> VBA.Strings.Right $
• VBA.Strings.RightB -> VBA.Strings.RightB $
• VBA.Strings.RTrim -> VBA.Strings.RTrim $
• VBA.Strings.Space -> VBA.Strings.Space $
• VBA.Strings.Str -> VBA.Strings.Str $
• VBA.Strings.String -> VBA.Strings.String $
• VBA.Strings.Trim -> VBA.Strings.Trim $
• VBA.Strings.UCase -> VBA.Strings.UCase $

Обратите внимание, что это псевдонимы функций, не совсем намеки на тип . Функция Left соответствует скрытой функции B_Var_Left , а версия Left$ соответствует скрытой функции B_Str_Left .

В ранних версиях VBA знак $ не является допустимым символом, а имя функции должно быть заключено в квадратные скобки. В Word Basic было много и много функций, которые возвращали строки, которые заканчивались в $.

Объявление строк фиксированной длины

В VBA строки могут быть объявлены с определенной длиной; они автоматически дополняются или усекаются, чтобы поддерживать указанную длину.

Public Sub TwoTypesOfStrings()

    Dim FixedLengthString As String * 5 ' declares a string of 5 characters
    Dim NormalString As String

    Debug.Print FixedLengthString       ' Prints "     "
    Debug.Print NormalString            ' Prints ""

    FixedLengthString = "123"           ' FixedLengthString now equals "123  "
    NormalString = "456"                ' NormalString now equals "456"

    FixedLengthString = "123456"        ' FixedLengthString now equals "12345"
    NormalString = "456789"             ' NormalString now equals "456789"

End Sub

Когда использовать статическую переменную

Статическая переменная, объявленная локально, не разрушается и не теряет своего значения при выходе из процедуры Sub. Последующие вызовы процедуры не требуют повторной инициализации или присвоения, хотя вы можете «нулевать» любые запоминаемые значения.

Они особенно полезны при позднем связывании объекта в вспомогательном подэлементе, который вызывается повторно.

Фрагмент 1: повторное использование объекта Scripting.Dictionary на многих листах

Option Explicit

Sub main()
    Dim w As Long
    
    For w = 1 To Worksheets.Count
        processDictionary ws:=Worksheets(w)
    Next w
End Sub

Sub processDictionary(ws As Worksheet)
    Dim i As Long, rng As Range
    Static dict As Object
    
    If dict Is Nothing Then
        'initialize and set the dictionary object
        Set dict = CreateObject("Scripting.Dictionary")
        dict.CompareMode = vbTextCompare
    Else
        'remove all pre-existing dictionary entries
        ' this may or may not be desired if a single dictionary of entries
        ' from all worksheets is preferred
        dict.RemoveAll
    End If
    
    With ws
        
        'work with a fresh dictionary object for each worksheet
        ' without constructing/destructing a new object each time
        ' or do not clear the dictionary upon subsequent uses and 
        ' build a dictionary containing entries from all worksheets
    
    End With
End Sub

Snippet 2: создать рабочий лист UDF, который опоздает с привязкой к объекту VBScript.RegExp

Option Explicit

Function numbersOnly(str As String, _
                     Optional delim As String = ", ")
    Dim n As Long, nums() As Variant
    Static rgx As Object, cmat As Object

    'with rgx as static, it only has to be created once
    'this is beneficial when filling a long column with this UDF
    If rgx Is Nothing Then
        Set rgx = CreateObject("VBScript.RegExp")
    Else
        Set cmat = Nothing
    End If
    
    With rgx
        .Global = True
        .MultiLine = True
        .Pattern = "[0-9]{1,999}"
        If .Test(str) Then
            Set cmat = .Execute(str)
            'resize the nums array to accept the matches
            ReDim nums(cmat.Count - 1)
            'populate the nums array with the matches
            For n = LBound(nums) To UBound(nums)
                nums(n) = cmat.Item(n)
            Next n
            'convert the nums array to a delimited string
            numbersOnly = Join(nums, delim)
        Else
            numbersOnly = vbNullString
        End If
    End With
End Function

^{Пример UDF со статическим объектом, заполненным полмиллиона строк}

* _{Истекшее время, чтобы заполнить 500K строк с помощью UDF:}

_{— с Dim rgx As Object : 148.74 секунд}

^{— с Static rgx As Object : 26.07 секунд}

* _{Они должны учитываться только для относительного сравнения. Ваши собственные результаты будут варьироваться в зависимости от сложности и
объем выполненных операций.}

Помните, что UDF не рассчитывается один раз в жизни книги. Даже энергонезависимый UDF будет пересчитываться всякий раз, когда значения в пределах диапазона (ов), которые он ссылается, могут быть изменены. Каждое последующее событие пересчета только увеличивает преимущества статически объявленной переменной.

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

_{Ссылки по теме: Static (Visual Basic)}