Kui kirjutame VBA kodeeringut, et päästa end korduvast tööst, on andmete valikul väga oluline roll. Niisiis, sellest artiklist saate teada, kuidas valida andmeid ridade, veergude ja tervete dokumentide andmete järgi Microsoft Excelis VBA kodeeringu abil.
Õpid:
- Kuidas valida kogu veerg?
- Kuidas valida terve rida?
- Kuidas valida terveid andmeid?
Kuidas valida kogu veerg VBA kaudu?
Meil on andmeid vahemikus A1: C19, kus veerus A on nimi, veerus B sugu ja veerus C vanus.
Nendes andmetes kogu veeru A valimiseks järgige alltoodud samme ja koodi:-
- Avage VBA leht, vajutage klahve Alt+F11
- Sisestage moodul
- Kirjutage allpool nimetatud kood:
Alamveergude valimine () Vahemik ("A1"). Kogu veerg. Valige Lõpeta alam
- Makro käivitamiseks Excelis vajutage klahvi F5
- Valitakse veerg A
Kui soovite, et andmed tuleks valida kuni veeru viimase aktiivse lahtrini, järgige alltoodud samme ja koodi:-
- Kirjutage allpool nimetatud kood:-
Alamveergude valik () lastrow = Töölehed ("leht 1"). Lahtrid (ridade arv, 1). Lõpp (xlUp). Rea töölehed ("leht 1"). Vahemik ("A1: A" ja viimane). Valige Lõpualam
Koodi selgitus:- Kõigepealt määratleme, milline on andmete viimane aktiivne lahter, ja seejärel viimast rida, mida kasutame kodeerimisvahemiku määratlemiseks.
- Makro käivitamiseks Excelis vajutage klahvi F5
- Veerg A1: A19 valitakse
Sel viisil saate VBA abil valida veeru valimiseks koodi kuni viimase aktiivse lahtrini. Kui me ei tea, mis on viimane aktiivne lahter, saame seda koodi kasutada, kirjutades Microsoft Excelis valiku VBA -koodi.
Kuidas valida terve rida VBA kaudu?
Meil on andmeid vahemikus A1: C19, kus veerus A on nimi, veerus B sugu ja veerus C vanus.
Nende andmete terve rea valimiseks järgige allpool toodud samme ja koodi:-
- Avage VBA leht, vajutage klahve Alt+F11
- Sisestage moodul
- Kirjutage allpool nimetatud kood:-
Alamrea valik () Vahemik ("A2"). Kogu rida. Valige Lõpeta alam
- Makro käivitamiseks Excelis vajutage klahvi F5
- Valitakse veerg A
Kui soovite, et andmed tuleks valida kuni viimase aktiivse lahtrini, järgige alltoodud samme ja koodi:-
- Kirjutage allpool nimetatud kood:-
Alamrea valik () Dim lastcolumn As Long lastcolumn = Töölehed ("Sheet1"). Lahtrid (1, Columns.count) .End (xlToLeft). Veergude töölehed ("Sheet1"). Vahemik ("A1", Lahtrid (1, viimane veerg) )). Valige Lõpeta alam
Koodi selgitus: Selles koodis määratlesime kõigepealt viimase veeru, seejärel kasutame seda vahemiku määratlemiseks.
- Makro käivitamiseks Excelis vajutage klahvi F5
- Esimene rida valitakse kuni rea viimase aktiivse lahtrini
Sel viisil saame valida terve rea või valida rea kuni viimase aktiivse lahtrini Microsoft Excelis VBA kaudu.
Kuidas VBA kaudu kogu andmeid valida?
Võtame näite ja mõistame:-
Meil on andmeid vahemikus A1: C19, kus veerus A on nimi, veerus B sugu ja veerus C vanus.
Andmete valimiseks esimesest lahtrist kuni viimase aktiivse lahtrini järgige alltoodud samme ja koodi:-
- Avage VBA leht, vajutage klahve Alt+F11
- Sisestage moodul
- Kirjutage allpool nimetatud kood:
Alamvaliklastest () Dim lastrow As Long, lastcolumn As Long lastrow = Töölehed ("Sheet1"). Lahtrid (Rows.count, 1). End (xlUp). Row lastcolumn = Töölehed ("Sheet1"). Lahtrid (1, Veerud) .count) .End (xlToLeft). Veergude töölehed ("Sheet1"). Vahemik ("A1", Lahtrid (eelmine, viimane veerg)). Valige End Sub
Koodi selgitus: Esiteks oleme määratlenud koodi subjektinime, seejärel kõik muutujad. Seejärel oleme määratlenud, mis oleks meie viimane rida ja viimane veerg.
- Makro käivitamiseks Excelis vajutage klahvi F5
- Töölehel valitakse kõik andmed
Nüüd, kui soovite samu andmeid kopeerida ja kleepida, kasutage allpool mainitud koodi:-
Alamvaliklastest () Dim lastrow As Long, lastcolumn As Long lastrow = Töölehed ("Sheet1"). Lahtrid (Rows.count, 1). End (xlUp). Row lastcolumn = Töölehed ("Sheet1"). Lahtrid (1, Veerud) .count) .End (xlToLeft) .Veerutöölehed ("Sheet1"). Vahemik ("A1", Lahtrid (eelmisel, viimasel veerul)). Lehtede kopeerimine ("Sheet2"). Vahemik ("A1") End Sub
Käivitage kood, kõik andmed kopeeritakse ja kleebitakse lehele 2.
Nii saame kirjutada makro andmete valimiseks esimesest lahtrist kuni viimase aktiivse lahtrini ja seejärel kleepida teisele lehele Microsoft Excelis.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile.