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

Excelで複数のワークシートで同時に同じマクロを実行するにはどうすればよいですか?

通常、ワークシートでマクロを実行できます。同じマクロを適用する必要のあるシートが複数ある場合は、コードをXNUMX枚ずつトリガーする必要があります。 Excelで一度に複数のワークシートで同じマクロを実行する他の簡単な方法はありますか?

VBAコードを使用して、複数のワークシートで同じマクロを同時に実行または実行します


VBAコードを使用して、複数のワークシートで同じマクロを同時に実行または実行します

マクロをXNUMX枚ずつトリガーせずに複数のシートで同時に実行するには、次のVBAコードを適用できます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

VBAコード:複数のワークシートで同じマクロを同時に実行します。

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

注意:上記のコードでは、独自のコードをコピーして貼り付けてください。 サブ 見出しと End Subの 間のフッター サブRuncode() 及び End Subの スクリプト。 スクリーンショットを参照してください:

すべてのシートでドキュメント実行マクロ1

3。 次に、カーソルを最初の部分のマクロに置き、を押します。 F5 キーを押してコードを実行すると、マクロコードがXNUMX枚ずつ適用されます。


複数のブックからすべてのマクロを削除します。

Kutools for Excel's すべてのマクロをバッチ削除 ユーティリティは、必要に応じて複数のブックからすべてのマクロを削除するのに役立ちます。 今すぐExcel用のKutoolsをダウンロードして無料でお試しください!

セルが変更された場合のドキュメント実行マクロ3

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
コメントを並べ替える
コメント (12)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
Sub Dosomething()
ワークシートとしての薄暗いxSh
Application.ScreenUpdating = False
ワークシートの各xShについて
xSh.Select
RunCodeを呼び出す

Application.ScreenUpdating = True
End Subの
Sub RunCode()
ワークシート付き( "2018")
.EnableOutlining = True
.EnableSelection = xlNoRestrictions
.Protect Password:= "workana1234"、_
内容:= True、UserInterfaceOnly:= True
最後に
End Subの


ホラ! he seguido laspautrasperomeseñalacomoerrorlafilaxSh.Select。

Al dar F5 me indica que se ha producido un error 1004 en tiempodeejecucion。

エラーenelmetodo "Select" de Objeto "_Worksheet"



助けて!
このコメントは、サイトのモデレーターによって最小化されました
エラーで次の再開
上記の
xSh.Select
このコメントは、サイトのモデレーターによって最小化されました
1004ランタイムエラー
このコメントは、サイトのモデレーターによって最小化されました
wiFor 1004ランタイムエラーのある場合は、非表示のシートがないことを確認してください。 そうした場合は、それらを再表示します。 次に、このコードスニペットが機能します。 Greetings.th 1004ランタイムエラー、非表示のシートがないことを確認してください。 そうした場合は、それらを再表示します。 次に、このコードスニペットが機能します。 ご挨拶。
このコメントは、サイトのモデレーターによって最小化されました
or
エラーで次の再開

'その上

xSh.Select

このコメントは、サイトのモデレーターによって最小化されました
非表示のシートでのみこれを実行する方法はありますか? このコードは、表示されているシートでのみ実行する必要があります。
このコメントは、サイトのモデレーターによって最小化されました
「複数のワークシートで同時に同じマクロを実行する」というコードは完全に機能します。ありがとうございます。

ただし、「xSh.Select」でこのエラーが発生し、理由がわかりません...シートに問題が表示されません...そして非表示のシートがありません。

エラーは「1004」です:オブジェクト「_Worksheet」のメソッド「Select」が失敗しました


あなたの助けを事前に感謝
このコメントは、サイトのモデレーターによって最小化されました
xSh.selectの前にアクティブ化する必要があります
したがって、xSh.activatexSh.select
このコメントは、サイトのモデレーターによって最小化されました
特定のシートを除外し、On Error Resume Nextを追加するにはどうすればよいですか? 前もって感謝します
このコメントは、サイトのモデレーターによって最小化されました
動作しますが、現在のシートは常に XNUMX 回実行されています。 残りのシートは完璧で、XNUMX 回だけ実行されます。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ほうさん
必要に応じて以下のコードを使用できる場合があります。
Sub WorksheetLoop()
         Dim Current As Worksheet
         For Each Current In Worksheets

          'Insert your code here.
           
      End Sub


注意: 上記のコードで、Sub ヘッダーと End Sub フッターを除いて、独自のコードをコピーして貼り付けてください。

ぜひお試しください。お役に立てば幸いです。
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう! しかし、それは機能していません。 現在のシートを数回実行するだけです。
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所