Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com executar la mateixa macro en múltiples fulls de treball al mateix temps a Excel?

Normalment, podem executar una macro en un full de càlcul, si hi ha diversos fulls necessaris per aplicar aquesta mateixa macro, heu d'activar el codi un per un full. Si hi ha alguna altra manera ràpida d'executar la mateixa macro en diversos fulls de còpia alhora a Excel?

Executeu o executeu la mateixa macro en diversos fulls de treball al mateix temps amb el codi VBA


Elimineu totes les macros de diversos llibres:

Kutools for Excel's Elimina totes les macros per lots La utilitat us pot ajudar a eliminar totes les macros de diversos llibres com necessiteu. Descarregueu i prova gratuïtament Kutools for Excel ara!

doc executar macro si canvia la cel·la 3

Kutools for Excel: amb més complements Excel de 200, gratuïts per intentar sense limitacions en 60 dies. Baixada i prova gratuïta Ara!


Executeu o executeu la mateixa macro en diversos fulls de treball al mateix temps amb el codi VBA

Per executar una macro en diversos fulls alhora sense provocar-lo un per un full, podeu aplicar el codi VBA següent, fes-ho així:

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu la macro següent al Mòduls Finestra.

Codi VBA: executar la mateixa macro en múltiples fulls de treball al mateix temps:

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

Nota: En el codi anterior, copieu i enganxeu el vostre propi codi sense el Sub encapçalament i End Sub peu de pàgina entre el Sub codi d'execució () i End Sub guions. Mostra la captura de pantalla:

doc executar macro en tots els fulls 1

3. A continuació, col·loqueu el cursor a la macro de la primera part i premeu F5 clau per executar el codi i el vostre codi de macro s'aplicarà a un sol full.



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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 · 1 months ago
    1004 runtime error
  • To post as a guest, your comment is unpublished.
    mare · 3 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!!!!