2020-08-01から1ヶ月間の記事一覧
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 …
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 …