Exemple VBA Excel
Acest lucru este foarte important când am început să lucrez și să învăț Macros VBA, am fost confuz de unde să încep. Am văzut deja VBA Editor, care are toate definițiile opțiunilor și filei ferestrei editorului VBA. Ca începător, nu știm întotdeauna modul de a începe lucrul până nu găsim unul. Acest articol este soluția pentru cei care se confruntă cu dificultăți în utilizarea și învățarea Exemplelor VBA și crearea de Macros. Cu toții ne-am confruntat cu momentul în care anumite lucruri din Excel ar fi putut fi automatizate folosind Macro. Dar, cineva care nu știe să folosească VBA nu va putea crea unul. Acesta va fi un ghid util pentru cei care sunt noi la codarea Macro VBA.
Exemple de VBA în Excel pentru începători
Mai jos sunt exemple de VBA în Excel:
Puteți descărca acest model de Excel VBA Exemple aici - Exemple de model VBA ExcelExemplul 1 VBA # 1
Să vedem un exemplu simplu de utilizare a codării VBA. Pentru aceasta, urmați pașii de mai jos:
Pasul 1: Deschideți un modul VBA unde vom scrie codul nostru din fila Meniu Insert, așa cum se arată mai jos.
Pasul 2: Scrie acum subprocedura macro-ului VBA în orice nume.
Cod:
Sub VBA_Exemple1 () End Sub
Pasul 3: Definiți o variabilă folosind DIM unde vom stoca numere ca numere întregi.
Cod:
Sub VBA_Exemple1 () Dim A Ca număr final final
Pasul 4: Acum dați orice număr variabilei definite mai sus, așa cum se arată mai jos.
Cod:
Sub VBA_Exemple1 () Dim A Ca număr întreg A = 100 Sub final
Pasul 5: Acum vom folosi caseta de mesaj pentru a imprima valoarea stocată în Variabila A.
Cod:
Sub VBA_Exemple1 () Dim A Ca număr întreg A = 100 MsgBox A Sub final
Pasul 6: Rulați codul apăsând tasta F8 sau făcând clic pe butonul Redare situat sub bara de meniu. Vom vedea caseta de mesaje cu valoarea 100 din ea.
Cod:
Sub VBA_Exemple1 () Dim A Ca număr întreg A = 100 MsgBox A Sub final
Pasul 7: Acest lucru s-ar fi putut realiza folosind și funcția Debug Print, ale cărei valori sunt văzute în Fereastra Imediată. ( Notă: Apăsați Ctrl + G pentru a deschide fereastra imediată)
Cod:
Sub VBA_Exemple1 () Dim A Ca număr întreg A = 100 Debug.Imprimă A End Sub
Exemplul VBA nr. 2
Acum, în acest exemplu, vom vedea un alt exemplu în care vom folosi bucla For-Next pentru a tipări numele foii. Pentru aceasta, urmați pașii de mai jos:
Pasul 1: Deschideți un modul și scrieți subprocedura așa cum se arată mai jos. Putem folosi orice nume pentru a defini acest lucru.
Cod:
Sub VBA_Exemple2 () End Sub
Pasul 2: Alegeți o variabilă ca un număr întreg. Putem alege variabila de nume așa cum am făcut în exemplul 1.
Cod:
Sub VBA_Exemple2 () Dim A Ca număr final final
Pasul 3: Deschideți o buclă For-Next așa cum se arată mai jos.
Cod:
Sub VBA_Exemple2 () Dim A ca număr întreg pentru următorul A End Sub
Pasul 4: Selectăm poziția celulei de unde dorim să vedem numele foii. Aici, întrucât nu avem niciun fel de referință la antet, putem porni de la celula 1.
Cod:
Sub VBA_Exemple2 () Dim A Ca număr întreg pentru A = 1 To Sheets.Count Next A End Sub
Pasul 5: Acum alocăm variabila A cu valoarea celulei pentru a vedea numele foii așa cum se arată mai jos.
Cod:
Sub VBA_Exemple2 () Dim A Ca număr întreg pentru A = 1 To Sheets.Count Cells (A, 1) .Value = Sheets (A) .Name Next A End Sub
Pasul 6: Acum executați codul apăsând tasta F8 sau făcând clic pe butonul Redare.
Vom vedea, întrucât aveam 3 coli, toate numite implicit, astfel încât numele lor au fost tipărite de la celula A1 până mai jos până la numărul de foi pe care le avem.
Exemplul VBA nr. 3
În acest exemplu, vom învăța cum să imprimați numerele. Acest proces este cam același cum am văzut în exemplul 2. Pentru aceasta, urmați pașii de mai jos:
Pasul 1: Deschideți un modul și scrieți subprocedura.
Cod:
Sub VBA_Exemple3 () End Sub
Pasul 2: Luați în considerare o variabilă folosind DIM ca număr întreg. Întrucât folosim numerele pentru tipul de date întregi ar trebui să fie utilizate.
Cod:
Sub VBA_Exemple3 () Dim A Ca număr final final
Pasul 3: deschideți din nou o buclă For-Next așa cum se arată mai jos.
Cod:
Sub VBA_Examples3 () Dim A ca număr întreg pentru următorul A End Sub
Pasul 4: Acum selectăm intervalul de celule de unde vrem să vedem numărul până la ultimul din For sintaxă.
Cod:
Sub VBA_Exemple3 () Dim A Ca număr întreg pentru A = 1 până la 10 Următorul A End Sub
Pasul 5: Acum reparați poziția celulei cu variabila A. Aici, a doua vertex de poziție din celula arată numărul coloanei. Pe măsură ce am ales 1, așa că ne așteptăm să vedem numerele pornind de la celula A1.
Cod:
Sub VBA_Exemple3 () Dim A Ca număr întreg pentru A = 1 până la 10 celule (A, 1). Valor = A Următorul A Sub
Pasul 6: Acum executați codul apăsând tasta F8 sau făcând clic pe butonul Redare. Vom vedea, numerele sunt generate de la celula A1 la A10 începând de la 1 la 10 .
Pasul 7: Ce se întâmplă dacă încercăm să adăugăm aceste numere în a doua coloană? Schimbați vârful de coloană de la 1 la 2. Sau adăugați o altă linie de cod așa cum se arată mai jos.
Cod:
Sub VBA_Exemple3 () Dim A Ca număr întreg pentru A = 1 până la 10 celule (A, 1). Valor = Celule A (A, 2). Valor = A Următorul A Final Sub
Pasul 8: rulați din nou codul complet apăsând tasta F8 sau făcând clic pe butonul Redare. Vom vedea același număr începând de la 1 la 10 primit și tipărit în coloana B, de la celula B1 la B10.
Exemplul VBA nr. 4
În acest exemplu, vom vedea cum puteți schimba culoarea celulelor goale din intervalele selectate. Pentru aceasta, am folosit același număr ca și în exemplul de mai sus, dar am șters unele dintre celule pentru a obține ieșirea.
Pasul 1: Deschideți un modul, scrieți subprocedura așa cum se arată mai jos.
Cod:
Sub VBA_Exemple4 () End Sub
Pasul 2: Definiți o variabilă folosind DIM ca rază, deoarece selectăm intervalul de numere care iese.
Cod:
Sub VBA_Example4 () Dim A As Sub End Range
Pasul 3: Setați acum această variabilă ca Selecție
Cod:
Sub VBA_Example4 () Dim A Ca set de intervale A = Selecție finală Sub
Pasul 4: Acum selectați Gama de numere folosind variabila A definită și alegeți xlCellTypeBlanks pentru a selecta numai celulele goale.
Cod:
Sub VBA_Example4 () Dim A Ca set de intervale A = Selecție A.Cells.SpecialCells (xlCellTypeBlanks). Sub final
Pasul 5: Acum pentru a schimba culoarea interioară a celulelor goale, utilizați Interior.Color și alegeți culoarea prin care dorim să evidențiem celulele goale. Utilizați tipul vbBlue sau vbGreen pentru a defini culoarea. Utilizarea vb este obligatorie.
Cod:
Sub VBA_Example4 () Dim A Ca set de intervale A = Selecție A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub
Pasul 6: Acum selectați gama de celule și apoi executați codul apăsând tasta F8 sau făcând clic pe butonul Redare. Vom vedea, celulele A4 și A7 care erau necompletate, sunt acum evidențiate cu culoarea albastră, așa cum se arată mai jos.
Pro și contra Exemple VBA Excel
- VBA sporește eficiența muncii.
- Prin aceasta, dorim să reducem sarcinile repetitive dintr-o singură dată.
- Putem crea orice tip de Macro dorim.
- Putem înregistra, de asemenea, o Macro dacă nu este ușor să faci codificarea.
- Persoanele care nu au cunoștințe sau idei de codificare pot găsi dificultăți în utilizarea Macro VBA.
Lucruri de amintit
- Începătorul în VBA ar trebui să țină cont de salvarea codului în format Excel activat pentru Macro. Acest lucru ne va permite să păstrăm codul în același fișier.
- Compilați întotdeauna codul complet, chiar dacă codul este dintr-o singură linie. Acest lucru ne va reduce timpul de depanare dacă vă confruntați cu vreo eroare în timpul executării codului.
- Începeți întotdeauna procesul de învățare al VBA sau al oricărui alt limbaj de codare cu coduri mici și ușoare. Acest lucru va oferi o mai bună înțelegere și încredere.
Articole recomandate
Acesta este un ghid pentru exemple VBA în Excel. Aici vom discuta câteva exemple utile de cod macro VBA în Excel împreună cu șablonul excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -
- Colecția VBA (exemple)
- Declarații VBA IF | Șabloane Excel
- Cum se utilizează funcția de sortare Excel VBA?
- În timp ce bucla VBA (exemple cu șablonul Excel)
- VBA Environ