Esimerkkejä Excel VBA: sta

Tämä on hyvin asia, kun aloin työskentelemään ja oppimaan VBA-makroja, olin hämmentynyt siitä, mistä aloittaa. Olemme jo nähneet VBA Editorin, jolla on kaikki määritelmät VBA Editor -ikkunan vaihtoehdoista ja välilehdistä. Aloittelijana emme aina tiedä tapaa aloittaa asia, ennen kuin löydämme sellaisen. Tämä artikkeli on ratkaisu niille, joilla on vaikeuksia käyttää ja oppia VBA-esimerkkejä ja luoda makroja. Olemme kaikki joutuneet kohtaamaan aikaa, jolloin tietyt Excel-ohjelmiston asiat olisi voitu automatisoida makron avulla. Mutta joku, joka ei osaa käyttää VBA: ta, ei pysty luomaan sitä. Tämä on hyödyllinen opas niille, jotka ovat uusia VBA Macro -koodauksessa.

Esimerkkejä VBA: sta Excel-aloittelijoille

Alla on esimerkkejä VBA: sta Excel:

Voit ladata tämän VBA-mallien Excel-mallin täältä - VBA-mallien Excel-mallin

VBA-esimerkki # 1

Katsotaanpa yksinkertainen esimerkki VBA-koodauksen käytöstä. Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Avaa VBA-moduuli, johon kirjoitamme koodimme Lisää valikko -välilehdeltä alla olevan kuvan mukaisesti.

Vaihe 2: Kirjoita nyt VBA-makron osaprosessori mille tahansa nimelle.

Koodi:

 Ala VBA_Examples1 () Loppu alaosa

Vaihe 3: Määritä muuttuja DIM: n avulla, johon tallennamme numeroita kokonaislukuina.

Koodi:

 Sub VBA_Examples1 () himmennetään kokonaislukuna loppuun alaosa

Vaihe 4: Anna nyt mikä tahansa lukumäärä edellä määritellylle muuttujalle, kuten alla on esitetty.

Koodi:

 Osa VBA_Examples1 () himmentää A kokonaislukuna A = 100 Loppu alaosa

Vaihe 5: Tulostamme nyt muuttujaan A tallennetun arvon viestiruudulla.

Koodi:

 Sub VBA_Examples1 () himmentää A kokonaislukuna A = 100 MsgBox A Loppu alaosa

Vaihe 6: Suorita koodi painamalla F8-näppäintä tai napsauttamalla valikkorivin alla olevaa Play-painiketta. Näemme viestiruudun, jonka arvo on 100.

Koodi:

 Sub VBA_Examples1 () himmentää A kokonaislukuna A = 100 MsgBox A Loppu alaosa

Vaihe 7: Tämän olisi voinut tehdä myös vianetsintätoiminnolla, jonka arvot näkyvät välittömässä ikkunassa. ( Huomaa: Avaa välitön ikkuna painamalla Ctrl + G)

Koodi:

 Sub VBA_Examples1 () himmentää A kokonaislukuna A = 100 vianetsintää.Tulosta loppuosa

VBA-esimerkki 2

Nyt tässä esimerkissä näemme toisen esimerkin, jossa käytämme For-Next-silmukkaa arkkien nimien tulostamiseen. Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Avaa moduuli ja kirjoita aliohjelma alla olevan kuvan mukaisesti. Voimme käyttää mitä tahansa nimeä tämän määrittelemiseen.

Koodi:

 Ala VBA_Examples2 () Loppu alaosa

Vaihe 2: Valitse muuttuja kokonaislukuna. Voimme valita nimimuuttujan kuten teimme esimerkissä-1.

Koodi:

 Sub VBA_Examples2 () himmennetään kokonaislukuna loppuun alaosa

Vaihe 3: Avaa Seuraava-silmukka alla olevan kuvan mukaisesti.

Koodi:

 Sub VBA_Examples2 () himmentää kokonaislukuna seuraavalle loppua varten

Vaihe 4: Valitse solun sijainti mistä haluamme nähdä arkkien nimet. Koska meillä ei ole otsikkoviittausta, joten voimme aloittaa solusta 1.

Koodi:

 Sub VBA_Examples2 () Himmennä A kokonaislukuna A = 1 taulukkoon.Lukuta seuraava A loppu Sub

Vaihe 5: Nyt määrittelemme muuttujan A solun arvolla nähdäksesi arkin nimen alla esitetyllä tavalla.

Koodi:

 Osa VBA_Examples2 () himmentää A kokonaislukuna A = 1 laskentatauluille. Laske solut (A, 1) .Value = taulukot (A) .Nimi Seuraava A Loppuosa

Vaihe 6: Suorita nyt koodi painamalla F8-näppäintä tai napsauttamalla Toista-painiketta.

Näemme, että koska meillä oli 3 arkkia, kaikki nimettiin oletukseksi, joten heidän nimensä tulostettiin solusta A1 alapuolelle, kunnes meillä on useita arkkeja.

VBA-esimerkki # 3

Tässä esimerkissä opimme numeroiden tulostamista. Tämä prosessi on melko sama kuin olemme nähneet esimerkissä-2. Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Avaa moduuli ja kirjoita aliohjelma.

Koodi:

 Ala VBA_Examples3 () Loppu alaosa

Vaihe 2: Harkitse muuttujaa, joka käyttää DIM kokonaislukuna. Koska käytämme numeroita kokonaislukuun, olisi käytettävä tietotyyppiä.

Koodi:

 Sub VBA_Examples3 () himmennetään kokonaislukuna loppuun alaosa

