Keď píšeme kódovanie VBA, aby sme sa zachránili pred opakujúcou sa prácou, výber údajov hrá veľmi dôležitú úlohu. V tomto článku sa teda naučíte, ako vybrať údaje podľa riadkov, stĺpcov a celých dokumentov pomocou kódovania VBA v programe Microsoft Excel.
Naučíte sa:
- Ako vybrať celý stĺpec?
- Ako vybrať celý riadok?
- Ako vybrať celé údaje?
Ako vybrať celý stĺpec prostredníctvom VBA?
Máme údaje v rozsahu A1: C19, v ktorých stĺpec A obsahuje Meno, stĺpec B Pohlavie a stĺpec C obsahuje Vek.
Ak chcete v týchto údajoch vybrať celý stĺpec A, postupujte podľa nižšie uvedených krokov a kódu:-
- Otvorte stránku VBA stlačením klávesov Alt+F11
- Vložte modul
- Napíšte nižšie uvedený kód:
Pod stĺpček vyberte () rozsah („A1“). Celý stĺpec. Vyberte koniec pod
- Na spustenie makra v programe Excel stlačte kláves F5
- Bude vybraný stĺpec A.
Ak chcete, aby boli údaje vybrané až do poslednej aktívnej bunky v stĺpci, postupujte podľa nižšie uvedených krokov a kódu:-
- Napíšte nižšie uvedený kód:-
Pod stĺpček select () lastrow = Pracovné listy („List1“). Bunky (riadky. Počet, 1). Koniec (xlUp). Riadkové pracovné listy („List1“). Rozsah („A1: A“ a posledná čiara). Vyberte položku Koncový podrad.
Vysvetlenie kódu:- Najprv definujeme, čo bude poslednou aktívnou bunkou v dátach, a potom posledný riadok použijeme na definovanie rozsahu v kódovaní.
- Na spustenie makra v programe Excel stlačte kláves F5
- Bude vybraný stĺpec A1: A19
Týmto spôsobom pomocou VBA môžete vybrať kód a vybrať stĺpec až do poslednej aktívnej bunky. Keď nevieme, ktorá je posledná aktívna bunka, môžeme tento kód použiť pri písaní kódu VBA na výber v programe Microsoft Excel.
Ako vybrať celý riadok prostredníctvom VBA?
Máme údaje v rozsahu A1: C19, v ktorých stĺpec A obsahuje Meno, stĺpec B Pohlavie a stĺpec C obsahuje Vek.
Ak chcete v týchto údajoch vybrať celý riadok, postupujte podľa nižšie uvedených krokov a kódu:-
- Otvorte stránku VBA stlačením klávesov Alt+F11
- Vložte modul
- Napíšte nižšie uvedený kód:-
Vedľajší riadok vyberte () Rozsah („A2“). EntireRow. Vyberte End Sub
- Na spustenie makra v programe Excel stlačte kláves F5
- Bude vybraný stĺpec A.
Ak chcete, aby boli údaje vybrané až do poslednej aktívnej bunky v riadku, postupujte podľa nižšie uvedených krokov a kódu:-
- Napíšte nižšie uvedený kód:-
Vyberte podradený riadok () Stmaviť posledný stĺpec Ako dlhý posledný stĺpec = Pracovné listy („List1“). Bunky (1, stĺpce. Počet). Koniec (xlToLeft). Pracovné listy stĺpcov („List1“). Rozsah („A1“, bunky (1, posledný stĺpec) Vyberte položku End Sub
Vysvetlenie kódu: V tomto kóde sme najskôr definovali posledný stĺpec a potom ho použijeme na definovanie rozsahu.
- Stlačením klávesu F5 spustíte makro v programe Excel
- Prvý riadok bude vybraný do poslednej aktívnej bunky v riadku
Týmto spôsobom môžeme vybrať celý riadok alebo vybrať riadok až po poslednú aktívnu bunku v programe Microsoft Excel prostredníctvom VBA.
Ako vybrať celé údaje pomocou VBA?
Vezmime si príklad a porozumieme:-
Máme údaje v rozsahu A1: C19, v ktorých stĺpec A obsahuje Meno, stĺpec B Pohlavie a stĺpec C obsahuje Vek.
Ak chcete vybrať údaje z prvej bunky do poslednej aktívnej bunky, postupujte podľa nižšie uvedených krokov a kódu:-
- Otvorte stránku VBA stlačením klávesov Alt+F11
- Vložte modul
- Napíšte nižšie uvedený kód:
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1). End (xlUp). Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns .count). Koniec (xlToLeft). Stĺpce („Sheet1“). Rozsah („A1“, bunky (posledná, posledný stĺpec)). Vyberte End Sub
Vysvetlenie kódu: Najprv sme definovali Predmetový názov kódu, potom sme definovali všetky premenné. Potom sme definovali, čo bude náš posledný riadok a posledný stĺpec.
- Na spustenie makra v programe Excel stlačte kláves F5
- V pracovnom hárku budú vybraté všetky údaje
Ak chcete skopírovať rovnaké údaje a vložiť ich, použite nižšie uvedený kód:-
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1). End (xlUp). Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns .count). End (xlToLeft). Stĺpcové pracovné listy („Sheet1“). Rozsah („A1“, bunky (posledná, posledný stĺpec)). Kopírovať listy („Sheet2“). Rozsah („A1“) Koncový podrad
Spustite kód, všetky údaje sa skopírujú a prilepia do listu2.
Toto je spôsob, akým môžeme napísať makro pre výber údajov z prvej bunky do poslednej aktívnej bunky a potom ich vložiť do iného listu v programe Microsoft Excel.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku.