Excel VBA 入力規則にあるエラーメッセージのチェックを外す

メモ

• 選択されたセルについて「無効なデータが入力されたらエラー メッセージを表示する」のチェックを外す
• 選択されたセルについて「無効なデータが入力されたときに表示するエラー メッセージ」の「スタイル」を「情報」に変更する

使い捨てマクロ

' Excel 2019, Windows 11

Option Explicit

Public Sub 入力規則エラー_表示しない()
  ' 選択されたセルについて
  ' 「無効なデータが入力されたらエラー メッセージを表示する」の
  ' チェックを外す

  Dim cell As Excel.Range

  On Error Resume Next

  For Each cell In Excel.Application.ActiveWindow.RangeSelection
    cell.Validation.ShowError = False
  Next

End Sub

Public Sub 入力規則エラー_スタイルを情報に変更()
  ' 選択されたセルについて
  ' 「無効なデータが入力されたときに表示するエラー メッセージ」の
  ' 「スタイル」を「情報」に変更する

  Dim app As Excel.Application
  Dim wnd As Excel.Window
  Dim rng As Excel.Range
  Dim cell As Excel.Range
  Dim vld As Excel.Validation

  Set app = Excel.Application
  Set wnd = app.ActiveWindow
  Set rng = wnd.RangeSelection

  On Error Resume Next

  For Each cell In rng.Cells
    Set vld = cell.Validation
    vld.Modify AlertStyle:=Excel.XlDVAlertStyle.xlValidAlertInformation
  Next

End Sub