VBA Cheat Sheets - Команди и списъци със синтаксис

VBA Cheat Sheet PDF (Безплатно изтегляне)

Изтеглете нашия безплатен PDF VBA Cheat Sheet PDF за бърза справка!

Изтегли

VBA Cheat Sheets

Направете справка на тази страница за списъци с всички общи VBA команди и синтаксис. Ще намерите много основни команди (напр. Вмъкнете лист) и някои усъвършенствани синтаксиси (напр. Работа с масиви).

Съвети:

Използвайте CTRL + F, за да търсите в тази страница.

Добавете отметка към тази страница (CTRL + D в Chrome)!

Листи

ОписаниеVBA кодАктивирайте по име на разделТаблици („Въвеждане“). АктивирайтеАктивирайте с кодово име на VBAЛист 1. АктивирайтеАктивирайте чрез позиция на индексаЛистове (1). АктивирайтеСледващ листActiveSheet.Next.ActivateВземете ActiveSheetMsgBox ActiveSheet.NameИзберете листЛистове („Въвеждане“). ИзберетеЗадайте променливаDim ws като работен лист
Задайте ws = ActiveSheetИме / ПреименуванеActiveSheet.Name = „Ново име“Добавяне на листЛистове. ДобавянеДобавете лист и имеSheets.Add.Name = „Нов лист“Добавяне на лист към променливаЗатъмнете като работен лист
Задайте ws = Sheets.AddКопиране на листЛистове („Лист1“). Копиране преди: = Листове („Лист2“)Скриване на листаЛистове („Лист1“). Visible = False
или
Листове („Sheet1“). Visible = xlSheetHiddenПоказване на листаЛистове („Лист1“). Видимо = Вярно
или
Листове („Sheet1“). Visible = 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”). ClearContents
Обхват (“A1: A3”). ClearFormatБрояОбхват (“A1: A3”). БройЗадайте променливаЗатъмнете като обхват
Задайте 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Последноdim lRow толкова дълго
lRow = Клетки (Rows.Count, 1) .End (xlUp) .RowкопиеОбхват („1: 1“). Обхват на копиране („5: 5“)ВмъкванеОбхват („1: 1“). Копиране
Обхват (“5: 5”). Вмъкване

Върнете се в началото

Колони

ОписаниеVBA кодАктивиратеКолони (1). Активирайте
Колони („a: a“). Активирайте
Диапазон („a1“). Цяла колона. АктивирайтеВисочина ширинаДиапазон („A1“). EntireColumn.ColumnWidth = 30ИзтрийДиапазон („A1“). Цяла колона. ИзтриванеБрояДиапазон („A1“). Колони. БройВмъкванеДиапазон („A1“). Цяла колона. ВмъкванеПоследноdim lCol толкова дълго
lCol = клетки (1, колони. брой). край (xlToLeft). колонакопиеДиапазон („A: A“). Обхват на копиране („E: E“)ВмъкванеДиапазон („A: A“). Копиране
Обхват (“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“). Затворете SaveChanges: = ВярноЗапазванеРаботни тетрадки („Книга1“). ЗапазванеЗапази катоРаботни книги („Book1“). SaveAs strFileNameЗащитете/премахнете защитатаРаботни книги (1). Защитете „паролата“
Работни книги (1). Премахнете защитата на „паролата“Задайте променливаDim wb като работна книга
Задайте wb = Работни книги („Книга1“)Прегледайте всички работни книги в работни книги

Dim wb Като работна книга

За всяка wb в работни книги
MsgBox wb.Name
Следваща wb

Проверете СъществуваАко Dir (“C: \ Book1.xlsx”) = “” Тогава
MsgBox „Файл не съществува.“
EndIfКопие затвореноFileCopy “C: \ file1.xlsx”, “C: \ file2.xlsx”

Върнете се в началото

Настройки

