Excel VBA seuraavaa silmukkaa varten
VBA For Next -silmukka on silmukka, jota käytetään kaikkien ohjelmointikielien joukossa, tässä silmukassa on lause for-lauseen jälkeen, jolle koodi silmukkaa silmukassa, kunnes kriteerit on saavutettu ja kun kriteerit on saavutettu, seuraava käsky ohjaa menettely koodin seuraavaan vaiheeseen.
”For Next” -silmukka on yksi niistä silmukoista, jota käytetään hyvin usein kuin muita silmukoita VBA-koodauksessa. Silmukat auttavat meitä toistamaan samanlaisen tehtävän tietyille soluille, kunnes ehto on TOSI.
FOR LOOP silmukkaa solualueen läpi ja suorita tietty tehtävä, kunnes ehto on TOSI. Jos esimerkiksi haluat siirtyä ensimmäisten 10 solun läpi ja lisätä sarjanumeroita yhdellä, voit käyttää FOR NEXT -silmukkaa.
Tämä silmukka tarvitsee muuttujan silmukan ajamiseksi. Tämän muuttujan avulla voimme viitata soluihin dynaamisesti.
Se sisältää kolme parametria.
For Statement = Lähtökohta lopetuspisteeseen (Suorita joitain tehtäviä) Seuraava lause
Aloituskohdasta silmukka alkaa ja suorittaa jonkin tehtävän, kun tehtävä on suoritettu, sen siirtyminen seuraavaan silmukkaan ja suorittaa saman tehtävän uudestaan eri solussa. Tällä tavoin, kunnes se saavuttaa päätepisteen, se jatkaa määritetyn tehtävän suorittamista.
Kuinka käyttää VBA: ta seuraavaan silmukkaan?
Oletetaan, että haluat lisätä sarjanumerot välillä 1-10 - A1 - A10. Tietenkin voimme lisätä kuten kirjoittaa kymmenen riviä koodia.
Koodi:
Sub For_Next_Loop_Example1 () Alue ("A1"). Arvo = 1 Alue ("A2"). Arvo = 2 Alue ("A3"). Arvo = 3 Alue ("A4"). Arvo = 4 Alue ("A5") Arvo = 5 Alue ("A6"). Arvo = 6 Alue ("A7"). Arvo = 7 Alue ("A8"). Arvo = 8 Alue ("A9"). Arvo = 9 Alue ("A10") Arvo = 10 loppuosa
Mutta entä jos haluan lisätä 100 sarjanumeroa? En tietenkään voi kirjoittaa 100 riviä koodia vain lisätäksesi sarjanumeroita. Tässä tulee näkyviin ”FOR NEXT” -silmukan kauneus . Minimoi koodi noudattamalla seuraavia ohjeita.
Vaihe 1: Ensin on määriteltävä muuttuja. Olen ilmoittanut muuttujan nimen nimeltä “Sarjanumero” kokonaislukutietotyypiksi.
Koodi:
Sub For_Next_Loop_Example2 () Himmennä sarjanumero kokonaisloppuna Sub
Vaihe 2: Nyt tilaan hakea SEURAAVAA silmukkaa, tavoitteemme on lisätä sarjanumerot 1-10, joten tämä tarkoittaa, että silmukan on suoritettava kymmenen kertaa. Joten FOR LOOP -lausunnon tulisi olla tällainen.
Sarjanumero = 1-10
Seuraava sarjanumero
Koodi:
Sub For_Next_Loop_Example2 () Himmennä sarjanumero kokonaislukuna sarjanumerolle = 1-10 Seuraava Sarjanumero End Sub
Vaihe 3: Olemme käyttäneet silmukkaa. Nyt kun silmukka on otettu käyttöön, meidän on määritettävä, mitä meidän on tehtävä silmukan sisällä. Tavoitteenamme on lisätä sarjanumerot 1-10. Kirjoita koodi soluiksi (Sarjanumero, 1). Arvo = Sarjanumero.
Koodi:
Sub For_Next_Loop_Example2 () Himmennä sarjanumero kokonaislukuna Dim Sarjanumero = 1-10 solua (Sarjanumero, 1). Arvo = Sarjanumero Dim Sarjanumero Numero Loppu
Vaihe 4: Syy siihen, miksi olimme antaneet Sarjanumero CELLS-ominaisuudessa, koska emme voi määrittää vakavaa numeroa riviviittaukseksi tässä. Joka kerta, kun silmukka suoritetaan, haluan lisätä uuden sarjanumeron uuteen soluun, ei samaan soluun.
Vaihe 5: Suorita koodirivi riviltä painamalla F8-näppäintä.
Vaihe 6: Aseta kohdistin muuttujalle Serial_Number; se näyttää sarjanumeron nykyisen arvon.
Tässä vaiheessa Sarjanumero-arvo on nolla.
Vaihe 7: Paina vielä kerran F8-näppäintä, keltainen väri siirtyy seuraavalle koodiriville VBA: ssa. Aseta nyt kohdistin Sarjanumero-kohtaan.
Nyt Serial_Number-arvo on yhtä kuin yksi, koska nyt silmukka on aloitettu ja silmukamme alkaa 1: stä, joten muuttujan Serial_Number arvo on yhtä.
Vielä yksi mielenkiintoinen asia on missä tahansa muuttuja Serial_Number, joka on myös yhtä suuri kuin 1.
Joten soluominaisuudessa olemme maininneet koodin seuraavasti:
Solut (Sarjanumero, 1). Arvo = Sarjanumero
Tämä tarkoittaa soluja (1, 1). Arvo = 1. (solut (1,1) tarkoittaa riviä1 ja saraketta1.
Joten rivinumerossa 1 ja sarakkeen numerossa 1 arvon tulisi olla 1.
Vaihe 8: Paina nyt F8 vielä kerran ja katso, mitä tapahtuu rivillä1 ja sarakkeessa1 eli solussa A1.
Joten saimme arvon 1 eli sarjanumeron arvon.
Vaihe 9: Paina nyt F8-näppäintä vielä kerran. Tyypillisesti seuraava koodi tulisi suorittaa eli aliaseman loppu. Mutta tässä se palaa "edellä olevalle riville".
Vaihe 10: Muista, että silmukka on jo suoritettu ensimmäisen ajon aikana. Nyt se palaa toisen kerran. Aseta nyt kohdistin muuttujalle Serial_Number ja katso, mikä arvo on.
Nyt muuttuja Serial_Number on yhtä suuri kuin 2, koska silmukka on jo palannut toisen kerran.
Nyt missä Serial_Number on, on yhtä suuri kuin arvo 2. Joten rivikoodi:
Solut (Sarjanumero, 1). Arvo = Sarjanumero on yhtä suuri kuin:
Solut (2, 1). Arvo = 2. (Solut (2,1) tarkoittaa riviä2 ja sarake1 eli A2-solua).
Vaihe 11: Suorita tämä koodi ja katso arvo A2-solussa.
Joten saimme toisen sarjanumeron arvon.
Vaihe 12: Paina nyt F8-näppäintä. Se palaa takaisin yllä olevalle riville toistamaan koodin. Tällä kertaa Serial_Number-arvo on 3.
Vaihe 13: Joten missä tahansa Sarjanumero on, on yhtä suuri kuin 3.
Joten rivikoodi : Solut (Sarjanumero, 1). Arvo = Sarjanumero on yhtä suuri kuin:
Solut (3, 1). Arvo = 3. (Solut (3,1) tarkoittaa riviä 3 ja sarake1 eli A3-solua).
Vaihe 14: Suorita korostettu rivi painamalla F8 ja nähdä arvo A3-solussa.
Vaihe 15: Jatka nyt F8-painikkeen painamista. Se lisää sarjanumeroita. Muuttujan Serial_Number hetkiarvo on 10, se lopettaa silmukan ja poistuu silmukasta.
