Hoe VBA PasteSpecial toepassen en bronopmaak behouden in Excel

Hugh West

16-10-2023 Macro's & Excel VBA
  • Deel Dit
Hugh West

Er zijn echter situaties waarin we meer willen dupliceren dan alleen tekst. We kunnen alle mogelijkheden van Excel kopiëren, zoals voorwaardelijke opmaak, validatie van gegevens, opmaak van gegevenstypes en esthetische functies zoals randen en celkleuren. Misschien bewondert u het kleurenschema van uw collega, maar hebt u statische gegevens nodig, of misschien zijn de formules fantastisch, maar heeft u een hekel aan het kleurenschema.In deze tutorial tonen we de VBA PlakSpeciaal en behoud de bronopmaak in Excel.

Download Praktijk Werkboek

Download dit oefenwerkboek om te oefenen terwijl u dit artikel leest.

VBA PlakkenSpeciaal.xlsm

4 Eenvoudige voorbeelden om VBA PasteSpecial toe te passen en bronopmaak in Excel te behouden

We demonstreren vier voorbeelden van het gebruik van de paste special in VBA met behoud van het bronformaat in de onderstaande secties. Hier is een voorbeeld van een dataset die we zullen gebruiken om te kopiëren en te plakken.

1. Invoervak toevoegen met VBA PasteSpecial en bronopmaak behouden in Excel

Eerst en vooral zullen we het vak gebruiken om een bereik te selecteren en het vervolgens in een andere cel te plakken. Volg daarvoor de onderstaande stappen.

Stap 1:

  • Druk eerst op Alt + F11 om een Macro .
  • Klik vervolgens op de Invoegen, kies de Module optie.

Stap 2:

  • Plak de volgende VBA-code. 
 Sub PasteSpecialKeepFormat() 'declare CopyCell and PasteCell as range variable Dim CopyCell As Range, PasteCell As Range 'Give a name to the Input Box xTitleId = "ExcelWIKI" 'Set copy range will be selected from the worksheet Set CopyCell = Application.Selection 'Set a Input Box to take a range to copy from Set CopyCell = Application.InputBox("Select Range to Copy :", xTitleId, CopyCell.Address,Type:=8) 'Stel een InputBox in om een bereik te nemen om naar te plakken Set PasteCell = Application.InputBox("Plakken naar een lege cel:", xTitleId, Type:=8) 'Opdracht om het geselecteerde bereik te kopiëren CopyCell.Copy 'Opdracht om het bereik te plakken PasteCell.Parent.Activate 'Opdracht om geplakte cellen de bronopmaak te laten behouden PasteCell.PasteSpecial xlPasteValuesAndNumberFormats PasteCell.PasteSpecial xlPasteFormatsApplication.CutCopyMode = False Einde Sub

Stap 3:

  • Sla het programma en druk op F5 om het uit te voeren.
  • Na het verschijnen van de "ExcelWIKI vak, selecteer het bereik $B$4:$C$11 .
  • Klik op OK .

Stap 4:

  • Selecteer een lege cel om te plakken.
  • Klik dan op OK.

  • Daarom krijgt u de plakwaarde door het formaat intact te houden.

Lees meer: Verschil tussen plakken en plakken speciaal in Excel

2. VBA PasteSpecial toepassen op selectiebereik en bronopmaak behouden in Excel

In VBA U kunt ook bereiken specificeren en deze kopiëren en plakken met behoud van de bronopmaak. Volg de onderstaande stappen om het gedaan te hebben.

Stap 1:

  • Druk op Alt + F11 om te openen Macro .
  • Maak een nieuwe module van de Plaats
  • Plak gewoon het volgende VBA code voor de reeks B4:C11 . 
 Sub pasteSpecial_KeepFormat() 'selecteer bereik om te kopiëren Range("B4:C11").Copy 'selecteer cel om te plakken 'Command to pasteSpecial houdt het Format Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub

Stap 2:

  • Sla tenslotte het programma op en druk op F5 Als gevolg daarvan ziet u de wijzigingen zoals in de onderstaande afbeelding.

Lees meer: VBA plakken om waarden en formaten in Excel te kopiëren (9 voorbeelden)

Vergelijkbare lezingen

  • VBA-code om twee Excel-vellen te vergelijken en verschillen te kopiëren
  • Excel VBA: Celwaarde kopiëren en in een andere cel plakken
  • Hoe meerdere cellen kopiëren naar een ander blad in Excel (9 methoden)
  • Excel VBA: Bereik kopiëren naar een andere werkmap
  • [Fixed]: Rechts klikken, kopiëren en plakken werkt niet in Excel (11 oplossingen)

