VBA入門
第57回.Applicationのプロパティ(マクロ高速化と警告停止等)

ExcelマクロVBAの基本と応用、エクセルVBAの初級・初心者向け解説
最終更新日:2020-10-14

第57回.Applicationのプロパティ(マクロ高速化と警告停止等)


Applicationは、Excel全体をあらわすオブジェクトです
つまり、エクセルそのものだと考えて下さい。
ここでは、そのプロパティの一部を紹介します。


ここで紹介するApplicationのプロパティはほんの一部です。
Applicationは、Excel全体をあらわすオブジェクトなのですから、
このオブジェクトを説明すると言う事は、Excel全てを説明する事になってしまいます。

WorkbooksもApplicationのプロパティですが、
Applicationを明示して書く事はありませんので、意識する必要はありません。
また、Applicationには当然メソッドもあります。
しかし、Applicationのメソッドは、その使い方が難しいものが多いので、
今後、少しずつ個別に紹介します。

Applicationオブジェクトに含まれるプロパティ・メソッドは、非常にたくさんあります。

Applicationのプロパティ、メソッド、イベントの一覧
エクセルそのものである、Applicationオブジェクトのプロパティ、メソッド、イベントの一覧です。数も多く全てを覚えるようなものではありません、必要に応じて調べて使う一覧になります。ただし、どのようなものがあるかを、ざっと目を通しておくと後々役立つことも多いでしょう。
ここでは、良く使われるApplicationのプロパティを紹介します。

Applicationの主要プロパティ

プロパティ 説明
Calculation 計算方法のモード、自動・手動の切り替え
Caller Visual Basic を呼び出した方法についての情報
Cursor ポインターの形状を設定
Dialogs すべての組み込みダイアログ ボックス
DisplayAlerts マクロの実行中に特定の警告やメッセージの表示を制御
EnableEvents 指定されたオブジェクトに対してイベントの発生を制御
FileDialog ファイル ダイアログ
Interactive キーボードやマウスからの入力を受け付けるかどうか制御
ScreenUpdating マクロの実行中に画面表示の更新を制御
StatusBar ステータス バーの文字列を設定

以下では重要かつ頻繁に使われるものだけを順に説明します。

ScreenUpdating(マクロVBAの高速化)

マクロVBAの実行中に画面表示の更新を止めて、マクロを高速に処理されるようにします。
マクロの先頭の方で、

Application.ScreenUpdating = False

こうすることで、マクロ実行中の画面表示が更新されないので、
その画面更新にかかる時間が不要になり、それだけ早く処理が終了します。
マクロが終了すると、自動的に画面表示が更新されますが、
マクロの最期で、

Application.ScreenUpdating = True

として、明示的に書いておく方が良いでしょう。

DisplayAlerts(警告停止)

マクロVBAの実行中に特定の警告やメッセージが表示される事があります。
例えば、シートを削除したりする場合です。
シート削除するときは、確認メッセージが表示されます。
この応答が出ると、マクロはそこで応答待ちになり、ボタンのクリックが必要になります。
このような、応答が必要なメッセージの表示を止める為に使用します。

Application.DisplayAlerts = False

これで、応答メッセージは表示されず、マクロは自動的に次に進むようになります。
マクロが終了すると、自動的に表示する状態になりますが、
マクロの最期で、

Application.DisplayAlerts = True

として、明示的に書いておく方が良いでしょう。

第66回.シートのコピー・移動・削除(Copy,Move,Delete)
シートをコピーや移動をしたり、また削除する場合の説明です、VBAでは、雛形シートをコピーして使ったり、不要なシートを削除することは頻繁にあります。シートのコピー・移動には、Worksheet.Copyメソッド、Worksheet.Moveメソッド これら、WorkSheetオブジェクトのメソッドを使用します。

Interactive(ユーザー操作の禁止)

キーボードやマウスからの入力の受け付けを停止できます。

Application.Interactive = False

とすると、Falseの間はキーボードやマウスの入力を受け付けなくなります。
ただし、マクロの終了で、自動的には戻りません。

必ず
Application.Interactive = True
として下さい。
忘れると、マクロ終了後も、キーボード操作が効かなくなってしまいます

Calculation(計算方法)

計算モードを変更します。

設定値はXlCalculation列挙です。

xlCalculationAutomatic 自動
xlCalculationManual 手動
xlCalculationSemiautomatic データテーブル以外の自動

Application.Calculation = xlCalculationManual

この記述をすることで、
これ以降、自動計算は行われなくなります。
この設定は、マクロ終了後も引き続き有効となりますので、