ОписаниеVBA кодАктуализиране на екранаApplication.ScreenUpdating = False
Application.ScreenUpdating = ВярноПоказване на сигналиApplication.DisplayAlerts = False
Application.DisplayAlerts = ВярноСъбитияApplication.EnableEvents = False
Application.EnableEvents = ВярноАктивирайте клавиша за отмянаApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptТекстово сравнение - Игнориране на регистъраОпция Сравняване на текстИзискване на променлива декларацияОпция ИзричноАвтоматични изчисленияApplication.Calculation = xlManual
Приложение.Изчисляване = xlАвтоматичноПроверка на фоновите грешкиApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = ВярноПоказване на лентата с формулиApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = ВярноОхладителиActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = ВярноИзглед на цял екранApplication.DisplayFullScreen = False
Application.DisplayFullScreen = ВярноPageBreak ВизуализацияActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewПоказване на ленти за превъртанеС ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Завършете с ActiveWindow
.DisplayHorizontalScrollBar = Вярно
.DisplayVerticalScrollBar = Вярно
Край сПоказване на лентата на състояниетоApplication.DisplayStatusBar = False
Application.DisplayStatusBar = ВярноСъдържание на лентата на състояниетоApplication.StatusBar = „Работя сега !!!“
Application.StatusBar = FalseПоказване на разделите на работната книгаActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = ВярноUserNameApplication.UserName = „AutomateExcel.com“Надпис на приложениетоApplication.Caption = „AutomateExcel модел“МащабиранеActiveWindow.Zoom = 80

Върнете се в началото

Грешки

ОписаниеVBA кодOn Error - Стоп код и грешка на дисплеяПри грешка Отидете на 0Грешка при включване - Пропуснете грешка и продължете да работитеНа грешка възобновяване следващоГрешка при включване - Отидете на ред код [Етикет]При грешка Отидете на [Етикет]Изчиства (нулира) грешкаПри грешка GoTo -1Показване на номер на грешкаMsgBox Err.NumberПокажи описание на грешкатаMsgBox Err. ОписаниеФункция за генериране на собствена грешкаГрешка Повдигнете

Върнете се в началото

Файлове

Описание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
Debug.Print strFile
strFile = Реж
Цикъл

Върнете се в началото

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

Научете повече

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

Масиви

ОписаниеVBA кодСъздайтеDim arr (1 до 3) като вариант
arr (1) = „един“
arr (2) = „две“
arr (3) = „три“Създаване от ExcelDim arr (1 до 3) като вариант
Dim cell As Range, i As Integer
i = LBound (arr)
За всяка клетка в обхвата („A1: A3“)
i = i + 1
arr (i) = cell.value
Следващата клеткаПрочетете всички елементиDim i as Long
За i = LBound (arr) Към UBound (arr)
MsgBox arr (i)
Следва iИзтриваИзтриване на обрМасив към низDim sName As String
sName = Присъединяване (arr, “:”)Увеличете размераReDim Preserve arr (0 до 100)Задайте стойностarr (1) = 22

Върнете се в началото

VBA програмиране | Code Generator работи за вас!

Колекции

ОписаниеVBA кодСъздайтеDim coll като нова колекция
coll.Add „one“
coll.Добавете „две“Създаване от ExcelDim coll като нова колекция
Затъмняване на клетката като обхват
За всяка клетка в обхвата („A1: A2“)
coll.Add cell.value
Следващата клеткаДобавете артикулcoll.Add „Стойност“Добавете елемент предиcoll.Добавете „Стойност“, Преди: = 1Добавяне на елемент следcoll.Add “Value”, After: = 1Прочетете елементаMsgBox coll (1)Пребройте артикулитеcoll.CountПрочетете всички елементиЗатъмнете елемента като вариант
За всеки елемент В сб
MsgBox елемент
Следващият елементПремахни артикулcoll.Emove (1)Премахнете всички елементиSet coll = Нова колекция

Върнете се в началото

Речници

ОписаниеVBA кодЗадължителна справкаИнструменти> Препратки> Microsoft Scripting RuntimeСъздайтеDim dict като нов скрипт. Речник
dict.Add „“
dict.Add „“Създаване от ExcelDim dict като нов скрипт. Речник
Затъмняване на клетката като обхват
Затъмнителен ключ като цяло число
За всяка клетка в обхвата („A1: A10“)
ключ = ключ + 1
dict.Add ключ, cell.value
Следващата клеткаДобавете артикулdict.Add “Key”, “Value”Промяна на стойносттаdict („Ключ“) = „Стойност“Вземете стойностMsgBox dict („ключ“)Проверете за стойностАко dict.Exists (“Key”) Тогава
MsgBox „Съществува“
Край АкоПремахни артикулdict.Remove („Ключ“)Премахнете всички елементиdict.RemoveAllЦиклични елементиДим ключ като вариант
За всеки ключ В dict.Keys
MsgBox ключ, dict (ключ)
Следващ ключПребройте артикулитеdict.CountНаправете ключовия регистър чувствителенdict.CompareMode = vbBinaryCompareНаправете ключовите букви нечувствителниdict.CompareMode = vbTextCompare

Върнете се в началото

AutoMacro - Най -добрата добавка VBA

AutoMacro: VBA добавка със стотици готови за използване примери за VBA код и много други!

Научете повече