Note: The other languages of the website are Google-translated. Back to English

Hoe kan ik dezelfde macro op meerdere werkbladen tegelijk uitvoeren in Excel?

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

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


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

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

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

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

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

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

Opmerking:: Kopieer en plak in de bovenstaande code uw eigen code zonder de Sub kop en End Sub voettekst tussen de Sub-runcode () en End Sub scripts. Zie screenshot:

doc voer macro uit in alle bladen 1

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


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 nodig hebt. Download en gratis proef Kutools voor Excel nu!

doc macro uitvoeren als cel verandert 3

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (9)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Sub Doiets()
Dim xSh als werkblad
Application.ScreenUpdating = False
Voor elke xSh in werkbladen
xSh.Selecteer
Bel RunCode
Volgende
Application.ScreenUpdating = True
End Sub
Sub RunCode()
Met werkbladen ("2018")
.EnableOutlining = True
.EnableSelection = xlNoRestrictions
.Bescherm wachtwoord:="workana1234", _
Inhoud:=True, UserInterfaceOnly:=True
Eindigt met
End Sub


Hallo! hij 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!
Deze opmerking is gemaakt door de moderator op de site
On Error Resume Next
boven
xSh.Selecteer
Deze opmerking is gemaakt door de moderator op de site
1004 runtime-fout
Deze opmerking is gemaakt door de moderator op de site
Voor degenen met een 1004 runtime-fout, controleer of je geen verborgen bladen hebt. Als je dat doet, maak ze dan zichtbaar. Dan werkt dit codefragment. Groeten.th 1004 runtime-fout, controleer of u geen verborgen bladen heeft. Als je dat doet, maak ze dan zichtbaar. Dan werkt dit codefragment. De groeten.
Deze opmerking is gemaakt door de moderator op de site
or
On Error Resume Next

'boven

xSh.Selecteer

Deze opmerking is gemaakt door de moderator op de site
Is er een manier om dit alleen op niet-verborgen bladen te laten werken? Ik heb deze code nodig om alleen op zichtbare bladen te draaien.
Deze opmerking is gemaakt door de moderator op de site
De code "Voer dezelfde macro op meerdere werkbladen tegelijk uit" werkt perfect, bedankt!

Ik heb echter deze fout bij "xSh.Select" en ik weet niet waarom ... er is geen probleem zichtbaar in de bladen ... EN ik heb geen verborgen bladen.

De fout is '1004': Method'Select' van object '_Worksheet' failed


alvast bedankt voor uw hulp
Deze opmerking is gemaakt door de moderator op de site
Voordat xSh.selectu moet activeren
Dus,xSh.activatexSh.select
Deze opmerking is gemaakt door de moderator op de site
Hoe sluit je bepaalde bladen uit en voeg je On Error Resume Next toe? Bij voorbaat dank
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties