Kad mēs rakstām VBA kodējumu, lai glābtu sevi no atkārtota darba, datu izvēlei ir ļoti svarīga loma. Tātad, šajā rakstā jūs uzzināsit, kā atlasīt datus pēc rindas, kolonnas un visu dokumentu datiem, izmantojot VBA kodējumu programmā Microsoft Excel.
Jūs uzzināsit:
- Kā izvēlēties visu kolonnu?
- Kā izvēlēties visu rindu?
- Kā izvēlēties visus datus?
Kā izvēlēties visu kolonnu, izmantojot VBA?
Mums ir dati diapazonā A1: C19, kurā A slejā ir vārds, B slejā Dzimums un C slejā ir vecums.
Lai šajos datos atlasītu visu kolonnu A, veiciet tālāk norādītās darbības un kodu:-
- Atveriet VBA lapu, nospiediet taustiņu Alt+F11
- Ievietojiet moduli
- Uzrakstiet zemāk minēto kodu:
Apakškolonu atlases () diapazons ("A1"). Visa kolonna. Atlasiet Beigu apakš
- Nospiediet taustiņu F5, lai programmā Excel palaistu makro
- Tiks atlasīta A sleja
Ja vēlaties, lai dati tiktu atlasīti līdz pēdējai kolonnas aktīvajai šūnai, izpildiet tālāk minētās darbības un kodu:-
- Ierakstiet zemāk minēto kodu:-
Apakškolonsselect () lastrow = darblapas ("Sheet1"). Šūnas (Rows.count, 1). End (xlUp). Rindas darblapas ("Sheet1"). Diapazons ("A1: A" un pēdējā rindiņa). Atlasiet End Sub
Koda skaidrojums:- Vispirms mēs definēsim, kas būs pēdējā aktīvā datu šūna, un pēc tam pēdējo rindu izmantosim, lai definētu kodēšanas diapazonu.
- Nospiediet taustiņu F5, lai programmā Excel palaistu makro
- Tiks atlasīta kolonna A1: A19
Tādā veidā, izmantojot VBA, jūs varat atlasīt kodu, lai atlasītu kolonnu līdz pēdējai aktīvajai šūnai. Ja mēs nezinām, kas ir pēdējā aktīvā šūna, mēs varam izmantot šo kodu, rakstot atlases VBA kodu programmā Microsoft Excel.
Kā izvēlēties visu rindu caur VBA?
Mums ir dati diapazonā A1: C19, kurā A slejā ir vārds, B slejā Dzimums un C slejā ir vecums.
Lai šajos datos atlasītu visu rindu, veiciet tālāk norādītās darbības un kodu:-
- Atveriet VBA lapu, nospiediet taustiņu Alt+F11
- Ievietojiet moduli
- Ierakstiet zemāk minēto kodu:-
Apakšrindas atlasiet () diapazonu ("A2"). EntireRow.Select End Sub
- Nospiediet taustiņu F5, lai programmā Excel palaistu makro
- Tiks atlasīta A sleja
Ja vēlaties, lai dati tiktu atlasīti līdz pēdējai aktīvajai šūnai, izpildiet tālāk minētās darbības un kodu:-
- Ierakstiet zemāk minēto kodu:-
Apakšrindas izvēle () Dim lastcolumn As Long lastcolumn = Darblapas ("Sheet1"). Šūnas (1, Columns.count) .End (xlToLeft). Kolonnas darblapas ("Sheet1"). Diapazons ("A1", Cells (1, lastcolumn) )). Atlasiet Beigt apakš
Koda skaidrojums: Šajā kodā mēs vispirms definējām pēdējo kolonnu, tad mēs to izmantosim, lai definētu diapazonu.
- Nospiediet F5, lai programmā Excel palaistu makro
- Pirmā rinda tiks atlasīta līdz rindas pēdējai aktīvajai šūnai
Tādā veidā mēs varam atlasīt visu rindu vai atlasīt rindu līdz pēdējai aktīvajai šūnai programmā Microsoft Excel, izmantojot VBA.
Kā izvēlēties visus datus, izmantojot VBA?
Ņemsim piemēru un sapratīsim:-
Mums ir dati diapazonā A1: C19, kurā A slejā ir vārds, B slejā Dzimums un C slejā ir vecums.
Lai atlasītu datus no pirmās šūnas līdz pēdējai aktīvajai šūnai, veiciet tālāk norādītās darbības un kodu:-
- Atveriet VBA lapu, nospiediet taustiņu Alt+F11
- Ievietojiet moduli
- Uzrakstiet zemāk minēto kodu:
Elementa apakšizvēle () Dim lastrow As Long, lastcolumn As Long lastrow = Darblapas ("Sheet1"). Šūnas (Rows.count, 1). End (xlUp). Row lastcolumn = Darblapas ("Sheet1"). Šūnas (1, Column .count) .End (xlToLeft) .Sleju darblapas ("Sheet1"). Diapazons ("A1", Cells (lastrow, lastkolumn)). Atlasiet End Sub
Koda skaidrojums: Vispirms mēs esam definējuši koda tēmas nosaukumu, pēc tam esam definējuši visus mainīgos. Tad mēs esam definējuši, kāda būtu mūsu pēdējā rinda un pēdējā kolonna.
- Nospiediet taustiņu F5, lai programmā Excel palaistu makro
- Darblapā tiks atlasīti visi dati
Tagad, ja vēlaties kopēt tos pašus datus un ielīmēt tos, izmantojiet zemāk minēto kodu:-
Elementa apakšizvēle () Dim lastrow As Long, lastcolumn As Long lastrow = Darblapas ("Sheet1"). Šūnas (Rows.count, 1). End (xlUp). Row lastcolumn = Darblapas ("Sheet1"). Šūnas (1, Column .count) .End (xlToLeft). Kolonnas darblapas ("Sheet1"). Diapazons ("A1", šūnas (pēdējā, pēdējā kolonna)). Copy Sheets ("Sheet2"). Range ("A1") End Sub
Izpildiet kodu, visi dati tiks kopēti un ielīmēti 2. lapā.
Tādā veidā mēs varam uzrakstīt makro, lai atlasītu datus no pirmās šūnas līdz pēdējai aktīvajai šūnai un pēc tam ielīmētu citā Microsoft Excel lapā.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē.