VBA lepljenje

VBA Paste deluje na enak način kot pri kopiranju / rezanju in lepljenju v Excelu. VBA Prilepite ga avtomatizirano različico tega, kar redno delamo pri rednem delu Excela. Rutinsko opravilo je lepljenje podatkov na poljubno zahtevano mesto. Za izvajanje te dejavnosti moramo določiti lokacijo, od koder bomo izbrali podatke in lokacijo, kamor jih bomo prilepili.

Kako uporabljati Excel VBA paste?

Naučili se bomo uporabljati VBA paste z nekaj primeri v Excelu.

Predlogo VBA Paste Excel lahko prenesete tukaj - VBA Prilepi predlogo Excel

VBA lepljenje - primer št. 1

Razmislimo o kateri koli celici v excelu, ki ima nekaj besedila. Tukaj smo v celici B3 shranili besedilo " Prilepi VBA ", kot je prikazano spodaj.

Za uporabo VBA Paste sledite spodnjim korakom.

1. korak: Pojdite v okno VBA in odprite nov modul v meniju Vstavljanje, kot je prikazano spodaj.

2. korak: Ko to storimo, bomo dobili prazen modul. V tem začnite pisati podkategorijo. Priporočljivo je, da v ime funkcije, ki jo izvajamo, napišemo podkategorijo.

Koda:

 Pod VBAPaste1 () Konec Sub

Korak 3: Zdaj najprej izberite celico Range, kjer imamo podatke, ki jih moramo kopirati. Tu je naša celica Range B3, sledi funkcija .Copy . Ta kopira podatke v izbrano celico, ki smo jo izbrali.

Koda:

 Pod VBAPaste1 () Obseg ("B3"). Kopiraj konec Sub

4. korak: Zdaj potrebujemo ciljno celico, kamor moramo prilepiti to kopirano vrednost. S pomočjo ukaza Destination izberite celico Range. Tu smo izbrali celico D1, kjer bomo videli vrednost.

Koda:

 Pod VBAPaste1 () Obseg ("B3"). Kopiraj cilj: = Obseg ("D1") Končni pod

5. korak: Ko končate, sestavite kodo in jo zaženite.

Videli bomo, da je vsebina celice B3 zdaj kopirana in prilepljena v celico D3, kot je prikazano zgoraj.

VBA Prilepi- Primer # 2

Poglejmo še en primer VBA paste. Za to pojdite v okno VBA in odprite modul ter sledite spodnjim korakom.

1. korak: Začnite pisati podkategorijo v imenu VBA Prilepi ali v katerem koli drugem imenu, kot je prikazano spodaj.

Koda:

 Pod VBAPaste2 () Konec Sub

2. korak: Tu bomo upoštevali iste podatke ali referenčno celico B3, ki smo jih videli v primeru-1. Izberite območje celice B3, ki mu sledi ukaz .Copy . To bo kopiralo podatke.

Koda:

 Pod VBAPaste2 () Obseg ("B3"). Kopiraj konec Sub

Korak 3: Zdaj izberite celico obsega, kamor moramo prilepiti kopirane podatke. Tukaj izberemo celice D1 do D3 za razliko od izbire samo ene celice, kot je prikazano v primeru-1.

Koda:

 Pod VBAPaste2 () Obseg ("B3"). Obseg kopiranja ("D1: D3"). Izberite End Sub

4. korak: Ko smo podatke kopirali in izbrali celice, kamor jih je treba prilepiti. Zdaj izberite ukaz Prilepi s pomočjo funkcije ActiveSheet . Ta Activesheet omogoča kopirani celici, prilepljeni v celice obsega.

Koda:

 Pod VBAPaste2 () Obseg ("B3"). Obseg kopiranja ("D1: D3"). Izberite ActiveSheet.Paste End Sub

5. korak: Zdaj sestavite kodo in jo zaženite. Videli bomo, da bo vrednost celice iz celice B3 prilepila iz celic D1 v D3.

VBA Prilepi- Primer # 3

Druga metoda VBA Paste je uporaba ročnega postopka, ki ga izvajamo za kopiranje in lepljenje.

Sledite spodnjim korakom:

1. korak: Napišite podkategorijo VBA Prilepi, kot je prikazano spodaj.

Koda:

 Pod VBAPaste3 () Konec Sub

2. korak: Bolje je, da zaporedju daste podkategorijo, če v eno datoteko pišete več nizov kod. Za lepljenje česar koli najprej moramo te podatke kopirati. Tu smo izbrali ukaz Copy .

Koda:

 Pod VBAPaste3 () Izbor. Kopiraj konec Sub

Korak 3: Zdaj izberite obseg ali referenčno celico, ki jo moramo kopirati in prilepiti. Tu imamo celico D3 s podatki »VBA lepljenje«.

Koda:

 Pod VBAPaste3 () Izbira. Obseg kopiranja ("D3"). Izberite End Sub

