本ページには広告が含まれています。
Contents
マクロの実行中に特定の警告やメッセージのダイアログを表示/非表示を制御します。値の取得・設定が可能なブール型で既定値はTrueです。
- 構文
- Boolean = Application.DisplayAlerts
- Application.DisplayAlerts = Boolean
- 引数
- 戻り値
Application オブジェクトを返すメソッド・プロパティ
- Application.DisplayAlerts プロパティ
- Microsoft Excelアプリケーションを表すApplication オブジェクトを返します。
使い方
保存していないブックを閉じようとしたときや、シートを削除するときに表示される確認のダイアログを制御できます。
警告・メッセージを表示させます。
Application.DisplayAlerts = TRUE警告・メッセージを非表示にします。
Application.DisplayAlerts = FALSE以下は、シートを削除するときの確認メッセージを非表示にできます。処理が終わったらDisplayAlertsにTrueを代入して元に戻しておきます。この代入を怠ると通常時でもダイアログが表示されなくなるので注意が必要です。
WITH Excel
.Application.DisplayAlerts = FALSE // 警告を非表示
.ActiveSheet.Delete // 警告を出さずにシートを削除
.Application.DisplayAlerts = TRUE // 警告を再度表示
ENDWITHプログラム実行例
セルに文字列を入力（A1形式）
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)
Excel.Workbooks.Add()
Excel.Range("A1").Value = "UWSC"
// Excel.DisplayAlerts = FALSE
// Excel.Quit使用関数
解説
セルに文字列を入力（R1C1形式）
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)
Excel.Workbooks.Add()
Excel.Cells(1, 1).Value = "UWSC"
// Excel.DisplayAlerts = FALSE
// Excel.Quit使用関数
解説
アクティブセルに文字列を入力する
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()
DIM Range = Excel.Application.ActiveCell
SLEEP(1.000)
Range.Value = "abc"
SLEEP(3.000)
Excel.Application.DisplayAlerts = FALSE
Excel.Quit使用関数
アクティブシート名を取得する
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()
DIM Worksheet = Excel.Application.ActiveSheet
PRINT Worksheet.Name
Excel.Application.DisplayAlerts = FALSE
Excel.Quit使用関数
アクティブプリンターの名前を取得
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
PRINT Excel.Application.ActivePrinter
Excel.Application.DisplayAlerts = FALSE
Excel.Quit結果
Brother DCP-J963N Printer on Ne03:使用関数
スタートアップフォルダのパスを取得
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
PRINT Excel.Application.StartupPath
//Excel.Application.DisplayAlerts = FALSE
//Excel.Quit結果
C:\Users\akita\AppData\Roaming\Microsoft\Excel\XLSTART使用関数