とある総務の備忘録

ただの備忘録です。PC,Excelの使い方等。覚えた事をすぐに忘れるのでBlogで記録している。

特定の文字が、指定の列に入力されたらメッセージを出す

A列に「特定の文字」が入力されたらメッセージを出す場合。(2022/06訂正)

 

ThisWorkbookに記述する場合

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 If Sh.Name = "Sheet1" Then
  If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
   Application.EnableEvents = False
    If Target.Value = "特定の文字" Then MsgBox "表示したい文字"
   Application.EnableEvents = True
  End If
End Sub

 

 

シートモジュールに記述する場合

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim myrange As Range
  On Error GoTo Error1
  Set myrange = Intersect(Columns("A"), Target)
   If Not myrange Is Nothing Then
    If myrange.Value = "特定の文字" Then
    MsgBox "表示したい文字"
   End If
   End If

  Error1: Exit Sub
End Sub