Application.Calculation = xlCalculationAutomatic

として自動計算に戻しておけば通常は良いでしょう。
もし、マクロ実行前の状態に戻す必要がある場合は、
事前に変数に退避しておいて、その変数を戻すようにしてください。

Dim appCalc As XlCalculation '型はVariantでも構いません。
appCalc = Application.Calculation
Application.Calculation = xlCalculationManual
'各種処理・・・
Application.Calculation = appCalc

StatusBar

ステータス バーに文字列を表示します。

Application.StatusBar = "文字列"

これで、ステータスバーに文字列が表示されます。
ステータス バーの文字列を消し既定値に戻すには、

Application.StatusBar = False
または、
Application.StatusBar = vbNullString

とすることで、それまでに表示していた文字列は消えます。

Cursor

マウスポインターの形状を設定します。
マクロVBA実行中にカーソルが頻繁にちらつくような場合は、この設定により処理速度が向上します。

設定値

xlDefault 標準のポインター
xlIBeam I 字型ポインター
xlNorthwestArrow 矢印型ポインター
xlWait 砂時計型ポインター

Application.Cursor = xlWait ← この時点でウエイトカーソルになります。
・・・
Application.Cursor = xlDefault ← 標準のカーソルに戻ります。

マクロが終了しても元に戻りませんので、必ず標準に戻しておきましょう。

その他

上記以外では、
Dialogs
Excelを操作していると、その時々で多種多様なダイアログが表示されます。マクロVBAでは、Excelの全ての組み込みダイアログを使用することが出来ます。どのようなダイアログがあるか一覧を紹介しつつ、VBAでのダイアログの使い方を解説します。
FileDialog
VBAでファイルを指定するダイアログを扱うには、すでに紹介したGetOpenFilenameやGetSaveAsFilenameがありますが、さらに、今回紹介する、FileDialogオブジェクト こちらも使用することができ、GetOpenFilenameやGetSaveAsFilenameにはない便利な機能が提供されています。
Caller
メニューのシートを作成して、ボタンを配置、そしてボタンにより指定シートに移動する、よくありますが、ボタン一つずつに別々(移動先のシート毎に)のマクロを作成するのは面倒です、そこで、一つのマクロで済ませる方法の紹介です。このVBAなら、どのボタンでもボタンのテキストと同一のシートに移動出来ます。
EnableEvents
マクロVBAの開始時および終了時に指定した方が良いApplicationのプロパティの開設です。特に重要なもの、マクロVBAの処理速度に関係するものを紹介します。Applicationのプロパティの詳細については以下をご覧ください。
このあたりも押さえておくべきプロパティになります。
これについては、今後個別に紹介します。


以下も参考にしてください。
マクロの開始・終了(Applicationのプロパティ)

マクロVBAの開始時および終了時に指定した方が良いApplicationのプロパティの開設です。特に重要なもの、マクロVBAの処理速度に関係するものを紹介します。Applicationのプロパティの詳細については以下をご覧ください。



同じテーマ「マクロVBA入門」の記事

第54回.Windowsオブジェクト
第55回.Worksheetオブジェクト
第56回.Rangeオブジェクト(RangeとCells)
第57回.Applicationのプロパティ(マクロ高速化と警告停止等)
第58回.コレクションとは(Collection)
第59回.コレクション処理(For Each)
第60回.エラー処理(On Error)
第61回.「On Error GoTo」と「Exit Sub」
第62回.「On Error Resume Next」とErrオブジェクト
第63回.ブックを開く(Open,Add)
第64回.ブックを閉じる・保存(Close,Save,SaveAs)


新着記事NEW ・・・新着記事一覧を見る

VBA100本ノック 37本目:グラフの色設定|VBA練習問題(12月1日)
VBA100本ノック 36本目:列の並べ替え|VBA練習問題(12月1日)
VBA100本ノック 35本目:条件付き書式|VBA練習問題(11月29日)
VBA100本ノック 34本目:配列の左右回転|VBA練習問題(11月28日)
VBA100本ノック 33本目:マクロ記録の改修|VBA練習問題(11月26日)
VBA100本ノック 32本目:Excel終了とテキストファイル出力|VBA練習問題(11月25日)
VBA100本ノック 31本目:入力規則|VBA練習問題(11月24日)
将棋とプログラミングについて~そこには型がある~|エクセル雑感(11月22日)
VBA100本ノック 30本目:名札作成(段組み)|VBA練習問題(11月22日)
VBA100本ノック 29本目:画像の挿入|VBA練習問題(11月21日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.マクロって何?VBAって何?|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