Vrijednosti lijepljenja za Excel VBA
Copy & Paste nije najveći posao na svijetu !!! No kopiranje i lijepljenje posebnim opcijama zahtijeva neku vrstu znanja u VBA-u. Ovo nije neposredan postupak kao jednostavno kopiranje i lijepljenje. Jedna od važnih metoda zalijepljenja je "Zalijepi vrijednosti" u VBA.
Kako zalijepiti vrijednosti u Excel pomoću VBA-a?
Primjer # 1 - Korištenje posebne paste
Na primjer, pogledajte donju sliku radnog lista.
U ćeliji B6 primijenili smo formulu za izračunavanje ukupnih vrijednosti prodaje od B2 do B5 ćelija. Ako kopiram i zalijepim ćeliju B6 u C6, neću dobiti vrijednost 22.761, ali dobit ću odgovarajuću formulu.
Da bismo izvršili istu stvar u VBA-u, trebamo znanje o kodiranju. Pokazat ćemo vam kako zalijepiti vrijednosti pomoću VBA. Slijedite korake u nastavku.
Korak 1: Kopirajte ćeliju B6.
Da biste kopirali ćeliju B6, upotrijebite kôd kao Raspon ("B6")
Korak 2: Odaberite odredišnu ćeliju. U ovom slučaju, stanica C6.
Kao što vidite nakon kopije, pita se: "Odredište". Ovo nije ništa drugo nego mjesto koje želite zalijepiti, pa odaberite "Odredište" kao Raspon ("C6")
Kodirati:
Sub Paste_Values () Raspon ("B6"). Raspon kopiranja ("C6") Kraj Sub
Korak 3: Pokrenite kod
Pokrenite ovaj kod, dobit ćemo B6 kopiju u C6.
Ovdje imamo samo formulu.
Korak 4: Izvedite posebnu metodu lijepljenja.
Da bismo izveli posebnu metodu paste, pogledajmo donju sintaksu posebne metode paste.
U posebnoj metodi zalijepljenja imamo nekoliko metoda. Na temelju operacije koju radimo, prema tome moramo odabrati vrstu.
Da bismo razumjeli, rastavimo kôd u dva retka.
Prva je kopiranje ćelije B6.
Sada u sljedeći redak zapišite odredišnu ćeliju kao Raspon (“C6”)
Sada za pristup Paste Special Method stavite točku i počnite tipkati slovo "P."
U gornjoj paleti opcija odaberite metodu "Posebno zalijepi".
Nakon odabira metode, pritisnite razmaknicu da biste vidjeli različite posebne metode lijepljenja.
U ovoj raznolikosti opcija odaberite "xlPasteValues."
Nakon odabira opcije pritisnite tipku jezička za automatski odabir.
Kodirati:
Sub Paste_Values () Raspon ("B6"). Kopiraj raspon ("C6"). PasteSpecial xlPasteValues End Sub
Korak 5: Pokrenite kod
Sada pokrenite kod, trebali bismo dobiti samo vrijednost ćelije B6 do ćelije C6.
Ako primijetite radni list nakon pokretanja koda, on je i dalje samo u načinu kopiranja.
Ovo će onemogućiti način izrezane kopije nakon izvršavanja posebne metode lijepljenja.
Primjer # 2 - Posebno zalijepite petljama
Posebno zalijepiti lako je, ali u smislu upotrebe ovog dijela velikog koda potrebna je napredna razina vještina kodiranja.
Na primjer, pogledajte donju sliku.
Na gornjoj slici radnog lista u stupcu "F" imamo ukupan stupac, tj. U ćelijama F2, F5, F8, F11 i F14.
Sada je moj zahtjev kopirati svaku ukupnu ćeliju iz odgovarajuće ćelije i zalijepiti u stupac "H" odgovarajuće stanice.
Koristeći donji kod, s VBA petljama, to možemo učiniti.
Kodirati:
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
Ovaj će kod s posebnom opcijom zalijepiti zadatak kopiranja svake ukupne ćelije i zalijepiti u stupac "H" odgovarajućim ćelijama.
Primjer # 3 - Kopirajte s radnog lista na drugi
Da bismo zalijepili vrijednosti s jednog radnog lista na drugi, moramo spomenuti oba naziva radnog lista. Ispod je primjer toga.
Sub Paste_Values2 () Radni listovi ("Sheet1"). Raspon ("A1"). Kopirajte radne listove ("Sheet2"). Raspon ("A15"). PasteSpecial xlPasteValues End Sub
