/ / "Excel VBA Range Object"

"Excel VBA Range Object"

Diapazono pavyzdžiai | Ląstelės | Skelbti Range objektą | Pasirinkite | Eilutės | Stulpeliai | Kopijuoti įklijuoti | Aiškus | Grafas

The Range objektas, kuris yra ląstelės (arba ląstelių) pateikimas jūsų darbalapyje, yra svarbiausias objektas Excel VBA. Šiame skyriuje pateikiama apžvalgaObjekto "Range" savybės ir metodai. Savybės yra kažkas, kokį objektas turi (jie apibūdina objektą), o metodai ką nors daro (jie atlieka veiksmą su objektu).

Diapazono pavyzdžiai

Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šią kodo eilutę:

Range("B3").Value = 2

Rezultatas spustelėjus komandą mygtuką ant lapo:

"Excel VBA" diapazono pavyzdys

Kodas:

Range("A1:A4").Value = 5

Rezultatas:

Diapazono pavyzdys

Kodas:

Range("A1:A2,B3:C4").Value = 10

Rezultatas:

Diapazono pavyzdys

Pastaba: norėdami nurodyti "Excel VBA" kodą pavadintą diapazoną, naudokite tokį kodo eilutę kaip:

Range("Prices").Value = 15

Ląstelės

Vietoje diapazono galite naudoti "Cells". Ląstelių naudojimas yra ypač naudingas, kai norite skleisti intervalus.

Kodas:

Cells(3, 2).Value = 2

Rezultatas:

Ląstelės "Excel VBA"

Paaiškinimas: "Excel VBA" įveda reikšmę 2 į ląstelę ties 3 ir 2 stulpelių sankirta.

Kodas:

Range(Cells(1, 1), Cells(4, 1)).Value = 5

Rezultatas:

Ląstelės

Skelbti Range objektą

Jūs galite paskelbti Range objektą naudodami raktinius žodžius Dim ir Set.

Kodas:

Dim example As Range
Set example = Range("A1:C4")

example.Value = 8

Rezultatas:

Paskelbkite "Range" objektą Excel VBA

Pasirinkite

Svarbus "Range" objekto metodas yra "Select" metodas. Pasirinktas metodas tiesiog pasirenka diapazoną.

Kodas:

Dim example As Range
Set example = Range("A1:C4")

example.Select

Rezultatas:

Pasirinkite metodą

Pastaba: norėdami pasirinkti lakštus kitame darbalapyje, pirmiausia turite aktyvuoti šį lapą. Pavyzdžiui, toliau nurodytomis eilutėmis pažymėkite langelį B7 trečiajame lape kairėje.

Worksheets(3).Activate
Worksheets(3).Range("B7").Select

Eilutės

Turto eilutės suteikia prieigą prie tam tikros diapazono eilutės.

Kodas:

Dim example As Range
Set example = Range("A1:C4")

example.Rows(3).Select

Rezultatas:

Eilutės nuosavybės

Pastaba: riba tik iliustracijai.

Stulpeliai

"Columns" nuosavybė suteikia prieigą prie tam tikro diapazono stulpelio.

Kodas:

Dim example As Range
Set example = Range("A1:C4")

example.Columns(2).Select

Rezultatas:

Stulpelių nuosavybė

Pastaba: riba tik iliustracijai.

Kopijuoti įklijuoti

Kopijavimo ir įklijimo metodas naudojamas nukopijuoti diapazoną ir įklijuoti jį kur nors kitur darbalapyje.

Kodas:

Range("A1:A2").Select
Selection.Copy

Range("C3").Select
ActiveSheet.Paste

Rezultatas:

Kopijuoti / įklijuoti metodas

Nors tai yra leidžiama "Excel VBA", daug geriau naudoti kodo eilutę, žemiau kurios yra tas pats.

Range("C3:C4").Value = Range("A1:A2").Value

Aiškus

Norėdami išvalyti "Excel" rinkinio turinį, galite naudoti "ClearContents" metodą.

Range("A1").ClearContents

arba tiesiog naudokite:

Range("A1").Value = ""

Pastaba: norėdami išvalyti diapazono turinį ir formatą, naudokite "Išvalyti" metodą. Naudokite "ClearFormats" metodą tik norint išvalyti formatą.

Grafas

Naudodami Count savybę, galite suskaičiuoti diapazono ląstelių, eilučių ir stulpelių skaičių.

Grafinis turtas

Pastaba: riba tik iliustracijai.

Kodas:

Dim example As Range
Set example = Range("A1:C4")

MsgBox example.Count

Rezultatas:

Count Cells

Kodas:

Dim example As Range
Set example = Range("A1:C4")

MsgBox example.Rows.Count

Rezultatas:

Skaičiuoti eilutes

Pastaba: panašiu būdu galite suskaičiuoti diapazono stulpelių skaičių.

Taip pat perskaitykite: