Exceli VBA näited

See on väga asi, kui hakkasin VBA makrosid töötama ja õppima, oli mul segane, kust alustada. Oleme juba näinud VBA redigeerijat, millel on kõik VBA redaktori akna suvandite ja vahekaartide määratlused. Algajana ei tea me alati asja alustamise viisi, kuni selle üles leiame. See artikkel on lahendus neile, kellel on raskusi VBA näidete kasutamisel ja õppimisel ning makrode loomisel. Me kõik oleme seisnud silmitsi ajaga, mil teatud asju Excelis oleks võinud Macro abil automatiseerida. Kuid keegi, kes ei tea, kuidas VBA-d kasutada, ei suuda seda luua. See on kasulik juhend neile, kellele VBA makrokodeerimine on uus.

Näited VBA-st Excelis algajatele

Allpool on näited VBA-st Excelis:

Selle VBA näidete Exceli malli saate alla laadida siit - VBA näidete Exceli mall

VBA näide nr 1

Vaatame lihtsat näidet VBA kodeerimise kasutamisest. Selleks toimige järgmiselt.

1. samm: avage VBA-moodul, kuhu kirjutame menüü vahekaardil oma koodi, nagu allpool näidatud.

2. samm: kirjutage nüüd VBA makro alamprotsess ükskõik millisesse nime.

Kood:

 Alam VBA_Examples1 () Lõpp Alam

3. samm: määrake DIM abil muutuja, kuhu me numbreid täisarvudena salvestame.

Kood:

 Alam VBA_Examples1 () Hämardatakse täisarvuna Lõpp-alam

4. samm: andke ülalnimetatud muutujale suvaline arv, nagu allpool näidatud.

Kood:

 Alam VBA_Examples1 () Hämardada A kui täisarv A = 100 Lõpp alam

5. samm. Nüüd kasutame muutuja A salvestatud väärtuse printimiseks sõnumikasti.

Kood:

 Alam VBA_Examples1 () Hämardada A kui täisarv A = 100 MsgBox A End Sub

6. samm: käivitage kood, vajutades klahvi F8 või klõpsates menüüriba all asuvat nuppu Esita. Näeme sõnumikasti väärtusega 100.

Kood:

 Alam VBA_Examples1 () Hämardada A kui täisarv A = 100 MsgBox A End Sub

7. samm: seda oleks võinud teha ka silumisprindi funktsiooni abil, mille väärtused on näha kohe aknas. ( Märkus: kohese akna avamiseks vajutage Ctrl + G)

Kood:

 Alam VBA_Examples1 () Tühjendage A täisarvuna = 100 silumist.Printeerige lõpp-alam

VBA näide nr 2

Nüüd näeme selles näites veel ühte näidet, kus lehe nimede printimiseks kasutame For-Next silmust . Selleks toimige järgmiselt.

1. samm: avage moodul ja kirjutage alamprotseduur allpool näidatud viisil. Selle määratlemiseks võime kasutada mis tahes nime.

Kood:

 Alam VBA_Examples2 () lõpp alam

2. samm: valige muutuja täisarvuna. Nimi muutujat saame valida nagu näites-1.

Kood:

 Alam VBA_Examples2 () Hämardatakse täisarvuna Lõpp-alam

3. samm: avage Järgmine ahel, nagu allpool näidatud.

Kood:

 Alam VBA_Examples2 () timmitakse täisarvuna järgmise lõpu alamlaua jaoks

4. samm: valige lahtri asukoht, kust tahame näha lehtede nimesid. Kuna meil pole päise viidet, siis saame alustada lahtrist 1.

Kood:

 Alam VBA_Examples2 () Tühjendatakse A = 1 täisarvuna arvutustabelitesse.Loendus Järgmine A

5. samm: Nüüd määrame muutuja A lahtri väärtusega, et näha lehe nime, nagu allpool näidatud.

Kood:

 Alam VBA_Examples2 () Tühjendatakse A täisarvuna A = 1-lehtedele.Loenduse lahtrid (A, 1) .Väärtus = Lehed (A) .Nimi Järgmine Lõpp Alam

6. samm: käivitage kood, vajutades F8-klahvi või klõpsates nuppu Esita.

Kuna meil oli 3 lehte, näeme, et kõik said vaikimisi nime, nii et nende nimi trükiti lahtrist A1 allapoole, kuni meil on mitu lehte.

VBA näide nr 3

Selles näites õpime numbrite printimist. See protsess on üsna sama, mida nägime näites 2. Selleks toimige järgmiselt.

1. samm: avage moodul ja kirjutage alamprotseduur.

Kood:

 Alam VBA_Examples3 () Lõpp Alam

2. samm: kaaluge muutujat, mille täisarv on DIM. Kuna kasutame numbreid täisarvuni, tuleks kasutada andmetüüpi.

Kood:

 Alam VBA_Examples3 () Hämardatakse täisarvuna Lõpp-alam

