✅ Шпаргалки по VBA - списки команд и синтаксиса

Содержание

Памятка по VBA в формате PDF (бесплатная загрузка)
Шпаргалки по VBA
AutoMacro - лучшая надстройка VBA

Памятка по VBA в формате PDF (бесплатная загрузка)

Загрузите нашу бесплатную шпаргалку по Excel VBA в формате PDF для быстрого ознакомления!

Скачать

Шпаргалки по VBA

На этой странице можно найти списки всех распространенных команд и синтаксиса VBA. Вы найдете множество основных команд (например, вставка листа) и некоторый расширенный синтаксис (например, работа с массивами).

Подсказки:

Используйте CTRL + F для поиска на этой странице.

Добавьте эту страницу в закладки (CTRL + D в Chrome)!

Таблицы

ОписаниеКод VBAАктивировать по названию вкладкиТаблицы («Ввод»). АктивироватьАктивировать по кодовому имени VBASheet1.ActivateАктивировать по позиции индексаТаблицы (1) .АктивироватьСледующий листActiveSheet.Next.ActivateПолучить ActiveSheetMsgBox ActiveSheet.NameВыбрать листТаблицы («Ввод»). ВыберитеУстановить переменнуюDim ws как рабочий лист
Установить ws = ActiveSheetИмя / ПереименоватьActiveSheet.Name = «NewName»Добавить листТаблицы.ДобавитьДобавить лист и имяSheets.Add.Name = «NewSheet»Добавить лист в переменнуюDim ws как рабочий лист
Установить ws = Sheets.AddКопировать листЛисты («Лист1»). Копировать до: = Листы («Лист2»)Скрыть листТаблицы («Лист1»). Visible = False
или
Листы («Лист1»). Visible = xlSheetHiddenПоказать листЛисты («Лист1»). Visible = True
или
Листы («Лист1»). Visible = xlSheetVisible.Очень Скрытый ЛистЛисты («Лист1»). Visible = xlSheetVeryHiddenУдалить листЛисты («Лист1»). УдалитьЧистый листТаблицы («Лист1»). Ячейки.ОчиститьСнять защиту (без пароля)Листы («Лист1»). Снять защитуСнять защиту (Пароль)Таблицы («Лист1»). Снять защиту «Пароль»Защитить (без пароля)Листы («Лист1»). ЗащититьЗащитить (пароль)Таблицы («Лист1»). Защитить «Пароль»Защитить, но разрешить доступ VBAТаблицы («Лист1»). Защитить UserInterfaceOnly: = True

Return to Top

Ячейки и диапазоны

ОписаниеКод VBAАктивировать ячейкуДиапазон («B3»). Активировать
Ячейки (3,2). АктивироватьВыбрать диапазонДиапазон («a1: a3»). Выберите
Диапазон (Диапазон («a1»), Диапазон («a3»)). Выберите
Диапазон (Ячейки (1, 1), Ячейки (3, 1)). ВыберитеИзменить размерДиапазон («B3»). Изменить размер (2, 2). ВыбратьКомпенсироватьДиапазон («B3»). Смещение (2, 2). ВыберитеКопироватьДиапазон («A1: B3»). Диапазон копирования («D1»)РезатьДиапазон («A1: B3»). Диапазон отсечения («D1»)УдалитьДиапазон («A1: B3»). Удалить
Диапазон («A1: B3»). Удалить сдвиг: = xlShiftToLeft.ПрозрачныйДиапазон («A1: A3»). Очистить
Диапазон («A1: A3»). ClearContents
Диапазон («A1: A3»). ClearFormatСчитатьДиапазон («A1: A3»). СчетчикУстановить переменнуюDim rng as Range
Установить rng = Диапазон («A1»)Слияние / РазъединениеДиапазон («A1: A3»). Объединить
Диапазон («A1: A3»). РазъединитьЦикл через ячейки

Тусклая ячейка как диапазон

Для каждой ячейки в диапазоне («A1: C3»)
MsgBox cell.Value
Следующая ячейка

Return to Top

Рядов

ОписаниеКод VBAАктивироватьРяды (1). Активировать
Ряды («1: 1»). Активировать.
Диапазон («a1»). Целый ряд. Активировать.Высота ширинаДиапазон («A1»). CompleteRow.RowHeight = 30УдалитьДиапазон («A1»). Вся строка. УдалитьСчитатьДиапазон («A1»). Rows.CountВставлятьДиапазон («A1»). Целый ряд. ВставитьПоследнийdim lRow до тех пор, пока
lRow = Ячейки (Rows.Count, 1) .End (xlUp) .RowКопироватьДиапазон («1: 1»). Диапазон копирования («5: 5»)ВставлятьДиапазон («1: 1»). Копировать
Диапазон («5: 5»). Вставить