Korak 4: Zdaj v excelu izberemo celice, kamor moramo ročno ali s tipkami Shift + Ctrl + Up / Down prilepiti podatke. Tu bomo tudi izbrali lokacijo celic z ukazom End (xlUp) za izbiro obsega izhodnih celic.

Koda:

 Pod VBAPaste3 () Izbira. Obseg kopiranja ("D3"). Izberite obseg (izbira, izbira. Konča (xlUp)).

5. korak: Zdaj izberite obseg izhodnih celic, tukaj smo izbrali celice D1 do D3, kjer bomo videli prilepljene podatke.

Koda:

 Pod VBAPaste3 () Selection.Copy Range ("D3"). Izberite Range (Selection, Selection.End (xlUp)). Select Range ("D1: D3"). Select End Sub

6. korak: Kot funkcijo moramo izvesti funkcijo lepljenja, zato moramo ukaz Vstaviti v VBA z ukazom ActiveSheet, ki mu sledi pika (.).

Koda:

 Pod VBAPaste3 () Selection.Copy Range ("D3"). Izberite Range (Selection, Selection.End (xlUp)). Izberite Range ("D1: D3"). Izberite ActiveSheet.Paste End Sub

7. korak: Končno omogočite aplikacijo CutCopyMode kot FALSE, kar pomeni, da kopirate samo podatke, namesto da bi jih rezali tudi iz referenčne celice.

Koda:

 Pod VBAPaste3 () Selection.Copy Range ("D3"). Izberite Range (Selection, Selection.End (xlUp)). Izberite Range ("D1: D3"). Izberite ActiveSheet.Paste Application.CutCopyMode = False End Sub

Korak 8: Pred zagonom kode najprej postavite kazalec na celico B3. Nato sestavite kodo in jo zaženite. Videli bomo, da bodo naši podatki kopirani v celice D1 do D3.

VBA Prilepi- Primer # 4

Obstaja še en način uporabe VBA Paste v eni vrstici kode.

Sledite spodnjim korakom:

1. korak: Podkategorijo napišite v zaporedju in imenu izvedene funkcije.

Koda:

 Pod VBAPaste4 () Konec Sub

2. korak: Uporabite ukaz Delovni listi in izberite list, kjer bomo delali. Tu je ime našega lista „Sheet1“. Workbook.Sheet (1) lahko uporabimo tudi za izbiro “Sheet1” namesto tega.

Koda:

 Pod VBAPaste4 () Delovni listi ("Sheet1"). Končni pod

3. korak: Izberite celico, od koder bomo podatke kopirali. Tu je naša celica Range B3, ki ima enake podatke, kot smo jih videli v zgornjih primerih.

Koda:

 Pod VBAPaste4 () Delovni listi ("Sheet1"). Obseg ("B3"). Končni pod

4. korak: Zdaj vstavite ukaz Copy za piko (.) Za kopiranje podatkov iz izbrane celice Range.

Koda:

 Pod VBAPaste4 () Delovni listi ("Sheet1"). Obseg ("B3"). Kopiraj konec Sub

5. korak: Zdaj uporabite ukaz Destination, da izberete lokacijo, kamor bomo prilepili kopirane podatke. Za to izberite delovni list kot "Sheet1", kar smo storili na začetku tega primera, in izberite celice Range kjer koli na istem listu. Tu smo izbrali izhodne celice območja od D1 do D3.

Koda:

 Pod VBAPaste4 () Delovni listi ("Sheet1"). Obseg ("B3"). Destinacija kopiranja: = delovni listi ("Sheet1"). Obseg ("D1: D3") End Sub

6. korak: Zdaj kompilirajte in zaženite. Besedilo "Prilepi VBA" iz celice B3 bomo kopirali in ga prilepili v celice D1 do D3, kot je prikazano spodaj.

Prednosti Excel VBA paste

  • Prva dva primera sta najlažji in najhitrejši način uporabe VBA paste.
  • Za ogromne podatke, kjer je težko izvesti več dejavnosti, če avtomatiziramo tovrstno majhno funkcijo, bi prihranili ogromno časa za opravljanje ročnih stvari.
  • Kopiranja in lepljenja podatkov ni omejitev.

Stvari, ki jih je treba zapomniti

  • Podkategorijo uporabite tako, da če uporabljate več modulov, nato vstavite zaporedje, ki bo olajšalo sledenje in izbiro pravega makra.
  • Shranite Excelovo datoteko v formatu makro omogoči, tako da bo zapisana koda ohranjena za naslednjo uporabo.
  • Če pišete več vrstic kode, priporočamo, da sestavite kodno vrstico, da ugotovite, ali je v njej napaka.
  • Priporočljivo je, da kurzor postavite v celico B3, če uporabljate primer-3.

Priporočeni članki

To je vodnik za VBA Paste. Tu smo razpravljali o VBA Paste in kako uporabljati Excel VBA paste skupaj s praktičnimi primeri in naloženo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. VBA tekma | Kako uporabiti?
  2. Excel TRANSPOSE Formula
  3. VBA domet | Enostavni Excelovi makroni
  4. Vstavljena IF formula v Excelu

Kategorija:

VBA