Vaihe 3: Avaa uudelleen Seuraava-silmukka alla olevan kuvan mukaisesti.

Koodi:

 Sub VBA_Examples3 () himmentää kokonaislukuna seuraavalle loppua varten

Vaihe 4: Valitse nyt solualue mistä haluamme nähdä lukumäärän viimeiseen kohtaa For syntaksi -kohdassa.

Koodi:

 Sub VBA_Examples3 () himmentää A kokonaislukuna A = 1 - 10 seuraavaan A loppuun alaosaan

Vaihe 5: Korjaa solun sijainti muuttujalla A. Tässä solun toisen sijainnin kärki osoittaa sarakkeen numeron. Kun valitsimme yhden, odotamme näkevämme numerot solusta A1.

Koodi:

 Osa VBA_Examples3 () himmentää A kokonaislukuna A = 1 - 10 solulle (A, 1) .Arvo = Seuraava A Loppuosa

Vaihe 6: Suorita nyt koodi painamalla F8-näppäintä tai napsauttamalla Toista-painiketta. Nähdään, että numerot generoidaan solusta A1 A10 alkaen 1-10 .

Vaihe 7: Entä jos yritämme lisätä nämä numerot toiseen sarakkeeseen? Muuta sarakkeen kärki 1: stä 2: een. Lisää muuten toinen koodirivi alla esitetyllä tavalla.

Koodi:

 Osa VBA_Examples3 () himmentää A kokonaislukuna A = 1 - 10 solulle (A, 1) .Arvo = A Solut (A, 2) .Arvo = A Seuraava A Loppuosa

Vaihe 8: Suorita koko koodi uudelleen painamalla F8-näppäintä tai napsauttamalla Toista-painiketta. Näemme saman numeron, joka alkaa yhdestä 10: een, jotka painettiin sarakkeeseen B, samoin kuin solusta B1 - B10.

VBA-esimerkki # 4

Tässä esimerkissä näemme kuinka muuttaa tyhjien solujen väriä valituista alueista. Tätä varten olemme käyttäneet samaa numeroa kuin edellä olevassa esimerkissä, mutta olemme poistaneet joitain soluista tuloksen saamiseksi.

Vaihe 1: Avaa moduuli, kirjoita aliohjelma alla olevan kuvan mukaisesti.

Koodi:

 Ala VBA_Example4 () Loppu alaosa

Vaihe 2: Määritä muuttuja käyttämällä DIM: ää alueena, kun valitsemme poistuvaa numeroaluetta.

Koodi:

 Sub VBA_Example4 () himmentää A: n alueena loppuosaan

Vaihe 3: Aseta muuttuja nyt valintaksi

Koodi:

 Sub VBA_Example4 () Himmennä A As Range Set A = Valinta End Sub

Vaihe 4: Valitse nyt numeroalue alue määritetyllä muuttujalla A ja valitse vain tyhjät solut valitsemalla xlCellTypeBlanks .

Koodi:

 Osa VBA_Example4 () himmentää A asteikkojoukkona A = valinta A.Selut.Spesiaaliset solut (xlCellTypeBlanks). End Sub

Vaihe 5: Nyt voit muuttaa tyhjien solujen sisäväriä käyttämällä Interior.Color ja valitsemalla väri, jolla haluamme korostaa tyhjät solut. Käytä vbBlue- tai vbGreen-tyyppiä värin määrittämiseen. Vb: n käyttö on pakollista.

Koodi:

 Sub VBA_Example4 () himmennetään A asteikkona A = valinta A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub

Vaihe 6: Valitse nyt solualue ja suorita sitten koodi painamalla F8-näppäintä tai napsauttamalla Toista-painiketta. Nähdään, että solut A4 ja A7, jotka olivat tyhjiä, on nyt korostettu sinisellä värillä alla esitetyllä tavalla.

Plussaa ja miinusta Excel VBA -esimerkkeissä

  • VBA lisää työn tehokkuutta.
  • Tällä haluamme vähentää toistuvia tehtäviä yhdellä kertaa.
  • Voimme luoda minkä tahansa tyyppisiä makroja haluamme.
  • Voimme tallentaa makron myös, jos koodaus ei ole helppoa.
  • Ihmisillä, joilla ei ole koodaustietoa tai -ideaa, voi olla vaikeaa käyttää VBA Macro -sovellusta.

Muistettavat asiat

  • VBA: n aloittelijan tulisi pitää mielessä, että koodi tallennetaan Macro-käytössä olevaan Excel-muotoon. Tämän avulla voimme pitää koodin samassa tiedostossa.
  • Käännä aina koko koodi, vaikka koodi olisi yhdellä rivillä. Tämä vähentää virheenkorjausaikaa, jos kohtaat virheitä koodin suorittamisen jälkeen.
  • Aloita aina VBA: n tai minkä tahansa muun koodauskielen oppiminen pienellä ja helposti koodilla. Tämä antaa paremman ymmärryksen ja luottamuksen.

Suositellut artikkelit

Tämä on opas VBA-esimerkkeihin Excelissä. Tässä keskustellaan hyödyllisistä esimerkeistä VBA-makrokoodista Excelissä yhdessä ladattavan excel-mallin kanssa. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA-kokoelma (esimerkkejä)
  2. VBA IF -lausunnot | Excel-mallit
  3. Kuinka käyttää Excel VBA -lajittelutoimintoa?
  4. VBA while Loop (esimerkkejä Excel-mallilla)
  5. VBA Environ

Luokka:

VBA