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

Шпаргалка VBA у форматі PDF (безкоштовно завантажити)

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

Завантажити

Шпаргалки VBA

Зверніться до цієї сторінки для переліку всіх поширених команд та синтаксису VBA. Ви знайдете багато основних команд (наприклад, вставити аркуш) та деякі розширені синтаксиси (наприклад, робота з масивами).

Поради:

Для пошуку на цій сторінці використовуйте CTRL + F.

Додайте цю сторінку в закладки (CTRL + D у Chrome)!

Листи

ОписКод VBAАктивуйте за назвою вкладкиАркуші ("Введення"). АктивуйтеАктивуйте за кодовою назвою VBAАркуш 1. АктивуйтеАктивуйте за позицією індексуАркуші (1). АктивуйтеНаступний аркушActiveSheet.Next.ActivateОтримайте ActiveSheetMsgBox ActiveSheet.NameВиберіть АркушАркуші ("Введення"). ВиберітьУстановіть значення ЗміннаЗатемнити як робочий аркуш
Встановіть ws = ActiveSheetІм'я / ПерейменуватиActiveSheet.Name = “Нове ім’я”Додати аркушАркуші. ДодДодайте аркуш і назвуSheets.Add.Name = “Новий аркуш”Додати аркуш до змінноїЗатемнити як робочий аркуш
Встановити ws = Таблиці. ДодатиКопіювати аркушАркуші ("Аркуш1"). Скопіювати до: = Аркуші ("Аркуш2")Сховати аркушАркуші ("Аркуш1"). Видимий = Неправда
або
Аркуші ("Аркуш1"). Visible = xlSheetHiddenПоказати аркушАркуші ("Аркуш1"). Видимий = Правда
або
Аркуші ("Аркуш1"). Видимий = xlSheetVisibleДуже приховати аркушАркуші ("Аркуш1"). Видимий = xlSheetVeryHiddenВидалити аркушАркуші ("Аркуш1"). ВидалитиОчистити аркушАркуші ("Аркуш1"). Клітинки. ОчиститиЗняти захист (без пароля)Аркуші ("Аркуш1"). Зняти захистЗняти захист (пароль)Аркуші ("Аркуш1"). Зняти захист "Пароль"Захист (без пароля)Аркуші ("Аркуш1"). ЗахистЗахистити (пароль)Аркуші ("Аркуш1"). Захистіть "Пароль"Захистіть, але дозвольте доступ VBAАркуші ("Аркуш1"). Захистіть UserInterfaceOnly: = Істина

Повернутися на початок

Клітини та діапазони

ОписКод 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”). Очистити вміст
Діапазон (“A1: A3”). ClearFormatРахуватиДіапазон (“A1: A3”)Установіть значення ЗміннаЗмінити rng як діапазон
Встановити rng = Діапазон (“A1”)Об’єднати/Від’єднатиДіапазон (“A1: A3”). Об’єднати
Діапазон (“A1: A3”). Від’єднатиЦикл через клітини

Яскрава клітинка як діапазон

Для кожної клітинки в діапазоні ("A1: C3")
Комірка MsgBox. Значення
Наступна клітина

Повернутися на початок

Ряди

ОписКод VBAАктивуватиРяди (1). Активуйте
Ряди ("1: 1"). Активуйте
Діапазон ("a1"). EntireRow.ActivateВисота ширинаДіапазон ("A1"). EntireRow.RowHeight = 30ВидалитиДіапазон ("A1"). EntireRow.DeleteРахуватиДіапазон ("A1"). РядкиВставитиДіапазон ("A1"). EntireRow.InsertОстаннятьмяний lРядок до тих пір
lRow = Клітинки (Rows.Count, 1) .End (xlUp) .RowКопіюватиДіапазон ("1: 1"). Діапазон копіювання ("5: 5")ВставитиДіапазон ("1: 1"). Копіювати
Діапазон ("5: 5"). Вставити

Повернутися на початок

Колонки

