【Excel/VBA】プログレスバーを自作する方法
みなさんこんにちは。イプシロンです。VBAで大量の処理をするときに時間が掛かり、その間PC操作ができないとなると、手持ち無沙汰になりがちです。(ちゃんと動いてんのかな～。)(あとどれくらいかかるんやろ～。)なんて、雑念が湧き始めます。そんな時に、役立つのがプログレスバーです。プログレスバーを使用するメリットは以下のとおりです。プログレスバーを使用するメリット・ユーザーが処理を中断しなくなる(動作の見える化)・進捗状況の見える化・終了時間が推測可能VBAには標準のプログレスバーがありますので、それを使いがちなのですが、実は、、、標準のプログレスバーには落とし穴があるのです！！！標準プログレスバーの落とし穴それは、環境依存のエラーがあり、開発者のバージョンと、ユーザーのバージョンに差異があるとエラーになりやすいのです。64bit版のOfficeにはプログレスバーが実装されていないため、表示させようとするだけでエラーになってしまいます。なので、不特定多数のユーザー向けに配布する場合は、そこを考慮して開発をする必要があります。そのため、私はプログレスバーを自作することをおすすめします。さっそく、いってみましょう！！！手順1.「挿入」→「ユーザーフォーム」をクリックし、フォームを追加するユーザーフォームが追加されます。2.ツールボックスから「ラベル」を選択します。ラベルが追加されます。3.ラベルをプログレスバーっぽく引き伸ばします。4.ラベルのCaptionを消します。(念のため)5.ラベルのBackColorを変更します。6.標準モジュールに以下のコードをコピペしてください。Sub t
0