3. Variabele declareren door toepassing van VBA PasteSpecial en bronopmaak behouden in Excel

Door variabelen te declareren en op verschillende bereiken in te stellen, volgt u de onderstaande stappen omSpecial te plakken in VBA .

Stap 1:

  • Druk eerst op Alt + F11 om te openen VBA-macro .
  • Selecteer een nieuwe Module .
  • Plak dan het volgende VBA-code . 
 Sub Copy_Paste_Special() 'Variabelen declareren Dim copy_Rng As Range, Paste_Range As Range 'Commando om bereik te kopiëren Set copy_Rng = Range("B4:C11") 'Commando om bereik te plakken Set Paste_Range = Range("E4") copy_Rng.Copy 'Commando plakken aan pasteSpecial met houden van Formaat Paste_Range.PasteSpecial Plakken:=xlPasteAllUsingSourceTheme Einde Sub

Stap 2:

  • Nadat u het programma hebt opgeslagen, drukt u op F5 om te lopen.
  • Daarom wordt uw gekopieerd bereik geplakt met behoud van de bronopmaak als voorheen.

Lees meer: Hoe VBA PlakSpeciaal gebruiken voor formules en opmaak in Excel (3 manieren)

4. Gebruik VBA PasteSpecial en behoud bronopmaak in ander werkblad in Excel

We zullen het in dit deel hebben over een zeer belangrijke methode. Want we gaan doornemen hoe je PasteSpecial gebruikt in VBA in meerdere werkmappen. Bijvoorbeeld, we kopiëren van "Sheet4 en plak het in Blad5 ," zoals aangegeven in de onderstaande stappen.

Stap 1:

  • Openen VBA-macro Druk op Alt + F11
  • Van de Plaats tabblad, kies de Module.
  • Plak dan het volgende VBA. 
 Private Sub KeepSourceFormat() Application.ScreenUpdating = False 'Variabelen declareren Dim copyRng As Worksheet Dim pasteRng As Worksheet 'Stel de bestemming van het bereik in op de variabele Set copyRng = Worksheets("Sheet4") Set pasteRng = Worksheets("Sheet5") 'Stel de bestemming van de geplakte cellen in 'Voor cel E4, Rows.count = 5, Offset = 3 Set Destination = pasteRng.Cells(Rows.Count, 5).End(xlUp).Offset(3, 0)'Opdracht om het bereik te kopiëren copyRng.Range("B4:C11").Copy 'Opdracht om het bereik te plakken Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Stap 2:

  • Om het programma uit te voeren, drukt u op F5 na het opslaan van het programma.
  • Daarom krijg je de geplakte waarde in blad 5 met behoud van het bronformaat.

Lees meer: Hoe de opdracht Plakken speciaal in Excel gebruiken (5 geschikte manieren)

Conclusie

Samenvattend hoop ik dat u nu weet hoe u Excel VBA naar Plakken Speciaal Bronopmaak houden. Al deze strategieën moeten aan uw gegevens worden geleerd en gebruikt. Bestudeer het oefenboek en pas toe wat u hebt geleerd. We zijn gemotiveerd om lezingen als deze te blijven geven vanwege uw belangrijke steun.

Aarzel niet om contact met ons op te nemen als u vragen heeft. Deel uw gedachten in het commentaarveld hieronder.

Uw vragen worden zo spoedig mogelijk beantwoord door de Exceldemy personeel.

Blijf bij ons en blijf leren.

Vorige post Hoe maak je twee regels in één cel in Excel (4 methoden)
Volgende bericht Hoe een kopie opslaan als XLSX met Excel VBA (5 geschikte manieren)

Hugh West is een zeer ervaren Excel-trainer en -analist met meer dan 10 jaar ervaring in de branche. Hij heeft een bachelor in Accounting en Finance en een master in Business Administration. Hugh heeft een passie voor lesgeven en heeft een unieke lesaanpak ontwikkeld die gemakkelijk te volgen en te begrijpen is. Zijn deskundige kennis van Excel heeft duizenden studenten en professionals over de hele wereld geholpen hun vaardigheden te verbeteren en uit te blinken in hun carrière. Via zijn blog deelt Hugh zijn kennis met de wereld en biedt hij gratis Excel-tutorials en online trainingen aan om individuen en bedrijven te helpen hun volledige potentieel te bereiken.