Kuidas rakendada VBA PasteSpeciali ja säilitada Exceli lähtekoha vormindamist

Hugh West

16-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Siiski on olukordi, kus me tahame dubleerida rohkem kui lihtsalt teksti. Me võime kopeerida kõik Exceli võimalused neist, näiteks tingimusliku vormindamise, andmete valideerimise, andmetüübi vormindamise ja esteetilised funktsioonid, nagu piire ja lahtrite värvid. Võib-olla imetlete oma kolleegide värvilahendust, kuid vajate staatilisi andmeid, või võib-olla on valemid fantastilised, kuid teile ei meeldi värvilahendused.Selles õpetuses. Näitame, kuidas VBA PasteSpecial ja säilitage Exceli allikavorming.

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.

VBA PasteSpecial.xlsm

4 lihtsat näidet VBA PasteSpecial'i rakendamiseks ja Exceli allika vormindamise säilitamiseks

Näitame nelja näidet, kuidas kasutada paste special'i. VBA säilitades samal ajal allikavormingu alljärgnevates lõikudes. Siin on näidisandmestik, mida kasutame kopeerimiseks ja kleepimiseks.

1. Sisendkasti lisamine, kasutades VBA PasteSpecial ja säilitades Exceli lähtekoha vormindamise

Kõigepealt. Kasutame kasti, et valida vahemik ja seejärel kleepida see teise lahtrisse. Selleks järgige alljärgnevaid samme.

1. samm:

  • Esiteks vajutage Alt + F11 alustada Makro .
  • Seejärel klõpsake nuppu Lisa, valida Moodul võimalus.

2. samm:

  • Sisestage järgmine VBA-kood. 
 Sub PasteSpecialKeepFormat() 'deklareeri CopyCell ja PasteCell kui vahemiku muutuja Dim CopyCell As Range, PasteCell As Range 'Anna nimi sisendkastile xTitleId = "ExcelWIKI" 'Määra kopeerimisvahemik valitakse töölehest Set CopyCell = Application.Selection 'Määra sisendkast, et võtta vahemik, millest kopeerida Set CopyCell = Application.InputBox("Select Range to Copy :", xTitleId, CopyCell.Address,Type:=8) 'Määrake sisendkast, et võtta vahemik, kuhu kleepida Set PasteCell = Application.InputBox("Paste to any blank cell:", xTitleId, Type:=8) 'käsk valitud vahemiku kopeerimiseks CopyCell.Copy 'käsk vahemiku kleepimiseks PasteCell.Parent.Activate 'käsk kleebitud lahtritele, et säilitada allikas vormindus PasteCell.PasteSpecial xlPasteValuesAndNumberFormats PasteCell.PasteSpecial xlPasteFormatsApplication.CutCopyMode = False End Sub

3. samm:

  • Salvesta programmi ja vajutage F5 selle käivitamiseks.
  • Pärast ilmumist 'ExcelWIKI' valige vahemik $B$4:$C$11 .
  • Klõpsake OK .

4. samm:

  • Valige kleepimiseks mõni tühi lahter.
  • Seejärel klõpsake OKEI.

  • Seetõttu saate kleepimisväärtuse, säilitades formaadi.

Loe edasi: Erinevus Paste ja Paste Special vahel Excelis

2. Rakendage VBA PasteSpecial, et valida vahemik ja säilitada Exceli allikavorming

Veebilehel VBA , võite määrata ka vahemikke ning kopeerida ja kleepida neid, säilitades samal ajal allika vormingu. Järgige allpool kirjeldatud samme, et seda teha.

1. samm:

  • Press Alt + F11 avada Makro .
  • Loo uus moodul alates Sisesta
  • Lihtsalt kleepige järgmine tekst VBA vahemiku kood B4:C11 . 
 Sub pasteSpecial_KeepFormat() 'vali vahemik, mida kopeerida Range("B4:C11").Copy 'vali lahter, mida kleepida 'käsk pasteSpecial, mis säilitab formaadi Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub

2. samm:

  • Lõpuks salvestage programm ja vajutage F5 Sellest tulenevalt näete muutusi, nagu on näidatud alloleval pildil.

Loe edasi: VBA Paste Special väärtuste ja vormingute kopeerimiseks Excelis (9 näidet)

