こんにちは。Excelのことで教えてください。特定のセルへの入力時に、ある特定の文字の入力ができない

こんにちは。Excelのことで教えてください。特定のセルへの入力時に、ある特定の文字の入力ができないように制御するということは可能でしょうか。
例えば、「あ」という文字を入れようとしたら入力できませんというコーションのようなものを出せればなお良いのですが。ご教示いただきますよう、お願いします。

No.2 ベストアンサー 回答者： kigoshi 回答日時： 2023/09/27 14:30

1）禁則　という名前のシートを作ります。

2）禁則シートのA1セルから下へ入力できない文字を入れます。
3）禁則シートのB1セルに「特定のセル」の範囲を入力します。
4）入力するシートに戻って、シート名を右クリック→［コードの表示］
5）右側のエディタエリアに下記コードを貼りつけ。

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Cells(Target.Row, Target.Column), Range(Sheets("禁則").Cells(1, 2).Value)) Is Nothing Then
Exit Sub
End If
Dim kRow As Integer
kRow = 0
Do Until Sheets("禁則").Cells(kRow + 1, 1).Value = ""
kRow = kRow + 1
If InStr(Target.Value, Sheets("禁則").Cells(kRow, 1).Value) > 0 Then
MsgBox "［" & Sheets("禁則").Cells(kRow, 1).Value & "］　は入力できない文字です", Buttons:=vbExclamation
Target.Value = ""
Exit Sub
End If
Loop
End Sub

No.7 回答者： kigoshi 回答日時： 2023/09/27 16:20

No.2～No.6です。

添付図の反映が遅かったのでなんども同じ回答を入れてしまいました。
申し訳ありません。

No.6 回答者： kigoshi 回答日時： 2023/09/27 15:07

1）禁則　という名前のシートを作ります

2）禁則シートのA1セルから下へ入力してはいけない文字を入力します。
3）禁則シートのB1セルへ「特定のセル」の範囲を設定します。
4）入力するシートに戻り、シート名タブを右クリック→［コードの表示］
5）右側のエディタエリアに下記コードを貼りつけます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Cells(Target.Row, Target.Column), Range(Sheets("禁則").Cells(1, 2).Value)) Is Nothing Then
Exit Sub
End If
Dim kRow As Integer
kRow = 0
Do Until Sheets("禁則").Cells(kRow + 1, 1).Value = ""
kRow = kRow + 1
If InStr(Target.Value, Sheets("禁則").Cells(kRow, 1).Value) > 0 Then
MsgBox "［" & Sheets("禁則").Cells(kRow, 1).Value & "］　は入力できない文字です", Buttons:=vbExclamation
Target.Value = ""
Exit Sub
End If
Loop
End Sub

No.5 回答者： kigoshi 回答日時： 2023/09/27 14:42

1）禁則　という名前のシートを作ります

2）禁則シートのA1セルから下へ入力してはいけない文字を入力します。
3）禁則シートのB1セルへ「特定のセル」の範囲を設定します。
4）入力するシートに戻り、シート名タブを右クリック→［コードの表示］
5）右側のエディタエリアに下記コードを貼りつけます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Cells(Target.Row, Target.Column), Range(Sheets("禁則").Cells(1, 2).Value)) Is Nothing Then
Exit Sub
End If
Dim kRow As Integer
kRow = 0
Do Until Sheets("禁則").Cells(kRow + 1, 1).Value = ""
kRow = kRow + 1
If InStr(Target.Value, Sheets("禁則").Cells(kRow, 1).Value) > 0 Then
MsgBox "［" & Sheets("禁則").Cells(kRow, 1).Value & "］　は入力できない文字です", Buttons:=vbExclamation
Target.Value = ""
Exit Sub
End If
Loop
End Sub

No.4 回答者： kigoshi 回答日時： 2023/09/27 14:38

1）禁則　という名前のシートを作ります

2）禁則シートのA1セルから下へ入力してはいけない文字を入力します。
3）禁則シートのB1セルへ「特定のセル」の範囲を設定します。
4）入力するシートに戻り、シート名タブを右クリック→［コードの表示］
5）右側のエディタエリアに下記コードを貼りつけます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Cells(Target.Row, Target.Column), Range(Sheets("禁則").Cells(1, 2).Value)) Is Nothing Then
Exit Sub
End If
Dim kRow As Integer
kRow = 0
Do Until Sheets("禁則").Cells(kRow + 1, 1).Value = ""
kRow = kRow + 1
If InStr(Target.Value, Sheets("禁則").Cells(kRow, 1).Value) > 0 Then
MsgBox "［" & Sheets("禁則").Cells(kRow, 1).Value & "］　は入力できない文字です", Buttons:=vbExclamation
Target.Value = ""
Exit Sub
End If
Loop
End Sub

No.3 回答者： kigoshi 回答日時： 2023/09/27 14:36

1）禁則　という名前のシートを作ります

2）禁則シートのA1セルから下へ入力してはいけない文字を入力します。
3）禁則シートのB1セルへ「特定のセル」の範囲を設定します。
4）入力するシートに戻り、シート名タブを右クリック→［コードの表示］
5）右側のエディタエリアに下記コードを貼りつけます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Cells(Target.Row, Target.Column), Range(Sheets("禁則").Cells(1, 2).Value)) Is Nothing Then
Exit Sub
End If
Dim kRow As Integer
kRow = 0
Do Until Sheets("禁則").Cells(kRow + 1, 1).Value = ""
kRow = kRow + 1
If InStr(Target.Value, Sheets("禁則").Cells(kRow, 1).Value) > 0 Then
MsgBox "［" & Sheets("禁則").Cells(kRow, 1).Value & "］　は入力できない文字です", Buttons:=vbExclamation
Target.Value = ""
Exit Sub
End If
Loop
End Sub

No.1 回答者： 耕四郎 回答日時： 2023/09/27 12:45

メニューのデータの所からデータの入力規則で設定できますね。