3. samm: Avage uuesti For-Next silmus, nagu allpool näidatud.

Kood:

 Alam VBA_Examples3 () timmitakse täisarvuna järgmise lõpu alamlaua jaoks

4. samm. Valige nüüd lahtrite vahemik, kust tahame arvu näha kuni viimase osas Süntaks.

Kood:

 Alam VBA_Examples3 () Tühjendage A täisarvuna A = 1 kuni 10 järgmise A lõpus alammenüüs

5. samm: fikseerige lahtri asukoht muutujaga A. Siin näitab lahtri teine ​​positsiooni tipp veeru numbrit. Kuna valisime 1, eeldame numbrite kuvamist lahtrist A1.

Kood:

 Alam VBA_Examples3 () timmib A täisarvuna A = 1 kuni 10 lahtrile (A, 1) .Value = A Next A End Sub

6. samm: käivitage kood, vajutades F8-klahvi või klõpsates nuppu Esita. Näeme, et numbrid genereeritakse lahtrist A1 kuni A10, alates 1 kuni 10 .

7. samm: mis juhtuks, kui proovime need numbrid teise veergu lisada? Muutke veeru tipu väärtuseks 1 kuni 2. Või lisage veel üks koodirida, nagu allpool näidatud.

Kood:

 Alam VBA_Examples3 () timmib A täisarvuna A = 1 kuni 10 lahtrile (A, 1) .Väärtus = A Cells (A, 2) .Value = A Next A End Sub

8. samm: käivitage kogu kood uuesti, vajutades klahvi F8 või klõpsates nuppu Esita. Näeme sama arvu alates 1 kuni 10, mis trükiti veergu B, samuti lahtrist B1 kuni B10.

VBA näide nr 4

Selles näites näeme, kuidas muuta valitud vahemike tühjade lahtrite värvi. Selleks oleme kasutanud sama arvu, nagu ülaltoodud näites, kuid väljundi saamiseks oleme osa lahtritest kustutanud.

1. samm: avage moodul, kirjutage alamprotseduur allpool näidatud viisil.

Kood:

 Alam VBA_näide4 () lõpp alam

2. samm: määrake muutuja, kasutades DIM-i vahemikuna, kuna valime väljuva numbrivahemiku.

Kood:

 Alam VBA_Example4 () Tühjendada A kui vahemiku lõpp

3. samm: määrake nüüd selle muutuja väärtuseks Valik

Kood:

 Alam VBA_Example4 () Hämardada A As Range Set A = Valik End Sub

4. samm. Nüüd valige määratletud muutuja A abil numbrite vahemik ja ainult tühjade lahtrite valimiseks valige xlCellTypeBlanks .

Kood:

 Alam VBA_Example4 () Hämardada A As Range Set A = Valik A.Cells.SpecialCells (xlCellTypeBlanks). Lõpu alam

5. samm . Tühjade lahtrite sisemuse värvi muutmiseks kasutage sisustust Interior.Color ja valige värv, millega tahame tühjad lahtrid esile tõsta. Värvi määramiseks kasutage tüüpi vbBlue või vbGreen. Vb kasutamine on kohustuslik.

Kood:

 Alam VBA_Example4 () Hämardatakse kui vahemiku komplekt A = Valik A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub

6. samm: valige nüüd lahtrite vahemik ja käivitage kood, vajutades klahvi F8 või klõpsates nuppu Esita. Näeme, et tühjad lahtrid A4 ja A7 on nüüd sinise värviga esile tõstetud, nagu allpool näidatud.

Excel VBA näidete plussid ja miinused

  • VBA suurendab töö efektiivsust.
  • Sellega tahame korduvaid ülesandeid ühe korraga vähendada.
  • Saame luua mis tahes tüüpi makro, mida me soovime.
  • Saame makro salvestada ka siis, kui kodeerimine pole lihtne.
  • Inimestel, kellel pole kodeerimise teadmisi ega ideid, võib VBA makro kasutamine olla keeruline.

Asjad, mida meeles pidada

  • VBA-st algaja peaks meeles pidama, et salvestate koodi makrofunktsioonidega Exceli vormingus. See võimaldab meil koodi samas failis säilitada.
  • Kompileerige alati täielik kood, isegi kui kood on ühel real. See vähendab silumiseks kuluvat aega, kui pärast koodi käivitamist ilmneb tõrge.
  • Alustage alati VBA või mõne muu väikese ja lihtsa koodiga kodeerimiskeele õppimisprotsessi. See annab parema mõistmise ja enesekindluse.

Soovitatavad artiklid

See on VBA näidete juhend Excelis. Siin käsitleme mõnda kasulikku näidet VBA makrokoodist Excelis koos allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA kollektsioon (näited)
  2. VBA IF-avaldused | Exceli mallid
  3. Kuidas kasutada Exceli VBA sortimisfunktsiooni?
  4. VBA Kuigi silmus (näited Exceli malliga)
  5. VBA keskkond

Kategooria:

VBA