Sarnased lugemised

  • VBA-kood kahe Exceli lehe võrdlemiseks ja erinevuste kopeerimiseks
  • Excel VBA: lahtri väärtuse kopeerimine ja kleepimine teise lahtrisse
  • Kuidas kopeerida mitu lahtrit Exceli teisele lehele (9 meetodit)
  • Excel VBA: vahemiku kopeerimine teise töövihikusse
  • [Parandatud]: Parema klõpsuga kopeerimine ja kleepimine ei tööta Excelis (11 lahendust)

3. Muutuja deklareerimine VBA PasteSpeciali rakendamisega ja Exceli allika vormindamise säilitamine

Deklareerides muutujaid ja määrates muutujaid erinevatesse vahemikesse, järgige alljärgnevaid samme, et kleepidaSpecial sisse VBA .

1. samm:

  • Kõigepealt vajutage Alt + F11 avada VBA makro .
  • Valige uus Moodul .
  • Seejärel kleepige järgmine tekst VBA kood . 
 Sub Copy_Paste_Special() 'Muutujate deklareerimine Dim copy_Rng As Range, Paste_Range As Range 'Käsk kopeerida vahemik Set copy_Rng = Range("B4:C11") 'Käsk kleepida vahemik Set Paste_Range = Range("E4") copy_Rng.Copy 'Paste käsk kleepidaSpecial'ile koos formaadi hoidmisega Paste_Range.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub

2. samm:

  • Pärast programmi salvestamist vajutage F5 käivitada.
  • Seetõttu kleebitakse teie kopeeritud vahemik sisse, säilitades algvormingu nagu enne.

Loe edasi: Kuidas kasutada VBA PasteSpecial'i valemite ja vormingute jaoks Excelis (3 võimalust)

4. Kasutage VBA PasteSpeciali ja säilitage Exceli eri töölehtede allikavormingud

Me räägime selles osas väga olulisest meetodist. Sest me vaatame läbi, kuidas kasutada PasteSpecial'i aastal VBA mitmes töövihikus. Näiteks kopeerime alates 'Sheet4' ja kleebi see sisse 'Sheet5 ," nagu on näidatud alljärgnevates sammudes.

1. samm:

  • Avamine VBA makro , vajutage Alt + F11
  • Alates Sisesta vahekaart, valige Moodul.
  • Seejärel kleepige järgmine tekst VBA. 
 Private Sub KeepSourceFormat() Application.ScreenUpdating = False 'Muutujate deklareerimine Dim copyRng As Worksheet Dim pasteRng As Worksheet 'Set range destination to the variable Set copyRng = Worksheets("Sheet4") Set pasteRng = Worksheets("Sheet5") 'set the destination of the pasted cells 'For cell E4, Rows.count = 5, Offset = 3 Set Destination = pasteRng.Cells(Rows.Count, 5).End(xlUp).Offset(3, 0)'Käsk vahemiku kopeerimiseks copyRng.Range("B4:C11").Copy 'Käsk vahemiku kleepimiseks Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

2. samm:

  • Programmi käivitamiseks vajutage F5 pärast programmi salvestamist.
  • Seetõttu saate kleebitud väärtuse sisse leht 5 säilitades lähteformaadi.

Loe edasi: Kuidas kasutada Exceli spetsiaalset käsku Paste Special (5 sobivat viisi)

Kokkuvõte

Kokkuvõtteks, ma loodan, et te teate nüüd, kuidas kasutada Excel VBA kleepida spetsiaalset hoida allikate vormindamist. Kõik need strateegiad tuleks õpetada oma andmetele ja kasutada seda. Uurige praktikaraamatut ja rakendage õpitut. Me oleme motiveeritud jätkama selliste loengute pidamist tänu teie olulisele toetusele.

Palun võtke meiega ühendust, kui teil on küsimusi. Palun jagage oma mõtteid allpool olevasse kommentaarikasti.

Teie küsimustele vastab võimalikult kiiresti Exceldemy personal.

Jääge meiega ja jätkake õppimist.

Eelmine postitus Kuidas teha Excelis kaks rida ühes lahtris (4 meetodit)
Järgmine postitus Kuidas salvestada koopia XLSX-i abil Exceli VBA (5 sobivat viisi)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.