/ / Loop kautta Defined Range Excel VBA

Siirrä läpi määritetyn alueen Excel VBA: ssa

Seuraavassa tarkastellaan ohjelmaa, joka silmukoita määritetyn alueen läpi. Esimerkiksi, kun haluamme nostaa numerot alueelle ("A1: A3"). Tiesitkö, että voit myös silmukoida dynaamisen alueen läpi?

Tilanne:

Siirrä läpi määritetyn alueen Excel VBA: ssa

Aseta komentopainike laskentatauluun ja lisää seuraavat koodiluokat:

1. Ensin mainostetaan kaksi Range-objektia. Me kutsumme Range-objektien rng ja solun.

Dim rng As Range, cell As Range

2. Aloitamme Range-objektin rng Range ("A1: A3").

Set rng = Range("A1:A3")

3. Lisää kunkin seuraavan silmukan.

For Each cell In rng

Next cell

Huomaa: rng ja solu valitaan satunnaisesti, voit käyttää mitä tahansa nimeä. Muista viitata näihin nimiin muussa koodissa.

4. Seuraavaksi neliöimme tämän alueen kussakin solussa. Tämän saavuttamiseksi lisää silmukkaan seuraava koodiviiva:

cell.Value = cell.Value * cell.Value

Tulos, kun napsautat arkin komentopainiketta:

Rajaa määritetyn alueen tuloksen kautta

5. Jos haluat tarkistaa jokaisen solun satunnaisesti valitulla alueella, vaihda vain:

Set rng = Range("A1:A3")

kanssa:

Set rng = Selection

6. Valitse esimerkiksi Alue ("A1: A2").

Selaa valinta Excelissä VBA: ssa

Tulos, kun napsautat arkin komentopainiketta:

Loop kautta Selection Result

Lue myös: