Kako uporabiti VBA PasteSpecial in ohraniti oblikovanje vira v Excelu

Hugh West

16-10-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

Vendar obstajajo situacije, ko želimo podvojiti več kot le besedilo. Kopiramo lahko vse Excelove zmožnosti, kot so pogojno oblikovanje, preverjanje podatkov, oblikovanje podatkovnih tipov in estetske funkcije, kot so meje in barve celic. Morda občudujete barvno shemo svojega sodelavca, vendar potrebujete statične podatke, ali pa so formule fantastične, vendar vam barvna shema ni všeč.V tem učbeniku bomo prikazali VBA PasteSpecial in ohranite oblikovanje vira v Excelu.

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za vadbo, ki ga lahko uporabljate med branjem tega članka.

VBA PasteSpecial.xlsm

4 enostavni primeri za uporabo VBA PasteSpecial in ohranjanje oblikovanja vira v Excelu

Prikazali bomo štiri primere uporabe posebne funkcije paste v VBA pri čemer ohranite izvorno obliko v spodnjih razdelkih. Tukaj je vzorčni niz podatkov, ki ga bomo uporabili za kopiranje in lepljenje.

1. Dodajte vnosno polje z uporabo VBA PasteSpecial in ohranite oblikovanje vira v Excelu

Najprej in predvsem. Polje bomo uporabili za izbiro območja in ga nato prilepili v drugo celico. Pri tem sledite spodnjim korakom.

Korak 1:

  • Najprej pritisnite Alt + F11 za začetek Makro .
  • Nato kliknite na Vstavljanje, izberite Modul možnost.

Korak 2:

  • Prilepite naslednjo kodo VBA. 
 Sub PasteSpecialKeepFormat() 'razglasite CopyCell in PasteCell kot spremenljivko območja Dim CopyCell As Range, PasteCell As Range 'dajte ime vnosnemu polju xTitleId = "ExcelWIKI" 'nastavite območje kopiranja bo izbrano iz delovnega lista Set CopyCell = Application.Selection 'nastavite vnosno polje, da vzamete območje za kopiranje Set CopyCell = Application.InputBox("Select Range to Copy :", xTitleId, CopyCell.Address,Type:=8) 'Nastavite vnosno polje, da vzamete obseg, v katerega želite prilepiti Set PasteCell = Application.InputBox("Paste to any blank cell:", xTitleId, Type:=8) 'Ukaz za kopiranje izbranega obsega CopyCell.Copy 'Ukaz za prilepitev obsega PasteCell.Parent.Activate 'Ukaz za prilepljene celice, da ohranijo izvirno oblikovanje PasteCell.PasteSpecial xlPasteValuesAndNumberFormats PasteCell.PasteSpecial xlPasteFormatsApplication.CutCopyMode = False End Sub

Korak 3:

  • Shrani program in pritisnite F5 da ga zaženete.
  • Po nastopu 'ExcelWIKI' izberite območje $B$4:$C$11 .
  • Kliknite . V REDU .

4. korak:

  • Izberite katero koli prazno celico, ki jo želite prilepiti.
  • Nato kliknite V REDU.

  • Zato boste dobili vrednost paste, če boste ohranili nespremenjeno obliko.

Preberite več: Razlika med vstavljanjem in posebnim vstavljanjem v Excelu

2. Uporabite VBA PasteSpecial za izbiro območja in ohranite oblikovanje vira v Excelu

Na spletnem mestu VBA , lahko določite tudi območja ter jih kopirate in prilepite, pri tem pa ohranite izvorno oblikovanje. Če želite to storiti, sledite opisanim korakom v nadaljevanju.

Korak 1:

  • Pritisnite Alt + F11 da odprete Makro .
  • Ustvarite nov modul iz Vstavite
  • Preprosto prilepite naslednje VBA koda za območje B4:C11 . 
 Sub pasteSpecial_KeepFormat() 'izberite obseg za kopiranje Range("B4:C11").Copy 'izberite celico za prilepitev 'Ukaz za pasteSpecial ohranjanje formata Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub

Korak 2:

  • Na koncu shranite program in pritisnite F5 posledično boste videli spremembe, kot je prikazano na spodnji sliki.

Preberi več: Posebna funkcija VBA Paste za kopiranje vrednosti in oblik v Excelu (9 primerov)

Podobna branja

  • Koda VBA za primerjavo dveh listov Excel in kopiranje razlik
  • Excel VBA: Kopiranje vrednosti celice in prilepitev v drugo celico
  • Kako kopirati več celic v drug list v Excelu (9 metod)
  • Excel VBA: Kopiranje območja v drugo delovno knjižico
  • [Popravljeno]: Kopiranje in prilepljanje z desnim klikom ne delujeta v Excelu (11 rešitev)

3. Deklariranje spremenljivke z uporabo VBA PasteSpecial in ohranitev oblikovanja vira v Excelu

Z deklariranjem spremenljivk in nastavljanjem spremenljivk na različna območja sledite spodnjim korakom, da prilepiteSpecial v VBA .

Korak 1:

  • Najprej pritisnite Alt + F11 da odprete Makro VBA .
  • Izberite nov Modul .
  • Nato prilepite naslednje Koda VBA . 
 Sub Copy_Paste_Special() 'Deklaracija spremenljivk Dim copy_Rng As Range, Paste_Range As Range 'Ukaz za kopiranje območja Set copy_Rng = Range("B4:C11") 'Ukaz za lepljenje območja Set Paste_Range = Range("E4") copy_Rng.Copy 'Ukaz za lepljenje pasteSpecial z ohranitvijo formata Paste_Range.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub

Korak 2:

  • Po shranjevanju programa pritisnite F5 za zagon.
  • Zato bo kopirano območje prilepljeno z ohranitvijo izvornega oblikovanja kot prej.

Preberite več: Kako uporabiti VBA PasteSpecial za formule in formate v Excelu (3 načini)

4. Uporabite VBA PasteSpecial in ohranite oblikovanje vira v drugem delovnem listu v Excelu

V tem delu bomo govorili o zelo pomembni metodi. Ker bomo pregledali, kako uporabiti PasteSpecial v VBA v več delovnih zvezkih. 'Sheet4' in ga prilepite v "List5 ,' kot je prikazano v spodnjih korakih.

Korak 1:

  • Odpiranje Makro VBA , pritisnite Alt + F11
  • Od Vstavite izberite zavihek Modul.
  • Nato prilepite naslednje VBA. 
 Private Sub KeepSourceFormat() Application.ScreenUpdating = False 'Deklaracija spremenljivk Dim copyRng As Worksheet Dim pasteRng As Worksheet 'Nastavite ciljno območje spremenljivke Set copyRng = Worksheets("Sheet4") Set pasteRng = Worksheets("Sheet5") 'nastavite cilj prilepljenih celic 'Za celico E4, Rows.count = 5, Offset = 3 Set Destination = pasteRng.Cells(Rows.Count, 5).End(xlUp).Offset(3, 0)'Ukaz za kopiranje območja copyRng.Range("B4:C11").Copy 'Ukaz za prilepitev območja Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Korak 2:

  • Če želite zagnati program, pritisnite F5 po shranjevanju programa.
  • Zato boste dobili prilepljeno vrednost v list 5 z ohranitvijo izvorne oblike.

Preberite več: Kako uporabiti posebni ukaz Vstavi v Excelu (5 primernih načinov)

Zaključek

Če povzamem, upam, da zdaj veste, kako uporabljati Excel VBA do Paste Special Keep Source Formatting. Vse te strategije je treba naučiti svoje podatke in jih uporabljati. Preučite vadnico in uporabite, kar ste se naučili. Zaradi vaše pomembne podpore smo motivirani, da še naprej izvajamo takšna predavanja.

Če imate kakršna koli vprašanja, se obrnite na nas. V spodnjem polju za komentarje delite svoje misli.

Na vaša vprašanja bo v najkrajšem možnem času odgovoril Odlično osebje.

Bodite z nami in se še naprej učite.

Prejšnja objava Kako narediti dve vrstici v eni celici v Excelu (4 metode)
Naslednja objava Kako shraniti kopijo kot XLSX z uporabo programa Excel VBA (5 primernih načinov)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.