V spremenljivki VBA Data Types - Variables and Constants smo že preučili, kaj so spremenljivke in konstante. Zdaj bomo pogledali objekt range v VBA in kako razglasiti spremenljivko kot objekt range. Objekt obseg se uporablja za označevanje celic ali več celic v VBA. Zato je zelo koristno uporabiti v kodi.
Kliknite tukaj za več informacij o razponih in celicah VBA.
Objekt obsega VBA
Objekt obseg lahko uporabite za sklicevanje na eno celico. Če se želite na primer sklicevati na celico A1 v kodi VBA, lahko uporabite objekt obsega VBA, kot je prikazano v spodnji kodi:
1234 | Sub ReferringToASingleCellUsingTheRangeObject ()Razpon ("A1"). Vrednost = 89Obseg ("A1"). Font.Bold = TrueEnd Sub |
Ko pritisnete run ali F5 na tipkovnici, za zagon kode dobite naslednji rezultat na svojem dejanskem delovnem listu:
Predmet obsega lahko uporabite za sklicevanje na več celic ali obsegov. Na primer, če se želite v kodi VBA sklicevati na obseg celic (A1: C1), lahko uporabite predmet območja VBA, kot je prikazano v spodnji kodi:
123456 | Sub ReferringToMultipleCellsUsingTheRangeObject ()Razpon ("A1: C1"). Vrednost = "ABC"Obseg ("A1: C1"). Meje (xlEdgeBottom) .LineStyle = xlDoubleEnd Sub |
Ko pritisnete run ali F5 na tipkovnici, za zagon kode dobite naslednji rezultat na svojem dejanskem delovnem listu:
Razglasitev spremenljivke kot obsega
Pri razglasitvi spremenljivke za obseg boste morali uporabiti ključne besede Dim in Set. Spodnja koda prikazuje, kako spremenljivko razglasiti kot obseg.
123456789101112 | Sub DeclaringAndSettingARange ()Dim rng As RangeNastavi rng = območje ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Resrng.Izberirng.Columns.AutoFitEnd Sub |
Rezultat je:
Izbira določenih vrstic v objektu obsega
V objektu obsega lahko izberete določene vrstice. Spodnja koda prikazuje, kako to storiti:
12345678 | PodizbiranjeSpecificRowsInTheRangeObject ()Dim rng As RangeNastavi rng = območje ("A1: C3")rng.Rows (3) .IzberiEnd Sub |
Rezultat je:
Izbira določenih stolpcev v objektu obsega
V objektu obsega lahko izberete določene stolpce. Spodnja koda prikazuje, kako to storiti:
12345678 | PodizbiranjeSpecificColumnsInTheRangeObject ()Dim rng As RangeNastavi rng = območje ("A1: C3")rng. Stolpci (3). IzberiteEnd Sub |