See õpetus näitab, kuidas VBA -s terveid ridu või veerge valida ja nendega töötada.
Kõigepealt käsitleme, kuidas valida terveid ridu ja veerge, seejärel demonstreerime, kuidas ridade ja veergudega manipuleerida.
Valige Terve rida või veerud
Valige Üks rida
Klahviga saate valida terve rea Ridade objekt nagu nii:
1 | Ridad (5). Valige |
Või võite kasutada Kogu rida koos Vahemik või Lahtrite objektid:
1 | Vahemik ("B5"). Kogu rida. Valige |
või
1 | Lahtrid (5,1). Kogu rida. Valige |
Võite kasutada ka Vahemiku objekt konkreetsele reale viitamiseks:
1 | Vahemik ("5: 5"). Valige |
Valige Üks veerg
Asemel Ridade objekt, kasuta Veerud Objekt veergude valimiseks. Siin saate viidata veeru numbrile 3:
1 | Veerud (3). Valige |
või täht “C”, ümbritsetud tsitaatidega:
1 | Veerud ("C"). Valige |
Selle asemel Kogu rida, kasutada Kogu veerg koos Vahemik või Lahtrite objektid tervete veergude valimiseks:
1 | Vahemik ("C5"). Kogu veerg. Valige |
või
1 | Lahtrid (5,3). Kogu veerg. Valige |
Võite kasutada ka Vahemiku objekt konkreetselt veerule viitamiseks:
1 | Vahemik ("B: B"). Valige |
Valige mitu rida või veergu
Mitme rea või veeru valimine toimib täpselt sama, kui kasutate EntireRow või EntireColumn:
1 | Vahemik ("B5: D10"). Kogu rida. Valige |
või
1 | Vahemik ("B5: B10"). Kogu veerg. Valige |
Ridade või veergude objektide kasutamisel peate aga reanumbrid või veerutähed tsitaatidesse sisestama:
1 | Ridad ("1: 3"). Valige |
või
1 | Veerud ("B: C"). Valige |
Valige ActiveCelli rida või veerg
ActiveCelli rea või veeru valimiseks võite kasutada ühte järgmistest koodiridadest.
1 | ActiveCell.EntireRow.Select |
või
1 | ActiveCell.EntireColumn.Select |
Valige read ja veerud muudel töölehtedel
Muudel töölehtedel ridade või veergude valimiseks peate esmalt töölehe valima.
12 | Arvutustabelid ("Leht2"). ValigeRidad (3). Valige |
Sama kehtib ka teiste töövihikute ridade või veergude valimisel.
123 | Töövihikud ("Book6.xlsm"). AktiveeriArvutustabelid ("Leht2"). ValigeRidad (3). Valige |
Märkus: peate Aktiveeri soovitud töövihik. Erinevalt Lehed Objekt, Töövihiku objekt puudub a Valige meetod.
Kas ridade ja veergude valimine on vajalik?
Siiski pole (peaaegu?) Kunagi vaja reaid või veerge tegelikult valida. Nendega suhtlemiseks ei pea valima rida ega veergu. Selle asemel saate meetodeid või atribuute otse ridadele või veergudele rakendada. Järgmised mitu jaotist näitavad erinevaid meetodeid ja omadusi, mida saab rakendada.
Ridadele või veergudele viitamiseks võite kasutada mis tahes ülaltoodud meetodit.
Ridade ja veergude meetodid ja omadused
Kustutage terved read või veerud
Ridade või veergude kustutamiseks kasutage Kustuta meetod:
1 | Ridad ("1: 4"). Kustuta |
või:
1 | Veerud ("A: D"). Kustuta |
Sisestage read või veerud
Kasuta Sisestamise meetod ridade või veergude lisamiseks:
1 | Ridad ("1: 4"). Sisestage |
või:
1 | Veerud ("A: D"). Sisesta |
Kopeeri ja kleebi terveid ridu või veerge
Kleebi olemasolevasse ritta või veergu
Tervete ridade või veergude kopeerimisel ja kleepimisel peate otsustama, kas soovite kleepida olemasoleva rea / veeru peale või sisestada oma andmete kleepimiseks uue rea / veeru.
Need esimesed näited kopeeritakse ja kleebitakse olemasolevale reale või veerule:
1 | Vahemik ("1: 1"). Kopeeri vahemik ("5: 5") |
või
1 | Vahemik ("C: C"). Kopeeri vahemik ("E: E") |
Sisesta ja kleebi
Need järgmised näited kleebitakse äsja lisatud reale või veergu.
See kopeerib rea 1 ja lisab selle reale 5, nihutades olemasolevaid ridu allapoole:
12 | Vahemik ("1: 1"). KopeeriVahemik ("5: 5"). Sisesta |
See kopeerib veeru C ja lisab selle veergu E, nihutades olemasolevaid veerge paremale:
12 | Vahemik ("C: C"). KopeeriVahemik ("E: E"). Sisesta |
Peida / peida read ja veerud
Ridade või veergude peitmiseks määrake need Varjatud omadused tõele. Kasutage ridade või veergude peitmiseks False.
12345 | 'Peida readRidad ("2: 3"). EntireRow.Hidden = Tõsi'Näita ridasidRidad ("2: 3"). EntireRow.Hidden = Vale |
või
12345 | 'Peida veerudVeerud ("B: C"). EntireColumn.Hidden = True„Näita veergeVeerud ("B: C"). Kogu veerg. Peidetud = vale |
Ridade ja veergude rühmitamine / rühmituste eemaldamine
Kui soovite rühmitada ridu (või veerge), kasutage sellist koodi:
12345 | 'GrupiridadRidad ("3: 5"). Rühm'Rühma veerudVeerud ("C: D"). Rühm |
Rühmituse eemaldamiseks kasutage seda koodi:
12345 | 'Tühista ridade rühmitamineRidad ("3: 5"). Eemalda rühmitus„Tühista veergude rühmitamineVeerud ("C: D"). Tühista rühmitamine |
See laiendab kõiki rühmitatud kontuuritasemeid.
1 | ActiveSheet.Outline.ShowLevels RowLevels: = 8, ColumnLevels: = 8 |
ja see ahendab kõik kontuuritasemed:
1 | ActiveSheet.Outline.ShowLevels RowLevels: = 1, ColumnLevels: = 1 |
Määrake rea kõrgus või veeru laius
Veeru laiuse määramiseks kasutage seda koodirida:
1 | Veerud ("A: E"). Veeru laius = 30 |
Rea kõrguse määramiseks kasutage seda koodirida:
1 | Ridad ("1: 1"). RowHeight = 30 |
Automaatne rea kõrgus / veeru laius
Veeru automaatseks kohandamiseks tehke järgmist.
1 | Veerud ("A: B"). Autofit |
Rea automaatseks kohandamiseks tehke järgmist.
1 | Ridad ("1: 2"). Autofit |
Ridad ja veerud muudel töölehtedel või töövihikutes
Teiste töölehtede ridade ja veergudega suhtlemiseks peate määrama Lehed Objekt:
1 | Lehed ("Leht2"). Ridad (3). Sisestage |
Samamoodi peate teiste töövihikute ridade ja veergudega suhtlemiseks määratlema ka Töövihiku objekt:
1 | Töövihikud ("book1.xlsm"). Lehed ("Sheet2"). Ridad (3). Sisesta |
Hankige aktiivne rida või veerg
Aktiivse rea või veeru hankimiseks võite kasutada Rida ja Veeru omadused selle ActiveCelli objekt.
1 | MsgBox ActiveCell. Rida |
või
1 | MsgBox ActiveCell. Veerg |
See töötab ka koos Vahemiku objekt:
1 | MsgBoxi vahemik ("B3"). Veerg |