Return to Top

Столбцы

ОписаниеКод VBAАктивироватьСтолбцы (1). Активировать
Столбцы («a: a»). Активировать
Диапазон («a1»). Весь столбец.АктивироватьВысота ширинаДиапазон («A1»). CompleteColumn.ColumnWidth = 30УдалитьДиапазон («A1»). Весь столбец. УдалитьСчитатьДиапазон («A1»). Columns.CountВставлятьДиапазон («A1»). Весь столбец. ВставитьПоследнийdim lCol до тех пор, пока
lCol = Cells (1, Columns.Count) .End (xlToLeft) .ColumnКопироватьДиапазон («A: A»). Копировать диапазон («E: E»)ВставлятьДиапазон («A: A»). Копировать
Диапазон («E: E»). Вставить

Return to Top

Устали искать примеры кода VBA? Попробуйте AutoMacro!

Рабочие тетради

ОписаниеКод VBAАктивироватьКниги («Книга1»). АктивироватьАктивировать первое открытиеРабочие тетради (1). АктивироватьАктивировать последнее открытиеРабочие тетради (Workbooks.Count) .ActivateПолучить ActivateWorkbookMsgBox ActiveWorkbook.NameПолучить ThisWorkbook (содержащий код VBA)MsgBox ThisWorkbook.NameДобавлятьРабочие тетради. ДобавитьДобавить в переменнуюDim wb As Workbook
Установите wb = Workbooks.Add.ОткрытымWorkbooks.Open («C: \ example.xlsm»)Открыто для переменнойDim wb As Workbook
Установите wb = Workbooks.Open («C: \ example.xlsm»).ЗакрыватьКниги («Книга1»). Закройте SaveChanges: = False
Книги («Книга1»). Закройте SaveChanges: = TrueСохранитьКниги («Книга1»). СохранитьСохранить какКниги («Книга1»). Сохранить как strFileNameЗащитить / Снять защитуРабочие тетради (1). Защитить «пароль»
Рабочие тетради (1). Снять «пароль»Установить переменнуюDim wb as Workbook
Установите wb = Workbooks («Book1»).Цикл по всей книге в книгах

Dim wb As Workbook

Для каждого ББ в книгах
MsgBox wb.Name
Следующий wb

Проверить наличиеЕсли Dir («C: \ Book1.xlsx») = «», то
MsgBox «Файл не существует».
Конец ЕслиКопия закрытаFileCopy «C: \ file1.xlsx», «C: \ file2.xlsx»

Return to Top

Настройки

ОписаниеКод VBAОбновление экранаApplication.ScreenUpdating = False
Application.ScreenUpdating = TrueОтображение предупрежденийApplication.DisplayAlerts = False
Application.DisplayAlerts = TrueСобытияApplication.EnableEvents = False
Application.EnableEvents = TrueВключить клавишу отменыApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptСравнение текста - игнорировать регистрВариант Сравнить текстТребовать объявление переменнойВариант ЯвныйАвтоматические расчетыApplication.Calculation = xlManual
Application.Calculation = xlAutomaticФоновая проверка ошибокApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueПоказать панель формулApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TrueЗамерзшие оконные стеклаActiveWindow.FreezePanes = Ложь
ActiveWindow.FreezePanes = TrueПолноэкранный просмотрApplication.DisplayFullScreen = Ложь
Application.DisplayFullScreen = TrueПредварительный просмотр PageBreakActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewОтображение полос прокруткиС ActiveWindow
.DisplayHorizontalScrollBar = Ложь
.DisplayVerticalScrollBar = Ложь
Завершить с помощью ActiveWindow
.DisplayHorizontalScrollBar = Истина
.DisplayVerticalScrollBar = Истина
Конец сПоказать строку состоянияApplication.DisplayStatusBar = False
Application.DisplayStatusBar = TrueСодержание строки состоянияApplication.StatusBar = «Я работаю !!!»
Application.StatusBar = FalseОтображение вкладок книгиActiveWindow.DisplayWorkbookTabs = Ложь
ActiveWindow.DisplayWorkbookTabs = ИстинаИмя пользователяApplication.UserName = «AutomateExcel.com»Заголовок приложенияApplication.Caption = «Модель AutomateExcel»УвеличитьActiveWindow.Zoom = 80

