※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

 

目的

「4つのシートにある各ボタンを順番に押す処理」を「Sheet1に作った1つのボタンの処理」に変えたい。全自動ではないので「バッチ処理風」です。

 

概要

1 各シートの「バッチ処理に追加するClickイベント」を PrivatePublic に変更します。当然ながら「追加しないイベントはPrivateのまま」です。

2 Sheet1にコマンドボタン(ここでは名称 CMD_BATCH)を追加

3 CMD_BATCHのClickイベント内で、1でPublicに変更した各イベントを列挙します。これは Call したことと同じです。

4 最後の Sheet1.Select はコマンドボタンのあるSheet1に戻るためで、設置は任意です。

補足 サンプル内の「Sheet6.CMD_KEN_IGAI_Click」などは、あくまでもサンプル内のプロシージャ名で、読者様ごとに名称は異なります。

 

サンプル

Private Sub CMD_BATCH_Click()

    Sheet6.CMD_KEN_IGAI_Click

    Sheet1.CMD_CSV_EXPORT_Click

    Sheet2.CMD_CLT_HIDUKE_JICHI_Click

    Sheet4.CMD_SEIKYO_Click

    Sheet1.Select

End Sub


ȥåץڡ