ВБА Цхеат Схеетс - Команде и листе синтакси

ВБА Цхеат Схеет ПДФ (бесплатно преузимање)

Преузмите наш бесплатни Екцел ВБА Цхеат Схеет ПДФ за брзу референцу!

Преузимање

ВБА Цхеат Схеетс

На овој страници потражите листе свих уобичајених ВБА команди и синтаксе. Наћи ћете многе основне команде (нпр. Уметнути лист) и напредну синтаксу (нпр. Рад са низовима).

Савети:

Претражите ову страницу помоћу ЦТРЛ + Ф.

Означите ову страницу као обележивач (ЦТРЛ + Д у Цхроме -у)!

Листови

ОписВБА кодАктивирајте према називу картицеТабеле („Унос“). АктивирајтеАктивирајте према ВБА кодном именуЛист1.АктивирајтеАктивирајте према положају индексаЛистови (1) .АктивирајтеСледећи листАцтивеСхеет.Нект.АцтиватеНабавите АцтивеСхеетМсгБок АцтивеСхеет.НамеИзаберите ЛистТабеле („Унос“). ИзаберитеПодесите на ВариаблеЗатамни као радни лист
Поставите вс = АцтивеСхеетИме / ПреименујАцтивеСхеет.Наме = “Ново име”Адд СхеетСхеетс.АддДодајте лист и називСхеетс.Адд.Наме = “НевСхеет”Додај лист променљивојДим вс Ас Ворксхеет
Сет вс = Схеетс.АддКопирај листТабеле („Лист 1“). Копирај пре: = Табеле („Лист 2“)Сакриј листТабеле („Лист 1“). Висибле = Нетачно
или
Табеле („Лист 1“). Висибле = клСхеетХидденОткриј табелуТабеле („Лист 1“). Видљиво = Тачно
или
Табеле („Лист 1“). Висибле = клСхеетВисиблеВери Хиде СхеетТабеле („Лист 1“). Видљиво = клСхеетВериХидденИзбриши листТабеле („Лист 1“). ИзбришитеЦлеар СхеетЛистови („Лист 1“). Ћелије.ОчистиУклони заштиту (без лозинке)Табеле („Лист 1“). Уклоните заштитуУклони заштиту (лозинка)Табеле („Лист 1“). Уклоните заштиту са „лозинке“Заштита (без лозинке)Листови („Лист 1“). ЗаштититеЗаштита (лозинка)Табеле („Лист 1“). Заштитите „Лозинку“Заштитите, али дозволите приступ ВБАТабеле („Лист 1“). Заштитите УсерИнтерфацеОнли: = Тачно

Повратак на врх

Ћелије и распони

ОписВБА кодАктивирајте ћелијуРаспон („Б3“). Активирајте
Ћелије (3,2). АктивиратиИзаберите ОпсегОпсег („а1: а3“). Изаберите
Опсег (домет („а1“), домет („а3“)). Изаберите
Опсег (ћелије (1, 1), ћелије (3, 1)). ИзаберитеПромените величинуРаспон („Б3“). Промените величину (2, 2) .ОдаберитеОфсетОпсег („Б3“). Помак (2, 2) .ОдаберитеЦопиОпсег („А1: Б3“). Домет копирања („Д1“)ИсециРаспон ("А1: Б3"). Распон сечења ("Д1")ИзбришиРаспон („А1: Б3“). Избришите
Опсег („А1: Б3“). Брисање смене: = клСхифтТоЛефтЈасноДомет („А1: А3“). Чисто
Опсег („А1: А3“). ЦлеарЦонтентс
Распон („А1: А3“). ЦлеарФорматЦоунтОпсег („А1: А3“)Подесите на ВариаблеДим рнг ас Ранге
Постави рнг = опсег („А1“)Мерге/УнМергеОпсег („А1: А3“). Споји
Распон („А1: А3“). Уклони спајањеПетље кроз ћелије

Дим целл Ас Ранге

За сваку ћелију у опсегу („А1: Ц3“)
МсгБок целл.Валуе
Следећа ћелија

Повратак на врх

Редови

ОписВБА кодАктивиратиРедови (1). Активирајте
Редови („1: 1“). Активирајте
Распон („а1“). ЕнтиреРов.АцтиватеВисина ШиринаОпсег („А1“). ЕнтиреРов.РовХеигхт = 30ИзбришиОпсег („А1“). ЕнтиреРов.ДелетеЦоунтОпсег („А1“). Редови.БројИнсертРаспон („А1“). ЕнтиреРов.ИнсертПоследњидим лРед све док
лРов = Ћелије (Ровс.Цоунт, 1) .Енд (клУп) .РовЦопиОпсег („1: 1“). Копирај распон („5: 5“)ИнсертОпсег („1: 1“). Копирај
Опсег („5: 5“). Уметните

Повратак на врх

Колоне