ОписКод VBAАктивуватиСтовпці (1). Активуйте
Стовпці ("а: а"). Активуйте
Діапазон ("a1"). EntireColumn.ActivateВисота ширинаДіапазон ("A1"). EntireColumn.ColumnWidth = 30ВидалитиДіапазон ("A1"). Увесь стовпецьРахуватиДіапазон ("A1"). Стовпці.КількістьВставитиДіапазон ("A1"). EntireColumn.InsertОстаннятьмяний lCol до тих пір
lCol = Осередки (1, Стовпці.Кількість) .Кінець (xlToLeft) .СтовпецьКопіюватиДіапазон ("A: A"). Діапазон копіювання ("E: E")ВставитиДіапазон ("А: А"). Копіювати
Діапазон ("E: E"). Вставити

Повернутися на початок

Втомилися від пошуку прикладів коду VBA? Спробуйте AutoMacro!

Робочі зошити

ОписКод VBAАктивуватиРобочі зошити (“Книга1”). АктивуйтеАктивувати перший відкритийРобочі зошити (1). АктивуйтеАктивувати останнє відкриттяРобочі зошити (Workbooks.Count) .АктивуватиОтримайте ActivateWorkbookMsgBox ActiveWorkbook.NameОтримати цю робочу книгу (містить код VBA)MsgBox ThisWorkbook.NameДодатиРобочі зошити.ДодатиДодати до змінноїDim wb Як робочий зошит
Встановити wb = Робочі книги. ДодативідчиненоWorkbooks.Open ("C: \ example.xlsm")Відкрити для змінноїDim wb Як робочий зошит
Встановіть wb = Workbooks.Open (“C: \ example.xlsm”)ЗакритиРобочі зошити (“Книга1”). Закрийте SaveChanges: = False
Робочі книги (“Книга1”). Закрийте Зберегти зміни: = ІстинаЗберегтиРобочі зошити (“Книга1”). ЗберегтиЗберегти якРобочі зошити (“Книга1”). Зберегти як strFileNameЗахистити/зняти захистРобочі зошити (1). Захистіть «пароль»
Робочі зошити (1). Зняти захист "пароля"Установіть значення ЗміннаDim wb як робочий зошит
Встановити wb = Робочі зошити (“Книга1”)Перегляньте всю книгу у робочих зошитах

Dim wb Як робочий зошит

Для кожного wb у робочих зошитах
MsgBox wb.Name
Наступна вб

Перевірити існуєЯкщо Dir (“C: \ Book1.xlsx”) = “” Тоді
MsgBox «Файл не існує».
EndIfКопія закритаFileCopy “C: \ file1.xlsx”, “C: \ file2.xlsx”

Повернутися на початок

Налаштування

ОписКод VBAОновлення екрануApplication.ScreenUpdating = Неправда
Application.ScreenUpdating = ІстинаВідображення сповіщеньApplication.DisplayAlerts = Неправда
Application.DisplayAlerts = ПравдаПодіїApplication.EnableEvents = Неправда
Application.EnableEvents = ІстинаУвімкніть клавішу скасуванняApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptПорівняння тексту - Ігнорувати регістрОпція Порівняти текстВимагати декларації зміннихОпція явнаАвтоматичні розрахункиApplication.Calculation = xlManual
Розрахунок = xlАвтоматичнийПеревірка фонових помилокApplication.ErrorCheckingOptions.BackgroundChecking = Неправда
Application.ErrorCheckingOptions.BackgroundChecking = ПравдаВідображення панелі формулApplication.DisplayFormulaBar = Неправда
Application.DisplayFormulaBar = ПравдаЗаморозити панеліActiveWindow.FreezePanes = Неправда
ActiveWindow.FreezePanes = ІстинаПовний екранApplication.DisplayFullScreen = Неправда
Application.DisplayFullScreen = ІстинаПопередній перегляд PageBreakActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewВідображення смуг прокруткиЗа допомогою ActiveWindow
.DisplayHorizontalScrollBar = Неправда
.DisplayVerticalScrollBar = Неправда
Завершити за допомогою ActiveWindow
.DisplayHorizontalScrollBar = Істина
.DisplayVerticalScrollBar = Істина
Закінчити зВідобразити рядок стануApplication.DisplayStatusBar = Неправда
Application.DisplayStatusBar = ІстинаЗміст рядка стануApplication.StatusBar = "Я зараз працюю !!!"
Application.StatusBar = НеправдаВідображення вкладок робочої книгиActiveWindow.DisplayWorkbookTabs = Неправда
ActiveWindow.DisplayWorkbookTabs = ПравдаІм'я користувачаApplication.UserName = “AutomateExcel.com”Заголовок програмиApplication.Caption = “Модель AutomateExcel”ЗбільшитиActiveWindow.Zoom = 80

