Prilepiť hodnoty do programu Excel VBA
Copy & Paste nie je najväčšia práca na svete !!! Ale kopírovanie a vkladanie so špeciálnymi voľbami vyžaduje určitý druh znalostí vo VBA. Toto nie je priamy proces ako jednoduché kopírovanie a vkladanie. Jednou z dôležitých špeciálnych metód vkladania je „Vložiť hodnoty“ vo VBA.
Ako vkladať hodnoty do programu Excel pomocou VBA?
Príklad č. 1 - Použitie funkcie Prilepiť špeciálne
Napríklad si pozrite nasledujúci obrázok pracovného hárka.
V bunke B6 sme použili vzorec na výpočet celkových hodnôt predaja z buniek B2 až B5. Teraz, keď skopírujem a vložím bunku B6 do C6, nezískam hodnotu 22 761, ale dostanem zodpovedajúci vzorec.
Na vykonávanie toho istého vo VBA potrebujeme znalosti kódovania. Ukážeme vám, ako prilepiť hodnoty pomocou VBA. Postupujte podľa nasledujúcich krokov.
Krok 1: Skopírujte bunku B6.
Ak chcete skopírovať bunku B6, použite kód ako Rozsah („B6“)
Krok 2: Vyberte cieľovú bunku. V tomto prípade bunka C6.
Ako vidíte po kópii, zobrazí sa výzva „Cieľ.“ Toto nie je nič iné, iba to, kam chcete vložiť, takže ako cieľ vyberte „Cieľ“ („C6“)
Kód:
Sub Paste_Values () Range ("B6"). Rozsah kopírovania ("C6") End Sub
Krok 3: Spustite kód
Spustením tohto kódu dostaneme kópiu B6 v C6.
Dostali sme tu iba vzorec.
Krok 4: Vykonajte špeciálnu metódu vloženia.
Ak chcete vykonať špeciálnu metódu vloženia, pozrime sa na nasledujúcu syntaxi špeciálnej metódy vloženia.
V špeciálnej metóde vloženia máme niekoľko metód. Na základe operácie, ktorú robíme, musíme podľa toho zvoliť typ.
Aby sme to pochopili, rozdeľme kód na dva riadky.
Prvým je kopírovanie bunky B6.
Teraz na ďalší riadok napíšte cieľovú bunku ako Range („C6“)
Teraz pre prístup k špeciálnemu spôsobu vloženia vložte bodku a začnite písať písmeno „P.“
Z vyššie uvedenej ponuky možností vyberte metódu „Prilepiť špeciálne“.
Po výbere metódy stlačte medzerník a zobrazia sa rôzne špeciálne metódy vkladania.
V tejto škále možností vyberte možnosť „xlPasteValues“.
Po výbere možnosti automatický výber stlačte klávesu Tab.
Kód:
Sub Paste_Values () Range ("B6"). Copy Range ("C6"). PasteSpecial xlPasteValues End Sub
Krok 5: Spustite kód
Teraz spustite kód, mali by sme dostať iba hodnotu bunky B6 do bunky C6.
Ak si po spustení kódu všimnete pracovný hárok, je stále iba v režime kopírovania.
Po vykonaní špeciálnej metódy vloženia sa deaktivuje režim vystrihnutého kopírovania.
Príklad # 2 - Prilepiť špeciálne so slučkami
Prilepenie špeciálu je jednoduché, ale pokiaľ ide o jeho použitie ako súčasti veľkého kódu, vyžaduje to pokročilú úroveň kódovacích schopností.
Napríklad sa pozrite na obrázok nižšie.
Na vyššie uvedenom obrázku tabuľky v stĺpci „F“ máme celkový stĺpec, tj. V bunkách F2, F5, F8, F11 a F14.
Teraz je mojou požiadavkou skopírovať každú celkovú bunku z príslušnej bunky a vložiť ich do stĺpca „H“ s príslušnými bunkami.
Pomocou nižšie uvedeného kódu a pomocou slučiek VBA to môžeme urobiť.
Kód:
Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 For k = 1 To 5 Cells (j, 6). Copy Cells (j, 8). PasteSpecial xlPasteValues j = j + 3 Next k End Sub
Tento kód so špeciálnou možnosťou vloženia vykoná úlohu skopírovania každej celkovej bunky a prilepenie do stĺpca „H“ s príslušnými bunkami.
Príklad č. 3 - Kopírovanie z pracovného hárka do druhého
Ak chcete prilepiť hodnoty z jedného pracovného hárka do druhého, musíme spomenúť obidva názvy pracovných hárkov. Nižšie je uvedený príklad.
Sub Paste_Values2 () pracovné hárky ("List1"). Rozsah ("A1"). Kopírovanie pracovných hárkov ("List2"). Rozsah ("A15"). PasteSpecial xlPasteValues End Sub