Return to Top

Ошибки

ОписаниеКод VBAПри ошибке - код остановки и ошибка отображенияПри ошибке Перейти к 0При ошибке - пропустить ошибку и продолжить работуПри ошибке Возобновить ДалееПри ошибке - перейдите к строке кода [Ярлык]При ошибке Перейти к [ярлык]Сбрасывает (сбрасывает) ошибкуПри ошибке GoTo -1Показать номер ошибкиMsgBox Err.NumberПоказать описание ошибкиMsgBox Ошибка ОписаниеФункция для генерации собственной ошибкиErr.Raise

Return to Top

Файлы

ОписаниеКод VBAКопировать файлFileCopy «C: \ test \ test_old.xlsx», «C: \ test \ test_new.xlsx»Удалить файлУбейте «C: \ test \ example.xlsx»Сделать папкуMkDir «C: \ test \»Удалить все файлы из папкиУбейте «C: \ test \» и «*. *»Удалить папкуУбейте «C: \ test \» и «*. *»
RmDir «C: \ test \»Текущий каталогstrPath = CurDir ()Путь к ThisWorkbookstrPath = ThisWorkbook.PathПеребрать все файлы в папке

strFile = Dir («C: \ test» & «\ *»)

Сделать пока Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Петля

Return to Top

Большой продукт. AutoMacro не просто пишет ваш код, он учит вас на ходу! »- Тони, Великобритания

Учить больше

Прочтите наши 900+ обзоров

Массивы

ОписаниеКод VBAСоздаватьDim arr (от 1 до 3) как вариант
arr (1) = «один»
arr (2) = «два»
arr (3) = «три»Создать из ExcelDim arr (от 1 до 3) как вариант
Тусклая ячейка как диапазон, я как целое число
i = LBound (обр.)
Для каждой ячейки в диапазоне («A1: A3»)
я = я + 1
arr (i) = значение ячейки
Следующая ячейкаПрочитать всеТусклый я как долго
Для i = LBound (arr) To UBound (arr)
MsgBox arr (i)
Далее яСтеретьСтереть обр.Массив в строкуDim sName As String
sName = Присоединиться (arr, «:»)Увеличить размерReDim Preserve arr (от 0 до 100)Установить значениеarr (1) = 22

Return to Top

Программирование на VBA | Генератор кода действительно работает для вас!

Коллекции

ОписаниеКод VBAСоздаватьDim coll как новая коллекция
coll.Add «one»
coll.Добавить «два»Создать из ExcelDim coll как новая коллекция
Тусклая ячейка как диапазон
Для каждой ячейки в диапазоне («A1: A2»)
coll.Add cell.value
Следующая ячейкаДобавьте предметcoll.Add «Value»Добавить элемент доcoll.Add «Value», Before: = 1Добавить товар послеcoll.Add «Value», After: = 1Прочитать элементMsgBox, колл. (1)Подсчет предметовcoll.CountПрочитать всеТусклый элемент как вариант
Для каждого элемента в столбце
Элемент MsgBox
Следующий элементУбрать предметколл. удалить (1)Удалить все элементыУстановить coll = Новая коллекция

Return to Top

Словари

ОписаниеКод VBAОбязательная ссылкаИнструменты> Справочные материалы> Среда выполнения сценариев MicrosoftСоздаватьDim dict как новый сценарий. Словарь
dict.Add «»
dict.Add «»Создать из ExcelDim dict как новый сценарий. Словарь
Тусклая ячейка как диапазон
Тусклый ключ как целое число
Для каждой ячейки в диапазоне («A1: A10»)
ключ = ключ + 1
dict.Add ключ, cell.value
Следующая ячейкаДобавьте предметdict.Add «Key», «Value»Изменить значениеdict («Ключ») = «Значение»Получите ценностьMsgBox dict («Ключ»)Проверить значениеЕсли dict.Exists («Ключ»), то
MsgBox «существует»
Конец, еслиУбрать предметdict.Remove («Ключ»)Удалить все элементыdict.RemoveAllЦикл по элементамТусклый ключ как вариант
Для каждой клавиши в dict.Keys
MsgBox ключ, dict (ключ)
Следующий ключПодсчет предметовdict.CountСделать ключ чувствительным к региструdict.CompareMode = vbBinaryCompareСделайте ключевой регистр нечувствительнымdict.CompareMode = vbTextCompare

Return to Top