特定の文字が、指定の列に入力されたらメッセージを出す
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