ОписВБА кодАктивиратиКолоне (1). Активирати
Колоне („а: а“). Активирајте
Опсег („а1“). Цела колона.АктивирајВисина ШиринаОпсег („А1“). ЕнтиреЦолумн.ЦолумнВидтх = 30ИзбришиОпсег („А1“). Цела колона.ДелетеЦоунтОпсег („А1“). Колоне.БројИнсертОпсег („А1“). ЕнтиреЦолумн.ИнсертПоследњидим лЦол колико год
лЦол = Ћелије (1, Колоне.Број). Крај (клТоЛефт). КолонаЦопиОпсег („А: А“). Домет копирања („Е: Е“)ИнсертРаспон („А: А“). Копирај
Опсег („Е: Е“). Уметните

Повратак на врх

Уморни сте од тражења примера ВБА кода? Испробајте АутоМацро!

Радне свеске

ОписВБА кодАктивиратиРадне свеске („Књига1“). АктивирајтеАктивирајте прво отварањеРадне свеске (1) .АктивиратиАктивирајте Последње отвореноРадне свеске (Воркбоокс.Цоунт) .АктивирајтеНабавите АцтиватеВоркбоокМсгБок АцтивеВоркбоок.НамеНабавите ову радну књигу (која садржи ВБА код)МсгБок ТхисВоркбоок.НамеДодатиВоркбоокс.АддДодај у променљивуДим вб Као радна свеска
Сет вб = Воркбоокс.АддОтвориВоркбоокс.Опен („Ц: \ екампле.клсм“)Отворено за променљивуДим вб Као радна свеска
Сет вб = Воркбоокс.Опен („Ц: \ екампле.клсм“)БлизуРадне свеске („Књига1“). Затворите СавеЦхангес: = Фалсе
Радне свеске („Књига1“). Затворите Сачувај измене: = ТачносачуватиРадне свеске („Књига1“). СачувајСачувај каоРадне свеске („Књига1“). СавеАс стрФилеНамеЗаштитите/уклоните заштитуРадне свеске (1). Заштитите „лозинку“
Радне свеске (1). Уклоните заштиту „лозинке“Подесите на ВариаблеДим вб као радна свеска
Сет вб = Радне свеске („Књига1“)Прођите кроз све радне свеске у радним свескама

Дим вб Као радна свеска

За сваку вб у радним свескама
МсгБок вб.Наме
Нект вб

Провери постојиАко је Дир (“Ц: \ Боок1.клск”) = “” Тада
МсгБок „Датотека не постоји.“
ЕндИфЦопи ЦлоседФилеЦопи „Ц: \ филе1.клск“, „Ц: \ филе2.клск“

Повратак на врх

Подешавања

ОписВБА кодАжурирање екранаАпплицатион.СцреенУпдатинг = Нетачно
Апплицатион.СцреенУпдатинг = ТачноПрикажи упозорењаАпплицатион.ДисплаиАлертс = Нетачно
Апплицатион.ДисплаиАлертс = ТачноДогађајиАпплицатион.ЕнаблеЕвентс = Нетачно
Апплицатион.ЕнаблеЕвентс = ТачноОмогући тастер за отказивањеАпплицатион.ЕнаблеЦанцелКеи = клДисаблед
Апплицатион.ЕнаблеЦанцелКеи = клИнтерруптУпореди текст - Занемари велика словаОпција Упореди текстЗахтевати декларацију променљивеОпција ЕксплицитноАутоматско израчунавањеАпплицатион.Цалцулатион = клМануал
Апплицатион.Цалцулатион = клАутоматицПровера грешке у позадиниАпплицатион.ЕррорЦхецкингОптионс.БацкгроундЦхецкинг = Нетачно
Апплицатион.ЕррорЦхецкингОптионс.БацкгроундЦхецкинг = ТачноПриказ траке формулеАпплицатион.ДисплаиФормулаБар = Нетачно
Апплицатион.ДисплаиФормулаБар = ТачноЗамрзни окнаАцтивеВиндов.ФреезеПанес = Нетачно
АцтивеВиндов.ФреезеПанес = ТачноПриказ преко целог екранаАпплицатион.ДисплаиФуллСцреен = Нетачно
Апплицатион.ДисплаиФуллСцреен = ТачноПагеБреак ПревиевАцтивеВиндов.Виев = клПагеБреакПревиев
АцтивеВиндов.Виев = клНормалВиевПрикажите траке за померањеСа АцтивеВиндов
.ДисплаиХоризонталСцроллБар = Нетачно
.ДисплаиВертицалСцроллБар = Нетачно
Заврши ВитхВитх АцтивеВиндов
.ДисплаиХоризонталСцроллБар = Тачно
.ДисплаиВертицалСцроллБар = Тачно
ЗавршитиПриказ статусне тракеАпплицатион.ДисплаиСтатусБар = Нетачно
Апплицатион.ДисплаиСтатусБар = ТачноСадржај статусне тракеАпплицатион.СтатусБар = "Сада радим !!!"
Апплицатион.СтатусБар = НетачноПрикажите картице радне свескеАцтивеВиндов.ДисплаиВоркбоокТабс = Нетачно
АцтивеВиндов.ДисплаиВоркбоокТабс = ТачноКорисничко имеАпплицатион.УсерНаме = “АутоматеЕкцел.цом”Натпис апликацијеАпплицатион.Цаптион = “Аутоматизуј Екцел модел”ЗоомАцтивеВиндов.Зоом = 80

