VBA-lopputoiminto | Loppuomaisuuden käyttö VBA: ssa (esimerkkien kanssa)

Lopeta toiminto VBA: ssa

Loppu on lausunto VBA: ssa, jolla on useita muotoja VBA-sovelluksissa, yksinkertainen Lauseke voidaan laittaa mihin tahansa koodiin ja se lopettaa koodin suorittamisen automaattisesti. Lausetta käytetään monissa menettelyissä, kuten alimenettelyn lopettamiseksi tai lopettamiseksi mikä tahansa loop-toiminto, kuten End if.

Kaikelle on loppu, ja VBA: ssa se ei ole erilainen. Sinun on täytynyt nähdä tämä sana ” Loppu ” kaikissa VBA: n koodeissa. Voimme päättyä "End Sub", "End Function", "End If". Nämä ovat yleisiä, koska tiedämme, että kukin pää ehdottaa menettelyn päättymistä. Nämä VBA End -lausekkeet eivät vaadi erityistä esittelyä, koska tunnemme sen VBA-koodauksessamme.

Edellä mainitun ”Loppu” -kohdan lisäksi meillä on yksi VBA-omaisuus ”Loppu”. Tässä artikkelissa opastamme sinut läpi kyseisen ominaisuuden ja miten sitä käytetään koodauksessamme.

Loppuomaisuus VBA: ssa

"Loppu" on ominaisuus, jota käytämme VBA: ssa liikkuessamme ehdotettuun suuntaan. Tyypillinen esimerkki suunnasta on siirtyminen aktiivisesta solusta viimeksi käytettyyn soluun tai viimeiseen syöttösoluun vaaka- ja pystysuunnassa laskentataulukossa.

Muistetaanpa tämä esimerkiksi laskentataulukolla. Katso alla olevaa kuvaa.

Juuri nyt olemme A1-solussa.

Jos haluamme siirtyä viimeksi käytettyyn soluun vaakasuunnassa, käytämme Excelin pikanäppäintä Ctrl + oikea nuoli, se vie meidät viimeksi käytettyyn soluun vaakasuunnassa.

Vastaavasti, jos haluamme siirtyä viimeksi käytettyyn soluun alaspäin tai pystysuunnassa, painamme pikanäppäintä Ctrl + alanuoli.

Joten siirtyäksesi vasemmalta oikealle, paina Ctrl + Vasen nuoli, siirtyäksesi alhaalta ylös, paina Ctrl + Ylänuoli.

Samanlainen asia voidaan tehdä VBA: ssa, mutta ei käyttämällä Ctrl- näppäintä, vaan meidän on käytettävä sanaa "End".

Esimerkkejä Excel VBA End -toiminnosta

Voit ladata tämän VBA End Excel -mallin täältä - VBA End Excel -malli

Esimerkki # 1 - Käytä VBA End -ominaisuutta siirtyäksesi laskentataulukossa

Katsotaanpa, miten Excel VBA End -ohjelmaa käytetään siirtymiseen taulukossa. Ensinnäkin meidän on päätettävä, minkä solun meidän on siirrettävä. Ok, sanotaan, että meidän on siirryttävä solusta A1, joten viittaa soluun käyttämällä VBA Range -objektia.

Koodi:

 Sub End_Example1 () Alue ("A1") End Sub 

Laita piste (.) Nähdäksesi IntelliSense-luettelon. Valitse luettelosta "End" VBA-ominaisuus.

Koodi:

 Sub End_Example1 () -alue ("A1"). End End Sub 

Kun valittu ominaisuus on valittu, avataan sulkeet.

