Cuprins
În acest articol, veți afla cum să Set Range pentru celulele, rândurile și coloanele din VBA Excel.
Descărcați caietul de lucru
Puteți descărca gratuit caietul de lucru Excel de practică de aici.
Setați intervalul în VBA.xlsm
Obiect VBA Range
The Gama obiect în VBA poate conține o singură celulă, mai multe celule, rânduri, coloane din foaia de calcul Excel.
Ierarhia de la Gama este ca mai jos.
Aplicație> Caiet de lucru> Fișă de lucru> Gama
Acesta este modul în care trebuie să declarați Gama obiect în VBA .
7 Exemple despre cum să setați intervalul în VBA Excel
În această secțiune se va discuta despre cum să setați un interval într-o singură celulă, mai multe celule, un singur rând, mai multe rânduri, o singură coloană, mai multe coloane și cum să setați un interval prin intermediul butonului de comandă în VBA Excel.
1. Setați intervalul într-o singură celulă în VBA
Aici vom vedea cum să Set Range într-o celulă unică cu VBA .
Pași:
- Presa Alt + F11 de pe tastatură sau mergeți la fila Dezvoltator -> Visual Basic pentru a deschide Editor Visual Basic .
- În fereastra de cod pop-up, din bara de meniu, faceți clic pe Inserare -> Modul .
- Copiați următorul cod și lipiți-l în fereastra de cod.
Sub RangeOneCell() Range("B2").Value = "Hello World" End Sub
Aici,
B2 = celula în care dorim să setați valoarea. Puteți seta orice număr de referință al celulei de care aveți nevoie.
Codul dumneavoastră este acum gata de a fi executat.
- Presa F5 de pe tastatură sau, din bara de meniu, selectați Run -> Run Sub/UserForm Puteți, de asemenea, să faceți clic pe pictograma mică de redare din bara de submeni pentru a rula macrocomenzul.
Celula B2 conține acum valoarea " Bună ziua lume ".
Citește mai mult: VBA pentru fiecare celulă din interval în Excel
2. Setați intervalul în mai multe celule în VBA
Aici vom vedea cum să Set Range în celule multiple cu VBA .
Pași:
- În același mod ca și înainte, deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
- În fereastra de cod, copiați următorul cod și lipiți-l.
Sub RangeCells() Range("A1:D5").Value = "Hello!" End Sub
Codul dumneavoastră este acum gata de a fi executat.
- Rulați macro și toate celulele din A1 la D5 acum țineți " Bună! "
3. Setați intervalul într-un singur rând în VBA
Aici vom vedea cum să Set Range într-o un singur rând cu VBA .
Pași:
- În același mod ca și înainte, deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
- În fereastra de cod, copiați următorul cod și lipiți-l.
Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(3).Value = "Hello!" End Sub
Codul dumneavoastră este acum gata de a fi executat.
- Rulați macro și numai macroul 3. rând din toate rândurile din A1 la D5 acum țineți " Bună! "
- Rows(3).Value din cod a permis accesul la 3. rândul din intervalul specific A1:D5 .
4. Setați intervalul în mai multe rânduri în VBA
Aici vom vedea cum să Set Range în mai multe rânduri cu VBA .
Pași:
- La fel ca înainte, deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
- În fereastra de cod, copiați următorul cod și lipiți-l.
Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(1).Value = "Hello!" iRow.Rows(3).Value = "Hello!" iRow.Rows(5).Value = "Hello!" End Sub
Codul dumneavoastră este acum gata de a fi executat.
- Rulați macro și 1. , 3. și 5. rânduri din toate rândurile din A1 la D5 acum țineți " Bună! "
Lecturi similare:
- Cum se selectează gama pe baza valorii celulei VBA (7 moduri)
- Utilizați obiectul Range din VBA în Excel (5 proprietăți)
- Cum se utilizează VBA Range Offset (11 moduri)
- Interval VBA cu număr de rând variabil în Excel (4 exemple)
5. Setați intervalul în coloană unică în VBA
Aici vom vedea cum să Set Range într-o o singură coloană cu VBA .
Pași:
- În același mod ca și înainte, deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
- În fereastra de cod, copiați următorul cod și lipiți-l.
Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Hello!" End Sub
Codul dumneavoastră este acum gata de a fi executat.
- Rulați macro și numai macroul 2. din toate coloanele din A1 la D5 acum țineți " Bună! "
- iCol.Columns(2).Value din cod a permis accesul la 2. coloana din intervalul specific A1:D5 .
6. Setați intervalul în mai multe coloane în VBA
Aici vom vedea cum să Set Range în coloane multiple cu VBA .
Pași:
- În același mod ca și înainte, deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
- În fereastra de cod, copiați următorul cod și lipiți-l.
Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Hello!" iCol.Columns(4).Value = "Hello!" End Sub
Codul dumneavoastră este acum gata de a fi executat.
- Rulați macro și 2. și 4. coloane din A1 la D5 acum țineți " Bună! "
7. Setați intervalul prin intermediul butonului de comandă în VBA
Aici vom învăța cum să Set Range folosind Butonul de comandă în VBA .
Pași:
- Mergeți la Dezvoltator -> Inserare -> Buton de comandă .
- Asigurați-vă că aveți Mod de proiectare pornit.
- Drag în jurul Butonul de comandă în foaie.
- Dublu clic pe buton și vă va duce la fereastra de cod, generată automat cu un cod Cod VBA Sub-procedură .
- În interiorul Sub, scrieți codul dvs. și Economisiți.
- Reveniți la foaia de lucru care vă interesează și faceți clic pe butonul Butonul de comandă Rezultatul bazat pe codul dvs. va apărea în foaia de lucru.
Avantajele VBA Set Range
- Este foarte ușor de implementat.
- Argumentele din interiorul secvenței Gama nu sunt fixe. Astfel, putem modifica valorile argumentului în funcție de nevoile noastre.
- Mai mult de o valoare poate fi transmisă ca argument.
Lucruri de reținut
- CELULE proprietăți în VBA poate fi, de asemenea, utilizat pentru a seta Gama în VBA .
- Variabilele de obiect trebuie să fie setate ca referință a obiectului prin intermediul funcției SET
Concluzie
Acest articol v-a arătat cum să setați intervalul în Excel Macro VBA. Sper că acest articol v-a fost foarte benefic. Nu ezitați să îmi adresați orice întrebare referitoare la acest subiect.