Zalijepi VBA

VBA Paste djeluje na isti način kao i Copy / Cut i Paste u Excelu. VBA Zalijepite ga automatiziranom verzijom onoga što redovito radimo u redovitim excel poslovima. Rješavanje podataka na bilo kojem potrebnom mjestu je rutinski zadatak. Da bismo izvršili ovu aktivnost, moramo definirati lokaciju odakle ćemo odabrati podatke i lokaciju na koju ćemo ih zalijepiti.

Kako koristiti Excel VBA paste?

Naučit ćemo kako koristiti VBA paste s nekoliko primjera u Excelu.

Možete preuzeti ovaj VBA Predložak Excel predloška ovdje - VBA Paste Excel predložak

VBA lijepljenje - Primjer # 1

Razmotrimo bilo koju ćeliju u excelu koja ima neki tekst. Ovdje smo zadržali tekst " Zalijepi VBA " u ćeliji B3 kao što je prikazano u nastavku.

Slijedite dolje navedene korake za upotrebu VBA paste.

Korak 1: Sada idite na VBA prozor i otvorite novi modul iz izbornika Umetanje, kao što je prikazano u nastavku.

Korak 2: Jednom kada to učinimo, dobit ćemo prazan modul. U tom započnite pisati Podkategoriju. Preporučuje se napisati podkategoriju u ime funkcije koju obavljamo.

Kodirati:

 Sub VBAPaste1 () Kraj Sub

Korak 3: Sada prvo odaberite ćeliju raspona u koju imamo podatke koje trebamo kopirati. Ovdje je naša ćelija raspona B3, a slijedi .Copy funkcija. Ovo kopira podatke u raspon ćelije koje smo odabrali.

Kodirati:

 Pod VBAPaste1 () raspon ("B3"). Kopiraj kraj Sub

Korak 4: Sada nam treba odredišna ćelija u koju trebamo zalijepiti ovu kopiranu vrijednost. Pomoću naredbe Destination odaberite ćeliju Range. Ovdje smo odabrali ćeliju D1, gdje ćemo vidjeti vrijednost.

Kodirati:

 Pod VBAPaste1 () raspon ("B3"). Kopirajte odredište: = Raspon ("D1") Kraj Pod

Korak 5: Nakon završetka, sastavite kod i pokrenite ga.

Vidjet ćemo da je sadržaj ćelije B3 sada kopiran i zalijepljen u ćeliju D3 kao što je prikazano gore.

VBA zalijepi- Primjer # 2

Razmotrimo još jedan primjer VBA paste. Za to idite na VBA prozor i otvorite modul, a zatim slijedite dolje navedene korake.

Korak 1: Počnite pisati potkategoriju u imenu VBA Paste ili u bilo kojem drugom nazivu kao što je prikazano u nastavku.

Kodirati:

 Sub VBAPaste2 () Kraj Sub

Korak 2: Ovdje ćemo razmotriti iste podatke ili referentnu ćeliju B3 koji smo vidjeli u primjeru-1. Odaberite ćeliju B3, a zatim naredbu .Copy . To će kopirati podatke.

Kodirati:

 Pod VBAPaste2 () raspon ("B3"). Kopiraj kraj Sub

Korak 3: Sada odaberite ćeliju dometa u koju trebamo zalijepiti kopirane podatke. Ovdje odabiremo ćelije D1 do D3 za razliku od odabira samo jedne ćelije kao što je prikazano u primjeru-1.

Kodirati:

 Pod VBAPaste2 () raspon ("B3"). Područje kopiranja ("D1: D3"). Odaberite Kraj Sub

Korak 4: Nakon što smo kopirali podatke i odabrali stanice u koje treba zalijepiti. Sada odaberite naredbu Zalijepi uz pomoć ActiveSheet funkcije. Ovaj Activesheet omogućava kopiranu ćeliju zalijepljenu u ćelije raspona.

Kodirati:

 Pod VBAPaste2 () raspon ("B3"). Raspon kopiranja ("D1: D3"). Odaberite ActiveSheet.Paste End Sub

Korak 5: Sada sastavite kod i pokrenite ga. Vidjet ćemo, vrijednost ćelije iz stanice B3 bit će zalijepljena iz ćelija D1 do D3.

VBA zalijepi- Primjer # 3

Druga metoda VBA paste je upotreba ručnog postupka koji radimo za kopiranje i lijepljenje.

Slijedite dolje navedene korake:

Korak 1: Napisati podkategoriju VBA paste kao što je prikazano u nastavku.

Kodirati:

 Sub VBAPaste3 () Kraj Sub

2. korak: Bolje je dati niz podkategoriji ako u jednu datoteku pišete više skupova kodova. Za lijepljenje bilo čega, prvo moramo kopirati te podatke. Ovdje smo odabrali naredbu Kopiraj .

Kodirati:

 Odabir Sub VBAPaste3 (). Kopiraj Kraj Sub

Korak 3: Sada odaberite raspon ili referentnu ćeliju koju trebamo kopirati i zalijepiti. Ovdje imamo Cell D3 s podacima "VBA Paste" u sebi.

Kodirati:

 Odabir Sub VBAPaste3 (). Raspon kopiranja ("D3")

Korak 4: Sada u excelu odabiremo stanice u koje trebamo zalijepiti podatke ručno ili tipkama Shift + Ctrl + Gore / Dolje. Ovdje ćemo također odabrati mjesto ćelija naredbom End (xlUp) za odabir raspona izlaznih ćelija.

