Kai rašome VBA kodavimą, kad apsisaugotume nuo pasikartojančio darbo, duomenų pasirinkimas atlieka labai svarbų vaidmenį. Taigi, šiame straipsnyje sužinosite, kaip pasirinkti duomenis pagal eilutes, stulpelius ir visų dokumentų duomenis naudojant VBA kodavimą „Microsoft Excel“.
Jūs išmoksite:
- Kaip pasirinkti visą stulpelį?
- Kaip pasirinkti visą eilutę?
- Kaip pasirinkti visus duomenis?
Kaip pasirinkti visą stulpelį per VBA?
Turime duomenų diapazone A1: C19, kuriame A stulpelyje yra Vardas, B stulpelyje Lytis ir C stulpelyje yra amžius.
Norėdami pasirinkti visą šių duomenų A stulpelį, atlikite toliau nurodytus veiksmus ir kodą:-
- Atidarykite VBA puslapį paspausdami klavišą Alt+F11
- Įdėkite modulį
- Parašykite žemiau nurodytą kodą:
Antrinio stulpelio pasirinkimas () diapazonas („A1“). Visas stulpelis. Pasirinkite Pabaigos antrinis elementas
- Norėdami paleisti makrokomandą programoje „Excel“, paspauskite klavišą F5
- Bus pasirinktas A stulpelis
Jei norite, kad duomenys būtų pasirinkti iki paskutinio aktyvaus stulpelio langelio, atlikite toliau nurodytus veiksmus ir kodą:-
- Parašykite žemiau nurodytą kodą:-
Antrinis stulpelisselect () lastrow = darbalapiai („Sheet1“). Ląstelės (Rows.count, 1). End (xlUp). Eilutės darbalapiai („Sheet1“). Diapazonas („A1: A“ ir paskutinė eilutė). Pasirinkite End Sub
Kodo paaiškinimas:- Pirmiausia nustatysime, kas bus paskutinė aktyvi duomenų ląstelė, o tada paskutinę eilutę naudosime kodavimo diapazonui apibrėžti.
- Norėdami paleisti makrokomandą programoje „Excel“, paspauskite klavišą F5
- A1 stulpelis: bus pasirinktas A19
Tokiu būdu, naudodami VBA, galite pasirinkti kodą, kad pasirinktumėte stulpelį iki paskutinio aktyvaus langelio. Kai nežinome, kas yra paskutinis aktyvus langelis, galime naudoti šį kodą rašydami pasirinkimo VBA kodą „Microsoft Excel“.
Kaip pasirinkti visą eilutę per VBA?
Turime duomenų diapazone A1: C19, kuriame A stulpelyje yra Vardas, B stulpelyje Lytis ir C stulpelyje yra amžius.
Norėdami pasirinkti visą šių duomenų eilutę, atlikite toliau nurodytus veiksmus ir kodą:-
- Atidarykite VBA puslapį paspausdami klavišą Alt+F11
- Įdėkite modulį
- Parašykite žemiau nurodytą kodą:-
Antrinė eilutė () diapazonas („A2“). „EntireRow.Select End Sub“
- Norėdami paleisti makrokomandą programoje „Excel“, paspauskite klavišą F5
- Bus pasirinktas A stulpelis
Jei norite, kad duomenys būtų pasirinkti iki paskutinės aktyvios ląstelės eilutės, atlikite toliau nurodytus veiksmus ir kodą:-
- Parašykite žemiau nurodytą kodą:-
Sub rowselect () Dim lastcolumn As Long lastcolumn = Worksheets ("Sheet1"). Ląstelės (1, Columns.count). End (xlToLeft). Stulpelio darbalapiai ("Sheet1"). Diapazonas ("A1", Ląstelės (1, lastcolumn) )). Pasirinkite Pabaigos antr
Kodo paaiškinimas: Šiame kode pirmiausia apibrėžėme paskutinį stulpelį, tada mes jį naudosime apibrėždami diapazoną.
- Norėdami paleisti makrokomandą „Excel“, paspauskite F5
- Pirmoji eilutė bus pasirinkta iki paskutinės aktyvios eilutės ląstelės
Tokiu būdu galime pasirinkti visą eilutę arba pasirinkti eilutę iki paskutinio aktyvaus langelio „Microsoft Excel“ per VBA.
Kaip pasirinkti visus duomenis per VBA?
Paimkime pavyzdį ir supraskime:-
Turime duomenų diapazone A1: C19, kuriame A stulpelyje yra Vardas, B stulpelyje Lytis ir C stulpelyje yra amžius.
Norėdami pasirinkti duomenis nuo pirmos ląstelės iki paskutinės aktyvios ląstelės, atlikite toliau nurodytus veiksmus ir kodą:-
- Atidarykite VBA puslapį paspausdami klavišą Alt+F11
- Įdėkite modulį
- Parašykite žemiau nurodytą kodą:
„Cellcell“ antrinis pasirinkimas () „Dim lastrow As Long“, paskutinis stulpelis „Long lastrow“ = darbalapiai („Sheet1“). Ląstelės (Rows.count, 1). End (xlUp). Row lastcolumn = Darbai („Sheet1“). Ląstelės (1, Stulpeliai) .count) .End (xlToLeft). Stulpelių darbalapiai („Sheet1“). Diapazonas („A1“, Ląstelės (paskutinė, paskutinė stulpelis)). Pasirinkite End Sub
Kodo paaiškinimas: Pirmiausia mes apibrėžėme kodo temos pavadinimą, tada - visus kintamuosius. Tada mes nustatėme, kokia bus paskutinė mūsų eilutė ir paskutinis stulpelis.
- Norėdami paleisti makrokomandą programoje „Excel“, paspauskite klavišą F5
- Darbo lape bus pasirinkti visi duomenys
Dabar, jei norite nukopijuoti tuos pačius duomenis ir įklijuoti, naudokite žemiau nurodytą kodą:-
Paskutinis langelio pasirinkimas .count) .End (xlToLeft). Stulpelių darbalapiai („Sheet1“). Diapazonas („A1“, Ląstelės (paskutinė, paskutinė stulpelis)). Copy Sheets („Sheet2“). Diapazonas („A1“) Pabaiga
Vykdykite kodą, visi duomenys bus nukopijuoti ir įklijuoti į 2 lapą.
Taip galime parašyti makrokomandą, kad pasirinktume duomenis nuo pirmo langelio iki paskutinio aktyvaus langelio ir įklijuotume į kitą „Microsoft Excel“ lapą.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el.