Vkládání hodnot aplikace Excel VBA
Copy & Paste není nejlepší práce na světě !!! Ale kopírování a vkládání se speciálními možnostmi vyžaduje určité znalosti VBA. Toto není přímočarý proces jako jednoduché kopírování a vkládání. Jednou z důležitých speciálních metod vložení je „Vložit hodnoty“ ve VBA.
Jak vložit hodnoty v aplikaci Excel pomocí VBA?
Příklad č. 1 - Použití funkce Vložit jinak
Podívejte se například na níže uvedený obrázek listu.
V buňce B6 jsme použili vzorec pro výpočet celkových hodnot prodeje z buněk B2 až B5. Nyní, když zkopíruji a vložím buňku B6 do C6, nedostanu hodnotu 22 761, ale dostanu odpovídající vzorec.
Abychom mohli ve VBA provádět totéž, potřebujeme znalosti kódování. Ukážeme vám, jak vložit hodnoty pomocí VBA. Postupujte podle následujících kroků.
Krok 1: Zkopírujte buňku B6.
Chcete-li zkopírovat buňku B6, použijte kód jako Range („B6“)
Krok 2: Vyberte cílovou buňku. V tomto případě buňka C6.
Jak můžete vidět po kopii, ptá se: „Cíl.“ To není nic jiného než to, kam chcete vložit, takže vyberte „Cíl“ jako Rozsah („C6“)
Kód:
Sub Paste_Values () Range ("B6"). Rozsah kopírování ("C6") End Sub
Krok 3: Spusťte kód
Spusťte tento kód, dostaneme kopii B6 v C6.
Máme tady jen vzorec.
Krok 4: Proveďte speciální metodu Vložit.
Chcete-li provést speciální metodu vložení, podívejme se na níže uvedenou syntaxi speciální metody vložení.
Ve speciální metodě vložení máme několik metod. Na základě operace, kterou děláme, musíme odpovídajícím způsobem vybrat typ.
Abychom to pochopili, rozdělíme kód na dva řádky.
První kopíruje buňku B6.
Nyní na další řádek napište cílovou buňku jako Range („C6“)
Nyní pro přístup k Vložit speciální metodu vložte tečku a začněte psát písmeno „P.“
Ve výše uvedené paletě možností vyberte metodu „Vložit jinak“.
Po výběru metody stiskněte mezerník a zobrazte různé speciální metody vložení.
V této paletě možností vyberte „xlPasteValues“.
Po výběru možnosti automatický výběr stiskněte klávesu Tab.
Kód:
Sub Paste_Values () Range ("B6"). Copy Range ("C6"). PasteSpecial xlPasteValues End Sub
Krok 5: Spusťte kód
Nyní spusťte kód, měli bychom dostat pouze hodnotu buňky B6 do buňky C6.
Pokud si po spuštění kódu všimnete list, je stále pouze v režimu kopírování.
Po provedení speciální metody vložení to deaktivuje režim vyjmutí kopie.
Příklad č. 2 - Vložit speciální se smyčkami
Vložit speciální je snadné, ale pokud jde o jeho použití jako součásti velkého kódu, vyžaduje pokročilou úroveň kódovacích dovedností.
Podívejte se například na obrázek níže.
Na výše uvedeném obrázku listu ve sloupci „F“ máme celkový sloupec, tj. V buňkách F2, F5, F8, F11 a F14.
Nyní je můj požadavek zkopírovat každou celkovou buňku z příslušné buňky a vložit do sloupce „H“ s příslušnými buňkami.
Pomocí níže uvedeného kódu s smyčkami VBA to můžeme udělat.
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 Další k End Sub
Tento kód s možností speciální vložení provede úkol zkopírovat každou celkovou buňku a vložit do sloupce „H“ s příslušnými buňkami.
Příklad č. 3 - Kopírování z listu do jiného
Chcete-li vložit hodnoty z jednoho listu do druhého, musíme zmínit oba názvy listů. Níže je uveden příklad toho.
Sub Paste_Values2 () Worksheets ("Sheet1"). Range ("A1"). Copy Worksheets ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
