Gama obiect (Excel)

• 08/14/2019
• 9 minute pentru a citi
• • o
  • M
  • L
  • m
  • O
  • +4

Reprezintă o celulă, un rând, o coloană, o selecție de celule care conțin unul sau mai multe blocuri contigue de celule, sau un 3D gama.,

observații

membrul implicit al intervalului redirecționează apelurile fără parametri către proprietatea valoare și apelurile cu parametri către elementul membru., Accordingly, someRange = someOtherRange is equivalent to someRange.Value = someOtherRange.Value, someRange(1) to someRange.Item(1) and someRange(1,1) to someRange.Item(1,1).,

următoarele proprietăți și metode pentru a întoarce o Gama obiect sunt descrise în Exemplul de secțiune:

• Gama și Celule proprietăți de obiect Foaie de lucru
• Gama și Celule proprietăți de Gama obiect
• Rânduri și Coloane proprietăți de obiect Foaie de lucru
• Rânduri și Coloane proprietăți de Gama obiect
• Offset de proprietate din Gama obiect
• metoda Uniunii de Aplicare obiect

Exemplu

Utilizare Range (arg), unde arg nume de gama, pentru a reveni o Serie obiect care reprezintă o singură celulă sau un interval de celule., Următorul exemplu plasează valoarea celulei A1 în celula A5.

Worksheets("Sheet1").Range("A5").Value = _ Worksheets("Sheet1").Range("A1").Value

următorul exemplu umple intervalul A1:H8 cu numere aleatorii prin setarea formulei pentru fiecare celulă din interval. Când este folosit fără un obiect de calificare (un obiect la stânga perioadei), proprietatea Range returnează un interval pe foaia activă. Dacă foaia activă nu este o foaie de lucru, metoda eșuează.

utilizați metoda activare a obiectului foii de lucru pentru a activa o foaie de lucru înainte de a utiliza proprietatea interval fără un calificativ obiect explicit.,

Worksheets("Sheet1").Activate Range("A1:H8").Formula = "=Rand()" 'Range is on the active sheet

următorul exemplu șterge conținutul intervalului numit criterii.dacă utilizați un argument text pentru adresa intervalului, trebuie să specificați adresa în notație în stil A1 (nu puteți utiliza notație în stil R1C1).

Worksheets(1).Range("Criteria").ClearContents

utilizați celulele dintr-o foaie de lucru pentru a obține un interval format din toate celulele unice din foaia de lucru. Puteți accesa celule unice prin element (rând, coloană), unde rândul este indexul rândului și coloana este indexul coloanei.,Elementul poate fi omis, deoarece apelul este transmis de către membrul implicit al intervalului.Următorul exemplu stabilește valoarea celulei A1 la 24 și a celulei B1 la 42 pe prima foaie a registrului de lucru activ.

Worksheets(1).Cells(1, 1).Value = 24Worksheets(1).Cells.Item(1, 2).Value = 42

următorul exemplu stabilește formula pentru celula A2.

ActiveSheet.Cells(2, 1).Formula = "=Sum(B1:B5)"

Deși puteți utiliza, de asemenea, Range("A1") pentru a reveni celula A1, pot exista momente când Celulele de proprietate este mult mai convenabil, deoarece puteți utiliza o variabilă de rând sau o coloană. Următorul exemplu creează rubrici de coloane și rânduri pe Foaie1., Rețineți că după activarea foii de lucru, proprietatea celulelor poate fi utilizată fără o declarație explicită a foii (returnează o celulă pe foaia activă).deși puteți utiliza funcțiile string Visual Basic pentru a modifica referințele în stil A1, este mai ușor (și o practică de programare mai bună) să utilizați notația Cells(1, 1).

Use_expression_.Celule, unde expresia este o expresie care returnează un obiect interval, pentru a obține un interval cu aceeași adresă constând din celule unice.,Într-un astfel de interval, accesați celule unice prin element(rând, coloană), unde sunt relative la colțul din stânga sus al primei zone a intervalului.Elementul poate fi omis, deoarece apelul este transmis de către membrul implicit al intervalului.Următorul exemplu stabilește formula pentru celula C5 și D5 din prima foaie a registrului de lucru activ.

Worksheets(1).Range("C5:C10").Cells(1, 1).Formula = "=Rand()"Worksheets(1).Range("C5:C10").Cells.Item(1, 2).Formula = "=Rand()"

Utilizare Range (cell1, cell2), unde cell1 și cell2 sunt Gama de obiecte care specifica celulele de început și sfârșit, să se întoarcă o Gama obiect. Următorul exemplu stabilește stilul liniei de frontieră pentru celulele A1: J10.,rețineți că perioada din fața fiecărei apariții a proprietății celulelor este necesară dacă rezultatul precedentului cu instrucțiunea urmează să fie aplicat proprietății celulelor. În acest caz, indică faptul că celulele se află pe foaia de lucru una (fără perioadă, proprietatea celulelor ar returna celulele pe foaia activă).

With Worksheets(1) .Range(.Cells(1, 1), _ .Cells(10, 10)).Borders.LineStyle = xlThick End With

utilizați rânduri pe o foaie de lucru pentru a obține un interval format din toate rândurile din foaia de lucru. Puteți accesa rânduri unice prin element (rând), unde rândul este indexul rândului.,Elementul poate fi omis, deoarece apelul este transmis de către membrul implicit al intervalului.

următorul exemplu șterge rândul 4 și 10 din prima foaie a registrului de lucru activ.

Worksheets(1).Rows(10).DeleteWorksheets(1).Rows.Item(5).Delete

utilizați coloanele dintr-o foaie de lucru pentru a obține un interval format din toate coloanele din foaia de lucru., Puteți accesa coloane unice prin element (rând) , unde rând este indexul coloanei dat ca număr sau ca adresă de coloană în stil A1.Elementul poate fi omis, deoarece apelul este transmis de către membrul implicit al intervalului.

următorul exemplu șterge coloana „B”, „C”, „E” și „J” din prima foaie a registrului de lucru activ.

Utilizare_expresie_.,Rows, unde expression este o expresie care returnează un obiect Range, pentru a obține un interval format din rândurile din prima zonă a intervalului.Puteți accesa rânduri unice prin element (rând), unde rând este indexul rândului relativ din partea de sus a primei zone a intervalului.Elementul poate fi omis, deoarece apelul este transmis de către membrul implicit al intervalului.

Worksheets(1).Range("C5:D10").Rows(4).DeleteWorksheets(1).Range("C5:D10").Rows.Item(2).Delete

Worksheets("Sheet1").Activate 'Can't select unless the sheet is active Selection.Offset(3, 1).Range("A1").Select

Sub NoMultiAreaSelection() NumberOfSelectedAreas = Selection.Areas.Count If NumberOfSelectedAreas > 1 Then MsgBox "You cannot carry out this command " & _ "on multi-area selections" End If End Sub