Allpool vaatame programmi, mis ringleb läbi määratud vahemiku. Näiteks kui tahame ruudud vahemikus ("A1: A3") ruudukujuliseks muuta. Kas teadsite, et saate ka dünaamilist vahemikku läbida?
Olukord:
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
1. Esiteks deklareerime kaks vahemiku objekti. Me nimetame vahemiku objekte rng ja cell.
Dim rng As Range, lahter As Range
2. Initsialiseerime Range objekti rng parameetriga Range ("A1: A3").
Määra rng = vahemik ("A1: A3")
3. Lisage silmus Iga järgmise kohta.
Iga lahtri jaoks rng
Järgmine lahter
Märkus: rng ja cell valitakse siin juhuslikult, võite kasutada mis tahes nimesid. Ärge unustage viidata neile koodidele ülejäänud koodides.
4. Järgmisena ruutume iga lahtri selles vahemikus. Selle saavutamiseks lisage silmusesse järgmine koodirida:
cell.Value = cell.Value * cell.Value
Tulemus, kui klõpsate lehel käsunuppu:
5. Kui soovite kontrollida iga lahtrit juhuslikult valitud vahemikus, asendage see lihtsalt:
Määra rng = vahemik ("A1: A3")
koos:
Set rng = Valik
6. Nüüd valige näiteks vahemik ("A1: A2").
Tulemus, kui klõpsate lehel käsunuppu:
