Selles artiklis saate teada, kuidas Set Range (vahemik) lahtrite, ridade ja veergude jaoks VBA Excel.

Lae alla töövihik

Tasuta Exceli harjutusvihiku saate alla laadida siit.

VBA.xlsm vahemiku määramine

VBA vahemiku objekt

The Range objekt VBA võib sisaldada ühte lahtrit, mitut lahtrit, rida, veergu Exceli töölehel.

Hierarhia Range objekt on järgmine.

Rakendus> Töövihik> Tööleht> Vahemik

Nii tuleks deklareerida Range objekt VBA .

7 näiteid selle kohta, kuidas määrata VBA Exceli vahemikku

Selles jaotises käsitletakse, kuidas määrata vahemikku ühes lahtris, mitmes lahtris, ühes reas, mitmes reas, ühes veerus, mitmes veerus ja määrata vahemik käsunupu kaudu. VBA Excel.

1. Vahemiku määramine ühes lahtris VBAs

Siin näeme, kuidas Set Range (vahemik) aastal üksiku raku koos VBA .

Sammud:

• Press Alt + F11 klaviatuuril või mine vahekaardile Arendaja -> Visual Basic avada Visual Basic toimetaja .

• Avakuva koodiaknas klõpsake menüüribal nuppu Insert -> Moodul .

• Kopeeri järgmine kood ja kleebi see koodiaknasse.

 Sub RangeOneCell() Range("B2").Value = "Hello World" End Sub 

Siin,

B2 = lahter, kuhu me tahame väärtust määrata. Saate määrata mis tahes lahtri viitenumbri, mida vajate.

Teie kood on nüüd valmis käivitamiseks.

• Press F5 klaviatuuril või valige menüüribalt Run -> Run Sub/UserFormi käivitamine Võite ka lihtsalt klõpsata väike Play ikoon allmenüüribal makro käivitamiseks.

Lahter B2 sisaldab nüüd väärtust " Hello World ".

Loe edasi: VBA iga Exceli vahemiku iga lahtri jaoks

2. Mitme lahtri vahemiku määramine VBAs

Siin näeme, kuidas Set Range (vahemik) aadressil mitu lahtrit koos VBA .

Sammud:

• Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleebige see sisse.

 Sub RangeCells() Range("A1:D5").Value = "Hello!" End Sub 

Teie kood on nüüd valmis käivitamiseks.

• Käivita makro ja kõik rakud alates A1 aadressile D5 nüüd hoidke " Tere! "

3. Vahemiku määramine ühes reas VBAs

Siin näeme, kuidas Set Range (vahemik) aastal üks rida koos VBA .

Sammud:

• Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleebige see sisse.

 Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(3).Value = "Hello!" End Sub 

Teie kood on nüüd valmis käivitamiseks.

• Käivita makro ja ainult Kolmas rida kõikidest ridadest alates A1 aadressile D5 nüüd hoidke " Tere! "

• Rows(3).Value koodis andis juurdepääsu Kolmas konkreetse vahemiku rida A1:D5 .

4. Mitme rea vahemiku määramine VBAs mitmes reas

Siin näeme, kuidas Set Range (vahemik) aadressil mitu rida koos VBA .

Sammud:

• Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleebige see sisse.

 Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(1).Value = "Tere!" iRow.Rows(3).Value = "Tere!" iRow.Rows(5).Value = "Tere!" End Sub 

Teie kood on nüüd valmis käivitamiseks.

• Käivita makro ja 1. , Kolmas ja 5. ridade kõikidest ridadest, mis pärinevad A1 aadressile D5 nüüd hoidke " Tere! "

Sarnased lugemised:

• Kuidas valida vahemik raku väärtuse alusel VBA (7 võimalust)
• Kasutage VBA vahemiku objekti Excelis (5 omadust)
• Kuidas kasutada VBA vahemiku nihutamist (11 võimalust)
• VBA vahemik muutuva rea numbriga Excelis (4 näidet)

5. Vahemiku määramine ühes veerus VBAs

Siin näeme, kuidas Set Range (vahemik) aastal üks veerg koos VBA .

Sammud:

• Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleepige see sisse.

 Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Hello!" End Sub 

Teie kood on nüüd valmis käivitamiseks.

• Käivita makro ja ainult 2. veeru kõikidest veergudest alates A1 aadressile D5 nüüd hoidke " Tere! "

• iCol.Columns(2).Value koodis andis juurdepääsu 2. konkreetse vahemiku veerg A1:D5 .

6. Mitme veeru vahemiku määramine VBAs

Siin näeme, kuidas Set Range (vahemik) aadressil mitu veergu koos VBA .

Sammud:

• Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleepige see sisse.

 Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Tere!" iCol.Columns(4).Value = "Tere!" End Sub 

Teie kood on nüüd valmis käivitamiseks.

• Käivita makro ja 2. ja Neljas veerud alates A1 aadressile D5 nüüd hoidke " Tere! "

7. Range'i määramine VBA käsunupu kaudu

Siin õpime, kuidas Set Range (vahemik) kasutades Käsunupp aadressil VBA .

Sammud:

• Mine edasi Arendaja -> Sisesta -> käsunuppu .
  • Veenduge, et teil on Disainirežiim sisse lülitatud.

• Drag ümber Käsunupp lehel.

• Topeltklõpsake nupule ja see viib teid koodiaknasse, mis on automaatselt genereeritud koos VBA alamprotseduuri kood .

• Subi sees kirjutage oma kood ja Salvesta.

• Minge tagasi huvipakkuvale töölehele ja klõpsake nuppu Käsunupp Teie koodil põhinev tulemus ilmub töölehele.

VBA Set Range eelised

• Seda on väga lihtne rakendada.
• Argumendid sees on Range objekt ei ole fikseeritud. Seega saame me muuta argumendi väärtusi vastavalt oma vajadustele.
• Argumentidena võib edastada rohkem kui 1 väärtuse.

Asjad, mida meeles pidada

• CELLS omadused VBA saab kasutada ka selleks, et määrata Range aadressil VBA .
• Objekti muutujad tuleb määrata objekti viiteks, milleks on SET

Kokkuvõte

See artikkel näitas teile, kuidas määrata vahemik Excelis VBA makro. Ma loodan, et see artikkel on olnud teile väga kasulik. Võite julgelt esitada mis tahes küsimusi selle teema kohta.