Повернутися на початок

Помилки

ОписКод VBAПомилка увімкнення - код зупинки та помилка відображенняУ разі помилки Перейдіть до 0Помилка при увімкненні - пропустити помилку та продовжити роботуУвімкнути Помилка Відновити ДаліПомилка при увімкненні - перейдіть до рядка коду [Мітка]Помилка Перейти до [Мітка]Очищає (скидає) помилкуПомилка GoTo -1Показати номер помилкиНомер помилки MsgBoxПоказати опис помилкиОпис помилки MsgBoxФункція генерування власної помилкиПомилка Піднятися

Повернутися на початок

Файли

ОписКод 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 ()Цей шлях до робочої книгиstrPath = ThisWorkbook.PathПерегляньте всі файли в папці

strFile = Dir ("C: \ test" & "\*")

Do While Len (strFile)> 0
Налагодження.Надрукувати strFile
strFile = Реж
Петля

Повернутися на початок

Чудовий продукт. AutoMacro не просто пише ваш код, він навчає вас у ході! " - Тоні, Великобританія

Вчи більше

Прочитайте наші 900+ оглядів

Масиви

ОписКод VBAСтворитиDim arr (1 To 3) As Variant
arr (1) = "один"
arr (2) = “два”
arr (3) = "три"Створення з ExcelDim arr (1 To 3) As Variant
Яскрава клітинка як діапазон, i як ціле число
i = LBound (обр.)
Для кожної клітинки в діапазоні ("A1: A3")
i = i + 1
arr (i) = комірка. значення
Наступна клітинаПрочитайте всі пунктиDim i as Long
Для i = LBound (обр.) До UBound (обр.)
MsgBox arr (i)
Далі iСтертиСтерти обрМасив до рядкаDim sName As String
sName = Приєднатися (arr, “:”)Збільшити розмірReDim Preserve обр. (Від 0 до 100)Встановити значенняarr (1) = 22

Повернутися на початок

Програмування VBA | Генератор коду працює для вас!

Колекції

ОписКод VBAСтворитиDim coll як нова колекція
coll.Add "one"
coll.Add "two"Створення з ExcelDim coll як нова колекція
Яскрава клітинка як діапазон
Для кожної клітинки в діапазоні ("A1: A2")
coll.Add cell.value
Наступна клітинаДодати товарcoll.Add “Value”Додати елемент ранішеcoll.Додайте “Value”, Before: = 1Додати елемент післяcoll.Додайте “Value”, After: = 1Прочитайте пунктMsgBox coll (1)Порахувати предметиЗбПрочитайте всі пунктиЗатемнити елемент як варіант
Для кожного елемента У зб
Пункт MsgBox
Наступний пунктВидалити елементзб. Видалити (1)Видалити всі елементиSet coll = Нова колекція

Повернутися на початок

Словники

ОписКод VBAОбов’язкова довідкаІнструменти> Посилання> Сценарій виконання MicrosoftСтворитиDim dict як новий сценарій. Словник
dict.Add “”
dict.Add “”Створення з ExcelDim dict як новий сценарій. Словник
Яскрава клітинка як діапазон
Клавіша Dim як ціле число
Для кожної клітинки в діапазоні ("A1: A10")
ключ = ключ + 1
dict.Add ключ, cell.value
Наступна клітинаДодати товарdict.Add “Key”, “Value”Змінити значенняdict (“Key”) = “Значення”Отримати вартістьMsgBox dict ("ключ")Перевірити значенняЯкщо dict.Exists ("Ключ") Тоді
Повідомлення "Існує"
Закінчити ЯкщоВидалити елементdict.Remove ("Ключ")Видалити всі елементиdict.RemoveAllЦикличні елементиКлюч затемнення як варіант
Для кожної клавіші У довідкових клавішах
Ключ MsgBox, dict (ключ)
Наступний ключПорахувати предметипідрахунокЗробіть ключовий регістр чутливимdict.CompareMode = vbBinaryCompareЗробіть регістр ключів нечутливимdict.CompareMode = vbTextCompare

Повернутися на початок

AutoMacro - Найкраща надбудова VBA

AutoMacro: надбудова VBA із сотнями готових до використання прикладів коду VBA та багато іншого!

Вчи більше