/ / Loop kroz definirani raspon u programu Excel VBA

Proširite kroz definirani raspon u programu Excel VBA

U nastavku ćemo pogledati program koji petlje kroz određeni raspon, Na primjer, kada želimo podijeliti brojeve u rasponu ("A1: A3"). Jeste li znali da možete i omotati dinamički raspon?

Situacija:

Proširite kroz definirani raspon u programu Excel VBA

Stavite gumb naredbe na radni list i dodajte sljedeće retke koda:

1. Prvo, izjavljujemo dva objekta raspona. Pozivamo raspon objekata rng i ćelije.

Dim rng As Range, cell As Range

2. Inicijaliziramo raspon objekta rng s rasponom ("A1: A3").

Set rng = Range("A1:A3")

3. Dodajte okvir za svaku sljedeću petlju.

For Each cell In rng

Next cell

Napomena: Rng i ćelija slučajno su odabrani ovdje, možete koristiti bilo koja imena. Ne zaboravite uputiti na ova imena u ostatku koda.

4. Zatim, kvadratiramo svaku ćeliju u ovom rasponu. Da biste to postigli, dodajte sljedeću liniju koda petlji:

cell.Value = cell.Value * cell.Value

Rezultat kada kliknete gumb naredbe na listu:

Provedite petlju kroz rezultat definiranog raspona

5. Ako želite provjeriti svaku stanicu u slučajnom odabranom rasponu, jednostavno zamijenite:

Set rng = Range("A1:A3")

s:

Set rng = Selection

6. Sada, na primjer, odaberite Range ("A1: A2").

Proširite kroz odabir u programu Excel VBA

Rezultat kada kliknete gumb naredbe na listu:

Loop kroz rezultat odabira

Također pročitajte: