Získajte hodnotu bunky pomocou programu Excel VBA
Bunka je samostatná bunka a je tiež súčasťou rozsahu. Technicky existujú dve metódy interakcie s bunkou vo VBA, ktorými sú metóda rozsahu a metóda bunky, metóda rozsahu sa používa ako rozsah („A2“). Hodnota, ktorá nám dá hodnotu bunky A2, alebo môžeme použiť bunkovú metódu ako bunky (2,1). Hodnota, ktorá nám dá aj hodnotu buniek A2.
Či už je to vynikajúca práca alebo fungovanie VBA, všetci potrebujeme prácu s bunkami alebo bunkami, pretože všetky údaje budú uložené v bunkách, takže sa to všetko zredukuje na to, ako dobre vieme o bunkách vo VBA. Ak sú teda bunky tak dôležitou súčasťou VBA, je dôležité im dobre porozumieť, a ak ste začiatočníkom v súvislosti s bunkami VBA, potom vás tento článok bude informovať o tom, ako získať hodnoty buniek v programe Excel VBA detail.
Najprv je možné odkazovať alebo pracovať s bunkami vo VBA dvoma spôsobmi, tj pomocou vlastnosti CELLS a objektu RANGE. Prečo CELLS je vlastnosť a prečo RANGE je objekt, je iná analógia a k článku sa dostaneme neskôr.
Príklady získania hodnoty bunky v programe Excel VBA
Nižšie uvádzame príklady získania hodnoty bunky v programe Excel VBA.
Príklad č. 1 - Použitie vlastnosti RANGE alebo CELLS
Napríklad v bunke A1 máme hodnotu „India“.
Na odkazovanie na túto bunku môžeme použiť vlastnosť CELLS alebo objekt RANGE. Pozrime sa na obe z nich podrobne.
Pomocou vlastnosti Range
Najskôr spustite postup makra.
Kód:
Sub Get_Cell_Value () End Sub
Teraz otvorte objekt RANGE.
Kód:
Sub Get_Cell_Value () Range (End Sub
Prvý argument tohto objektu je „Cell1“, tj. Na ktorú bunku máme na mysli. V tomto prípade je to bunka A1, takže musíme zadať adresu bunky v dvojitých úvodzovkách pre objekt RANGE.
Kód:
Sub Get_Cell_Value () Range ("A1") End Sub
Pretože iba jedna bunka odkazuje na ďalšie parametre, je irelevantná, zatvorte zátvorku a bodkou zobrazte zoznam IntelliSense.
Ako vidíte vyššie, v okamihu, keď vložíme bodku, môžeme vidieť všetky dostupné zoznamy vlastností a metód rozsahu objektu IntelliSense.
Pretože vyberáme bunku, musíme zvoliť metódu „SELECT“ zo zoznamu IntelliSense.
Kód:
Sub Get_Cell_Value () Range ("A1"). Vyberte End Sub
Teraz vyberte bunku inú ako A1 a spustite kód.
Nezáleží na tom, ktorú bunku ste vybrali v okamihu spustenia kódu. Vybrala si uvedenú bunku, tj. Bunku A1.
Používanie vlastnosti buniek
Podobne teraz používame vlastnosť CELLS.
Kód:
Sub Get_Cell_Value () Range ("A1"). Vyberte bunky (End Sub
Je to na rozdiel od objektu RANGE, kde by sme mohli priamo dodať adresu bunky, ale pomocou tejto vlastnosti CELLS to nemôžeme urobiť.
Prvým argumentom tejto vlastnosti je „Row Index“, tj. Ktorý riadok máme na mysli. Pretože vyberáme bunku A1, máme na mysli prvý riadok, takže spomeňme 1.
Ďalším argumentom je „Register stĺpcov“, tj. Na ktorý stĺpec odkazujeme. Stĺpec bunky A1 je prvý stĺpec, takže zadajte 1.
Náš kód číta CELLS (1, 1), tj prvý riadok prvý stĺpec = A1.
Teraz vložte bodku a uvidíte, či sa vám zobrazí zoznam IntelliSense alebo nie.
S vlastnosťami CELLS nevidíme žiadny zoznam IntelliSense, takže si musíme byť úplne istí, čo píšeme. Ako metódu zadajte „Vybrať“.
Kód:
Sub Get_Cell_Value () Range ("A1"). Vyberte bunky (1, 1). Vyberte End Sub
Týmto sa tiež vyberie bunka A1.
Príklad č. 2 - Získajte hodnotu z bunky v programe Excel VBA
Výber je prvá vec, ktorú sme sa naučili, teraz uvidíme, ako získať hodnotu z buniek. Predtým, ako vyberieme bunku, musíme definovať premennú na uloženie hodnoty z bunky.
Kód:
Sub Get_Cell_Value1 () Dim CellValue ako reťazec End Sub
Teraz uveďte adresu bunky pomocou objektu RANGE alebo vlastnosti CELLS. Pretože ste začiatočník, používajte objekt RANGE iba preto, že s objektom RANGE sa nám zobrazí zoznam IntelliSense.
Pre definovanú premennú vložte znamienko rovnosti a uveďte adresu bunky.
Kód:
Sub Get_Cell_Value1 () Dim CellValue As String CellValue = Range ("A1") End Sub
Opäť bodkou zobrazíte zoznam IntelliSense.
V zozname IntelliSense VBA vyberte vlastnosť „Hodnota“, aby ste získali hodnotu zo spomínanej bunky.
Kód:
Sub Get_Cell_Value1 () Dim CellValue As String CellValue = Range ("A1"). Hodnota End Sub
Teraz má premenná „CellValue“ hodnotu z bunky A1. Ukážte túto hodnotu premennej v okne správy vo VBA.
Kód:
Sub Get_Cell_Value1 () Dim CellValue ako reťazec CellValue = Range ("A1"). Hodnota MsgBox CellValue End Sub
Dobre, spustite kód a uvidíte výsledok v okne správy.
Pretože v bunke A1 je hodnota „INDIA“, to isté sa objavilo aj v okne so správou. Takto môžeme podľa hodnoty VBA bunky získať hodnotu bunky.
Príklad č. 3 - Získajte hodnotu z jednej bunky do druhej bunky
Vieme, ako získať hodnotu z bunky pomocou VBA. Teraz je otázkou, ako vložiť hodnotu do bunky. Zoberme si iba ten istý príklad. Pre bunku A1 musíme vložiť hodnotu „INDIA“ a to je možné z nasledujúceho kódu.
Kód:
Sub Get_Cell_Value2 () Range ("A1"). Value = "INDIA" End Sub
Týmto sa do bunky A1 vloží hodnota „INDIA“. Podobne, aby sme získali hodnotu z jednej bunky do druhej, môžeme napísať kód, ako je uvedené nižšie.
Kód:
Sub Get_Cell_Value2 () Range ("A5"). Hodnota = Range ("A1"). Hodnota End Sub
Vysvetlím vám kód.
„Pre bunku A5 potrebujeme hodnotu, ktorá je z hodnoty bunky A1,“ to všetko hovorí tento kód. Týmto sa získa hodnota z bunky A1 do A5 pomocou kódu VBA.
Na čo treba pamätať
- Vkladanie hodnoty do buniek a získavanie hodnoty z bunky vyžaduje použitie vlastnosti VBA „VALUE“.
- Pomocou vlastnosti CELLS môžeme vybrať iba jednu bunku, ale pomocou objektu RANGE. Môžeme vybrať viac buniek.
