Excel VBA Примери
Това е много нещо, когато започнах да работя и уча VBA Макроси, бях объркан откъде да започна. Вече видяхме VBA Editor, който има всички дефиниции на опциите и раздели на прозореца на VBA Editor Window. Като начинаещи, ние винаги не знаем начина да започнем нещата, докато не намерим такова. Тази статия е решението за онези, които срещат трудности при използването и изучаването на примери за VBA и създаването на макроси. Всички сме изправени пред времето, когато някои неща в Excel биха могли да бъдат автоматизирани с помощта на Macro. Но някой, който не знае как да използва VBA, няма да може да го създаде. Това ще бъде полезно ръководство за тези, които са нови в кодирането на VBA Macro.
Примери за VBA в Excel за начинаещи
По-долу са примери за VBA в Excel:
Можете да изтеглите този VBA Примери Excel шаблон тук - VBA Примери Excel ШаблонПример №1 на VBA
Нека видим прост пример за използване на VBA кодиране. За това следвайте стъпките по-долу:
Стъпка 1: Отворете VBA модул, в който ще пишем кода си от менюто Insert меню, както е показано по-долу.
Стъпка 2: Сега напишете подпроцедурата на VBA макрос на всяко име.
Код:
Sub VBA_Examples1 () Край Sub
Стъпка 3: Определете променлива с помощта на DIM, където ще съхраняваме числа като цели числа.
Код:
Sub VBA_Examples1 () Dim A As Integer End Sub
Стъпка 4: Сега дайте произволен номер на гореопределената променлива, както е показано по-долу.
Код:
Под VBA_Examples1 () Dim A като цяло число A = 100 Край Sub
Стъпка 5: Сега ще използваме полето за съобщения, за да отпечатаме стойността, съхранена в Променлива А.
Код:
Sub VBA_Examples1 () Dim A като цяло число A = 100 MsgBox A End Sub
Стъпка 6: Стартирайте кода, като натиснете клавиша F8 или кликнете върху бутона за възпроизвеждане, разположен под лентата на менюто. Ще видим полето със съобщение със стойност 100 в него.
Код:
Sub VBA_Examples1 () Dim A като цяло число A = 100 MsgBox A End Sub
Стъпка 7: Това би могло да стане и с помощта на Debug Print функцията, чиито стойности се виждат в Незабавен прозорец. ( Забележка: Натиснете Ctrl + G, за да отворите незабавен прозорец)
Код:
Под VBA_Examples1 () Dim A като цяло число A = 100 Debug.Print A End Sub
Пример №2 на VBA
Сега в този пример ще видим още един пример, в който ще използваме контура For-Next за отпечатване на имената на листа. За това следвайте стъпките по-долу:
Стъпка 1: Отворете модул и напишете подпроцедура, както е показано по-долу. Можем да използваме всяко име, за да определим това.
Код:
Sub VBA_Examples2 () Край Sub
Стъпка 2: Изберете променлива като цяло число. Можем да изберем променливата за име, както направихме в пример-1.
Код:
Sub VBA_Examples2 () Dim A As Integer End Sub
Стъпка 3: Отворете контура For-Next, както е показано по-долу.
Код:
Sub VBA_Examples2 () Dim A като цяло число за следващ и краен Sub
Стъпка 4: Изберете позицията на клетката от мястото, където искаме да видим имената на листа. Тук нямаме референтен номер на заглавието, за да можем да започнем от клетка 1.
Код:
Под VBA_Examples2 () Dim A като цяло число за A = 1 към таблици.Count Next A End Sub
Стъпка 5: Сега присвояваме променлива A със Стойност на клетката, за да видите името на листа, както е показано по-долу.
Код:
Под VBA_Examples2 () Dim A като цяло число за A = 1 към таблици. Брой клетки (A, 1) .Value = Sheets (A) .Name Next A End Sub
Стъпка 6: Сега стартирайте кода чрез натискане на клавиша F8 или като кликнете върху бутона Възпроизвеждане.
Ще видим, тъй като имахме 3 листа, като всички бяха наречени по подразбиране, така че името им се отпечатва от клетка А1 до долу до броя на таблиците, които имаме.
Пример VBA №3
В този пример ще научим как да отпечатваме числата. Този процес е почти същият, както видяхме в пример-2. За това следвайте стъпките по-долу:
Стъпка 1: Отворете модул и напишете подпроцедурата.
Код:
Sub VBA_Examples3 () Край Sub
Стъпка 2: Помислете за променлива, използвайки DIM като цяло число. Тъй като ние използваме числата към типа данни на Integer, трябва да се използват.
Код:
Sub VBA_Examples3 () Dim A As Integer End Sub
Стъпка 3: Отново отворете контура For-Next, както е показано по-долу.
Код:
Sub VBA_Examples3 () Dim A като цяло число за следващ и краен Sub
Стъпка 4: Сега изберете диапазона на клетките от мястото, където искаме да видим числото до последното в синтаксиса For.
Код:
Sub VBA_Examples3 () Dim A като цяло число за A = 1 до 10 Next A End Sub
Стъпка 5: Сега фиксирайте позицията на клетката с променлива А. Ето, върхът на втората позиция в Cell показва номер на колоната. Както сме избрали 1, така че очакваме да видим числата, започващи от клетка А1.
Код:
Под VBA_Examples3 () Dim A като цяло число за A = 1 до 10 клетки (A, 1) .Value = A Next A End Sub
Стъпка 6: Сега стартирайте кода чрез натискане на клавиша F8 или като кликнете върху бутона Възпроизвеждане. Ще видим, числата се генерират от клетка А1 до А10, започвайки от 1 до 10 .
Стъпка 7: Какво ще стане, ако се опитаме да добавим тези числа във втората колона? Променете върха на колоната от 1 на 2. Или добавете друг ред код, както е показано по-долу.
Код:
Под VBA_Examples3 () Dim A като цяло число за A = 1 до 10 клетки (A, 1) .Value = A клетки (A, 2) .Value = A Next A End Sub
Стъпка 8: Отново стартирайте пълния код, като натиснете клавиша F8 или кликнете върху бутона Възпроизвеждане. Ще видим същото число, започващо от 1 до 10, отпечатано в колона B, както и от клетка B1 до B10.
Пример №4 на VBA
В този пример ще видим как да промените цвета на празните клетки от избраните диапазони. За това използвахме същия номер, както го направихме в горния пример, но изтрихме някои от клетките, за да получим изхода.
Стъпка 1: Отворете модул, напишете подпроцедурата, както е показано по-долу.
Код:
Sub VBA_Example4 () End Sub
Стъпка 2: Определете променлива с помощта на DIM като диапазон, тъй като ние избираме диапазона на излизащите номера.
Код:
Sub VBA_Example4 () Dim A As Range End Sub
Стъпка 3: Сега задайте тази променлива като Selection
Код:
Sub VBA_Example4 () Dim A As Range Set A = Selection End Sub
Стъпка 4: Сега изберете Обхват от числа с помощта на дефинирана променлива А и изберете xlCellTypeBlanks, за да изберете само празните клетки.
Код:
Под VBA_Example4 () Dim A As Range Set A = Selection A.Cells.SpecialCells (xlCellTypeBlanks). Край Sub
Стъпка 5: Сега, за да промените вътрешния цвят на празните клетки, използвайте Interior.Color и изберете цвета, с който искаме да подчертаем празните клетки. Използвайте vbBlue или vbGreen тип, за да определите цвета. Използването на vb е задължително.
Код:
Sub VBA_Example4 () Dim A As Range Set A = Selection A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub
Стъпка 6: Сега изберете обхвата на клетките и след това стартирайте кода, като натиснете клавиша F8 или кликнете върху бутона Възпроизвеждане. Ще видим, че клетките A4 и A7, които бяха празни, сега са подчертани със син цвят, както е показано по-долу.
Плюсовете и минусите на Excel VBA Примери
- VBA повишава ефективността на работата.
- С това искаме да намалим повтарящите се задачи с един замах.
- Можем да създадем всеки тип макроси, който искаме.
- Можем да запишем и макрос, ако извършването на кодирането не е лесно.
- Хората, които нямат знания или идея за кодиране, може да се затруднят да използват VBA Macro.
Неща, които трябва да запомните
- Начинаещ в VBA трябва да има предвид, за да запази кода във формат excel с активиран макрос. Това ще ни позволи да запазим кода в един и същ файл.
- Винаги компилирайте пълния код, дори ако кодът е от един ред. Това ще намали времето ни за отстраняване на грешки, ако се сблъскате с някаква грешка, докато след стартиране на код.
- Винаги стартирайте процеса на обучение на VBA или на друг език за кодиране с малък и лесен код. Това ще даде по-добро разбиране и увереност.
Препоръчителни статии
Това е ръководство за VBA Примери в Excel. Тук обсъждаме някои полезни примери за VBA макро код в Excel, заедно с изтеглящ се шаблон на excel. Можете да разгледате и другите ни предложени статии -
- VBA колекция (примери)
- VBA IF изявления | Excel Шаблони
- Как да използвате функция за сортиране на Excel VBA?
- VBA докато цикъл (примери с шаблон на Excel)
- VBA Environment