Повратак на врх

Грешке

ОписВБА кодУкључена грешка - Заустављање кода и грешка на екрануГрешка при укључивању Иди на 0Грешка при укључивању - Прескочите грешку и наставите са радомНа Грешка Настави даљеГрешка при укључивању - Идите на ред кода [Лабел]Грешка при укључивању Иди на [ознака]Брише (ресетује) грешкуОн Еррор ГоТо -1Прикажи број грешкеМсгБок Ерр.НумберПрикажи опис грешкеМсгБок Ерр.ДесцриптионФункција генерисања сопствене грешкеЕрр.Раисе

Повратак на врх

Фајлови

ОписВБА кодКопија датотекаФилеЦопи „Ц: \ тест \ тест_олд.клск“, „Ц: \ тест \ тест_нев.клск“Избриши датотекуУбијте „Ц: \ тест \ екампле.клск“Направи фасциклуМкДир „Ц: \ тест \“Избришите све датотеке из фасциклеУбијте „Ц: \ тест \“ & „*.*“Избриши фасциклуУбијте „Ц: \ тест \“ & „*.*“
РмДир „Ц: \ тест \“Текући директоријумстрПатх = ЦурДир ()Путања ове радне књигестрПатх = ТхисВоркбоок.ПатхПрођите кроз све датотеке у фасцикли

стрФиле = Дир ("Ц: \ тест" & "\*")

До Вхиле Лен (стрФиле)> 0
Дебуг.Принт стрФиле
стрФиле = Дир
Лооп

Повратак на врх

Одличан производ. АутоМацро не само да пише ваш код, већ учи и док идете! " - Тони, УК

Сазнајте више

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

Арраис

ОписВБА кодКреирајДим арр (1 до 3) као варијанта
арр (1) = „један“
арр (2) = „два“
арр (3) = „три“Креирајте из програма ЕкцелДим арр (1 до 3) као варијанта
Дим целл Ас Ранге, и Ас Интегер
и = ЛБоунд (арр)
За сваку ћелију у домету („А1: А3“)
и = и + 1
арр (и) = ћелија.вредност
Следећа ћелијаПрочитајте све ставкеДим и ас Лонг
За и = ЛБоунд (арр) За УБоунд (арр)
МсгБок арр (и)
Затим самИзбришиИзбриши аррНиз за низДим сНаме Ас Стринг
сНаме = Придружи се (арр, “:”)Повећајте величинуРеДим Пресерве арр (0 до 100)Подешена вредностарр (1) = 22

Повратак на врх

ВБА програмирање | Генератор кода ради за вас!

Збирке

ОписВБА кодКреирајДим цолл као нова колекција
цолл.Додајте „један“
цолл.Додајте „два“Креирајте из програма ЕкцелДим цолл као нова колекција
Дим целл Ас Ранге
За сваку ћелију у домету („А1: А2“)
цолл.Додати ћелију.валуе
Следећа ћелијаДодајте ставкуцолл.Додајте „вредност“Додај ставку прецолл.Додати „Валуе“, Пре: = 1Додај ставку послецолл.Додати „Валуе“, Афтер: = 1Прочитајте ставкуМсгБок цолл (1)Цоунт Итемсцолл.ЦоунтПрочитајте све ставкеПригуши ставку као варијанту
За сваку ставку У зборнику
Ставка мсгБок
Следећа ставкаОбриши предметцолл.Уклони (1)Уклоните све ставкеСет цолл = Нова колекција

Повратак на врх

Речници

ОписВБА кодПотребна референцаАлатке> Референце> Мицрософт Сцриптинг РунтимеКреирајДим дицт Ас Нев Сцриптинг.Дицтионари
дицт.Адд “”
дицт.Адд “”Креирајте из програма ЕкцелДим дицт Ас Нев Сцриптинг.Дицтионари
Дим целл Ас Ранге
Тастер Дим као Интегер
За сваку ћелију у домету („А1: А10“)
кључ = кључ + 1
дицт.Адд кеи, целл.валуе
Следећа ћелијаДодајте ставкудицт.Адд „Кеи“, „Валуе“Промени вредностдицт ("Кеи") = "Вредност"Гет ВалуеМсгБок дицт („кључ“)Проверите вредностАко дицт.Екистс („Кључ“) Затим
МсгБок „Постоји“
Крај АкоОбриши предметдицт.Ремове ("кључ")Уклоните све ставкедицт.РемовеАллПрођите кроз ставкеДим тастер као варијанта
За сваки кључ У дикт.Кључеви
МсгБок кључ, дицт (кључ)
Следећи тастерЦоунт Итемсдицт.ЦоунтНека кључна слова буду осетљивадицт.ЦомпареМоде = вбБинариЦомпареНека велика слова не буду осетљивадицт.ЦомпареМоде = вбТектЦомпаре

Повратак на врх

АутоМацро - Ултимативни додатак ВБА

АутоМацро: ВБА додатак са стотинама примера ВБА кода спремних за употребу и још много тога!

Сазнајте више