Alla tarkastellaan ohjelmaa, joka kiertää määritellyn alueen läpi. Esimerkiksi kun haluamme neliöidä numerot alueella ("A1: A3"). Tiesitkö, että voit myös kiertää dynaamisen alueen?
Tilanne:
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ensin julistamme kaksi Range -objektia. Kutsumme alueen kohteita rng ja solu.
Dim rng as Range, solu As Range
2. Alustamme Range -objektin rng parametrilla Range ("A1: A3").
Aseta rng = alue ("A1: A3")
3. Lisää For For Next Next -silmukka.
Jokaista solua kohti
Seuraava solu
Huomautus: rng ja solu valitaan satunnaisesti täällä, voit käyttää mitä tahansa nimiä. Muista viitata näihin nimiin koodin loppuosassa.
4. Seuraavaksi neliöimme jokaisen solun tällä alueella. Tämän saavuttamiseksi lisää silmukkaan seuraava koodirivi:
cell.Value = cell.Value * cell.Value
Tulos, kun napsautat taulukon komentopainiketta:
5. Jos haluat tarkistaa jokaisen solun satunnaisesti valitulta alueelta, vaihda vain:
Aseta rng = alue ("A1: A3")
kanssa:
Aseta rng = Valinta
6. Valitse nyt esimerkiksi Alue ("A1: A2").
Tulos, kun napsautat taulukon komentopainiketta: