Vrednosti lepljenja Excel VBA
Copy & Paste ni najboljše delo na svetu !!! Toda kopiranje in lepljenje s posebnimi možnostmi zahteva nekakšno znanje v VBA. To ni neposreden postopek kot preprosto kopiranje in lepljenje. Ena izmed pomembnih posebnih metod lepljenja je »Prilepi vrednosti« v VBA.
Kako prilepiti vrednosti v Excelu z uporabo VBA?
Primer # 1 - Uporaba posebne paste
Na primer, poglejte spodnjo sliko delovnega lista.
V celici B6 smo uporabili formulo za izračun skupnih vrednosti prodaje od celic B2 do celic B5. Zdaj, če kopiram in prilepim celico B6 na C6, ne bom dobil vrednosti 22.761, bom pa dobil ustrezno formulo.
Za izvedbo istega v VBA potrebujemo znanje o kodiranju. Pokazali vam bomo, kako prilepiti vrednosti z uporabo VBA. Sledite spodnjim korakom.
1. korak: Kopirajte celico B6.
Če želite kopirati celico B6, uporabite kodo kot obseg (»B6«)
2. korak: Izberite ciljno celico. V tem primeru celica C6.
Kot vidite po kopiji, se vpraša: "Destination." To ni nič drugega kot kam želite prilepiti, zato izberite »Cilj« kot obseg (»C6«)
Koda:
Sub Paste_Values () Obseg ("B6"). Obseg kopiranja ("C6") Konec Sub
3. korak: zaženite kodo
Zaženite to kodo, dobili bomo kopijo B6 v C6.
Tu imamo samo formulo.
4. korak: Izvedite posebno metodo lepljenja.
Če želite izvesti posebno metodo lepljenja, si oglejmo spodnjo sintakso posebne metode lepljenja.
Pri posebni metodi lepljenja imamo več metod. Glede na operacijo, ki jo opravljamo, moramo ustrezno izbrati vrsto.
Da bi razumeli, razdelimo kodo v dve vrstici.
Prva je kopiranje celice B6.
Zdaj v naslednjo vrstico zapišite ciljno celico kot Obseg (“C6”)
Zdaj za dostop do Paste Special Method postavite piko in začnite vnašati črko "P."
V zgornji paleti možnosti izberite metodo »Posebno lepljenje«.
Po izbiri metode pritisnite preslednico, da si ogledate različne posebne metode lepljenja.
V tej vrsti možnosti izberite "xlPasteValues."
Po izbiri možnosti pritisnite tipko tabulatorke za samodejno izbiro.
Koda:
Sub Paste_Values () Obseg ("B6"). Kopiraj obseg ("C6"). PasteSpecial xlPasteValues End Sub
5. korak: Zaženite kodo
Zdaj zaženite kodo, v celico C6 bi morali dobiti le vrednost celice B6.
Če opazite delovni list po zagonu kode, je še vedno samo v načinu kopiranja.
To bo onemogočilo način izrezanega kopiranja po izvedbi posebne metode lepljenja.
2. primer - Posebno lepljenje z zankami
Posebno lepljenje je enostavno, vendar v smislu uporabe tega kot dela velike kode zahteva napredno raven kodiranja.
Na primer, poglejte spodnjo sliko.
Na zgornji sliki delovnega lista v stolpcu "F" imamo skupni stolpec, tj. V celicah F2, F5, F8, F11 in F14.
Zdaj je moja zahteva kopiranje celotne celice iz posamezne celice in lepljenje v stolpec "H" z ustreznimi celicami.
Z uporabo spodnje kode z zankami VBA lahko to storimo.
Koda:
Sub Paste_Values1 () Dim k Kot celo število Dim j Kot celo število j = 2 Za k = 1 do 5 celic (j, 6). Kopirajte celice (j, 8). PasteSpecial xlPasteValues j = j + 3 Naslednji k Konec Sub
Ta koda s posebno možnostjo lepljenja bo opravila nalogo kopiranja vsake celotne celice in z ustreznimi celicami prilepila v stolpec "H".
3. primer - Kopirajte z delovnega lista na drugega
Če želite prilepiti vrednosti z enega delovnega lista na drugega, moramo omeniti obe imeni delovnega lista. Spodaj je primer tega.
Sub Paste_Values2 () Delovni listi ("Sheet1"). Obseg ("A1"). Kopirajte delovne liste ("Sheet2"). Obseg ("A15"). PasteSpecial xlPasteValues End Sub