Kodirati:

 Sub VBAPaste3 () Odabir. Raspon kopiranja ("D3"). Odaberite raspon (izbor, odabir. Kraj (xlUp)).

Korak 5: Sada odaberite raspon izlaznih ćelija, ovdje smo odabrali ćelije D1 do D3, gdje ćemo vidjeti zalijepljene podatke.

Kodirati:

 Pod VBAPaste3 () Odabir. Raspon kopiranja ("D3"). Odaberite raspon (izbor, odabir. Kraj (xlUp)). Odaberite raspon ("D1: D3"). Odaberite kraj Sub

Korak 6: Kao funkciju koju trebamo obaviti je funkcija lijepljenja, tako da moramo aktivirati naredbu zalijepljenja u VBA pomoću naredbe ActiveSheet, a zatim točkice (.) Zalijepiti.

Kodirati:

 Pod VBAPaste3 () Odabir. Raspon kopiranja ("D3"). Odaberite raspon (izbor, odabir. Kraj (xlUp)). Odaberite raspon ("D1: D3"). Odaberite ActiveSheet.Paste End Sub

Korak 7: Konačno, dopustite aplikaciju CutCopyMode kao FALSE, što znači da kopirate samo podatke, umjesto da ih izrežete i iz referentne ćelije.

Kodirati:

 Pod VBAPaste3 () Izbor. Raspon kopiranja ("D3"). Odaberite raspon (izbor, odabir. Kraj (xlUp)). Odaberite raspon ("D1: D3"). Odaberite ActiveSheet.Paste Application.CutCopyMode = False End Sub

Korak 8: Prije pokretanja koda najprije stavite pokazivač na ćeliju B3. Zatim sastavite kod i pokrenite ga. Vidjet ćemo da će se naši podaci kopirati u ćelije D1 do D3.

VBA zalijepi- Primjer # 4

Postoji još jedan način upotrebe VBA Paste u jednom retku koda.

Slijedite dolje navedene korake:

Korak 1: Napišite podkategoriju u slijedu i nazivu izvedene funkcije.

Kodirati:

 Sub VBAPaste4 () Kraj Sub

Korak 2: Upotrijebite naredbu Radni listovi i odaberite list na kojem ćemo raditi. Ovdje je naziv našeg lista "Sheet1". Možemo koristiti Workbook.Sheet (1) također za odabir "Sheet1" umjesto ovoga.

Kodirati:

 Pod VBAPaste4 () Radni listovi ("Sheet1"). Kraj Sub

Korak 3: Odaberite ćeliju iz koje ćemo kopirati podatke. Ovdje je naša ćelija Range B3 koja ima iste podatke kao što smo vidjeli u gore navedenim primjerima.

Kodirati:

 Pod VBAPaste4 () Radni listovi ("Sheet1"). Područje ("B3"). Kraj Sub

Korak 4: Sada umetnite naredbu Kopiraj nakon točke (.) Za kopiranje podataka iz odabrane ćelije raspona.

Kodirati:

 Sub VBAPaste4 () Radni listovi ("Sheet1"). Raspon ("B3"). Kopiraj kraj Sub

Korak 5: Sada pomoću naredbe odredišta odaberite mjesto na koje ćemo zalijepiti kopirane podatke. Za ovaj radni list odaberite "Sheet1" koji smo napravili na početku ovog primjera i odaberite ćelije raspona bilo gdje na istom listu. Ovdje smo odabrali izlazne ćelije raspona od D1 do D3.

Kodirati:

 Pod VBAPaste4 () Radni listovi ("Sheet1"). Područje ("B3"). Odredište kopiranja: = Radni listovi ("Sheet1"). Područje ("D1: D3") Kraj Pod

Korak 6: Sada Sastavite i pokrenite. Tekst "Zalijepi VBA" iz ćelije B3 bit će kopiran i zalijepljen u ćelije D1 do D3 kao što je prikazano u nastavku.

Prosci Excel VBA paste

  • Primjena prva dva primjera jednostavan je i najbrži način za primjenu VBA paste.
  • Za ogromne podatke gdje je teško obaviti više aktivnosti, ako automatiziramo ovu malu funkciju, to bi uštedjelo ogromno vrijeme za obavljanje ručnih stvari.
  • Ne postoji ograničenje kopiranja i lijepljenja podataka.

Stvari koje treba zapamtiti

  • Koristite podkategoriju na takav način da ako koristite više modula, unošenje niza u to olakšava praćenje i odabir odgovarajuće makronaredbe.
  • Spremite excel datoteku u makronaredbeni format kako bi pisani kod bio sačuvan za sljedeću upotrebu.
  • Ako pišete više redaka koda, preporučuje se sastaviti kod po red da biste utvrdili postoji li pogreška u njemu.
  • Preporučuje se da postavite kursor na ćeliju B3 ako koristite primjer-3.

Preporučeni članci

Ovo je vodič za paste VBA. Ovdje smo raspravljali o VBA zalijepljenju i kako koristiti Excel VBA paste zajedno s praktičnim primjerima i download-ovim Excel predloškom. Možete i pregledati naše druge predložene članke -

  1. VBA utakmica | Kako koristiti?
  2. Excel TRANSPOSE formula
  3. VBA domet | Jednostavno Excel makronaredbe
  4. Ugrađena IF formula u Excelu

Kategorija:

VBA