Koodi:

 Sub End_Example1 () -alue ("A1"). End (End Sub 

Heti kun avaat sulkeet, voimme nähdä kaikki käytettävissä olevat vaihtoehdot "End" -ominaisuudella. Valitse ”xlToRight” siirtyäksesi solusta A1 viimeksi käytettyyn soluun vaakasuunnassa.

Koodi:

 Sub End_Example1 () -alue ("A1"). End (xlToRight) End Sub 

Siirtymisen jälkeen viimeiseen soluun meidän on valittava, mitä meidän on tehtävä. Laita piste (.) Nähdäksesi IntelliSense-luettelon.

Koodi:

Sub End_Example1 () -alue ("A1"). End (xlToRight). End Sub

Valitse "Valitse" -menetelmä IntelliSense-luettelosta.

Koodi:

 Sub End_Example1 () Range ("A1"). End (xlToRight). Valitse End Sub 

Tätä käytetään solusta A1 viimeiseen käytettyyn vaakatasoon.

Käytä vastaavasti kolmea muuta vaihtoehtoa siirtyäksesi oikealle, vasemmalle, alas, ylös.

Siirtyminen oikealle solusta A1.

Koodi:

 Sub End_Example1 () Range ("A1"). End (xlToRight). Valitse End Sub 

Siirtyminen alas solusta A1.

Koodi:

 Sub End_Example1 () Range ("A1"). End (xlDown). Valitse End Sub 

Siirtyminen solusta A5 ylöspäin.

Koodi:

 Sub End_Example1 () -alue ("A5"). End (xlUp). Valitse End Sub 

Siirry vasemmalle solusta D1.

Koodi:

 Sub End_Example1 () -alue ("D1"). End (xlToLeft). Valitse End Sub 

Kaikki yllä olevat koodit ovat esimerkkiominaisuuksista End-ominaisuuden käytöstä laskentataulukossa liikkumiseen.

Nyt näemme, kuinka alueet valitaan käyttämällä "End" -ominaisuutta.

Esimerkki # 2 - valinta loppuominaisuuden avulla

Meidän on lopetettava ominaisuus, jotta voidaan valita laskentataulukon solualue. Tässä esimerkissä tarkastellaan alla olevia tietoja.

Valitse A1 viimeksi käytettyyn soluun

Jos haluat valita solut A1: stä viimeksi käytettyyn vaakasuoraan soluun, mainitse ensin solu A1 Range-objektissa.

Koodi:

 Sub End_Example2 () -alue ("A1", End Sub 

Toista argumenttia varten avaa vielä yksi Range-objekti ja mainitse solu vain A1: nä.

Koodi:

 Sub End_Example2 () Alue ("A1", Range ("A1") End Sub 

Sulje vain yksi sulu ja aseta piste valitaksesi Excel VBA End -ominaisuuden.

Koodi:

 Sub End_Example2 () -alue ("A1", Range ("A1"). End (End Sub 

Valitse nyt xlToRight ja sulje kaksi hakasulkua.

Koodi:

 Sub End_Example2 () -alue ("A1", Range ("A1"). End (xlToRight)) End Sub 

Valitsi nyt ”Valitse” -menetelmän.

Koodi:

 Sub End_Example2 () -alue ("A1", Range ("A1"). End (xlToRight)). Valitse End Sub 

Ok, olemme valmiit.

Suorita tämä koodi nähdäksesi vaikutuksen.

Kuten näette, se on valinnut alueen A1 - D1.

Käytä alla olevaa koodia samalla tavalla valitaksesi alaspäin.

Koodi:

 Alalohko_esimerkki2 () Alue ("A1", Alue ("A1". Loppu (xlDown)). Valitse 'Valitse vasemmalta oikealle Lopeta ali 

Koodi:

 Sub End_Example2 () -alue ("A1", Range ("A1". End (xlDown)). Valitse 'Valitse ylhäältä alas End Sub 

Koodi:

 Alaosa_esimerkki2 () Alue ("D1", Alue ("D1"). Loppu (xlToLeft)). Valitse 'Valitse oikealta vasemmalle Lopeta ala 

Koodi:

 Ala_esimerkki2 () Alue ("A5", Alue ("A5"). Loppu (xlUp)). Valitse 'Valitse' Valitse alhaalta ylös Lopeta ali 

Esimerkki # 3 - Valitse Oikealta vasemmalle, Oikealta alhaalle ja ylhäältä

Olemme nähneet, kuinka valita vaaka- ja pystysuunnassa. Sekä pysty- että vaakasuuntaiseen valintaan on käytettävä kahta End-ominaisuutta. Tietojen valitsemiseksi välillä A1 - D5 meidän on käytettävä alla olevaa koodia.

Koodi:

 Alaloppu_esimerkki3 () Alue ("A1", Alue ("A1"). Loppu (xlDown). Loppu (xlToRight)). Valitse "Vastaanottaja solusta A1, kunnes viimeksi käytetään solua alaspäin ja oikealle Lopeta ali 

Tämä valitsee koko alueen, kuten alla.

Tällä tavoin voimme käyttää VBA "End" -toiminnon ominaisuutta solualueiden valitsemiseen.


$config[zx-auto] not found$config[zx-overlay] not found