月別ブックより部署別シートに担当別に集計するNo5

最終更新日：2016-02-02

第29回.月別ブックより部署別シートに担当別に集計するNo5

マクロ再入門の課題として、
月別ブックより部署別シートに担当別に集計する、
総仕上げとして、複数のマクロを連続実行させるようにして、
シートにボタンを追加して完成させます。

全体の作業手順は以下になります。

・連続実行させるマクロを作成
・ボタンを追加しマクロを登録する

■連続実行させるマクロを作成

Call プロシージャ名
これで、指定のプロシージャを起動できます。
また、
Application.ScreenUpdating = False
これで、画面更新を止めることで、速度アップと画面のちらつきを防止します。

Sub 実行1()
　　Application.ScreenUpdating = False
　　Call ファイル一覧
　　Call データ収集
　　Call 部署別作成1
　　Application.ScreenUpdating = True
　　MsgBox "完了"
End Sub

Sub 実行2()
　　Application.ScreenUpdating = False
　　Call ファイル一覧
　　Call データ収集
　　Call 部署別作成2
　　Application.ScreenUpdating = True
　　MsgBox "完了"
End Sub

方法1と方法2、それぞれのプロシージャを作成します。
Call 部署別作成1
Call 部署別作成2
この部分だけです。

■ボタンを追加しマクロを登録する

開発→挿入→フォームコントロールのボタン

マクロVBA 参考画像

カーソルが、細い黒十字になりますので、
シート上のボタンを配置する位置をクリックしてそのままドラッグ操作で大きさを決めます。
大きさが決まったら、マウスのクリックを離すと、

マクロVBA 参考画像

実行1

これを選択して、「OK」

「ボタン 1」は適当な名称に変更してください。
セルをクリックしたりするとボタンの選択状態が解除されます。
ボタンの名前は、右クリックから「テキストの編集」でいつでも変更できます。

続けて、
実行2
のボタンも作成してください。

以上で完成です。
ボタンをクリックして、正しく動作しているか確認しましょう。

「月別ブックより部署別シートに担当別に集計する」
この課題でマクロ作成しました。
マクロ作成は、独自アプリケーションの作成です。
アプリケーションは限りなく存在し、また限りなく作っていくことが出来ます。
自身にとって必要なアプリケーションを独自開発し、業務を自動化していきましょう。
それによって、作業時間が減り、作業間違いが無くなります。
結果、新たな時間の余裕が生まれます。
その新たにできた時間を、自身にとってより有意義に使う事が、マクロ開発の到達点です。

以下に、サンプルファイルを再掲しておきます。

■サンプルファイル