Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe dezelfde macro op meerdere werkbladen tegelijkertijd in Excel uit te voeren?

Normaal gesproken kunnen we een macro in een werkblad uitvoeren. Als er meerdere bladen nodig zijn om dezelfde macro toe te passen, moet u de code één voor één activeren. Als er een andere snelle manier is om dezelfde macro tegelijkertijd in meerdere werkbladen in Excel uit te voeren?

Voer dezelfde macro op meerdere werkbladen tegelijkertijd uit of voer deze uit met VBA-code


Verwijder alle macro's uit meerdere werkmappen:

Kutools for Excel's Batch Verwijder alle macro's hulpprogramma kan u helpen om alle macro's uit meerdere werkmappen te verwijderen als u dat wilt. Download en gratis proef Kutools voor Excel nu!

doc voer macro uit als cel 3 verandert

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Voer dezelfde macro op meerdere werkbladen tegelijkertijd uit of voer deze uit met VBA-code

Om een ​​macro tegelijkertijd op meerdere bladen uit te voeren zonder het één voor één blad te activeren, kunt u de volgende VBA-code toepassen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > module, en plak de volgende macro in de module Venster.

VBA-code: voer dezelfde macro op meerdere werkbladen tegelijkertijd uit:

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

Notes: Kopieer en plak uw eigen code in de bovenstaande code zonder de Sub kop en End Sub footer tussen de Subloopcode () en End Sub scripts. Zie screenshot:

doc voer macro uit in alle bladen 1

3. Plaats vervolgens de cursor op de eerste stuk macro en druk op F5 toets om de code uit te voeren en uw macrocode wordt toegepast op één voor één blad.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    dmitri · 8 months ago
    1004 runtime error
  • To post as a guest, your comment is unpublished.
    mare · 9 months ago
    Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
    xSh.Select
    Call RunCode
    Next
    Application.ScreenUpdating = True
    End Sub
    Sub RunCode()
    With Worksheets("2018")
    .EnableOutlining = True
    .EnableSelection = xlNoRestrictions
    .Protect Password:="workana1234", _
    Contents:=True, UserInterfaceOnly:=True
    End With
    End Sub


    Hola! he seguido las pautras pero me señala como error la fila xSh.Select.

    Al dar F5 me indica que se ha producido un error 1004 en tiempo de ejecucion.

    Error en el metodo "Select" de Objeto "_Worksheet"



    Help!!!!