[Excel][VBA] バッチ処理風 – パソコン・スマホの覚え書き

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

目的

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

概要

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

２　Sheet1にコマンドボタン（ここでは名称　CMD_BATCH）を追加

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

４　最後の 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