![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
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
![「こんにちは。Excelのことで教えてくだ」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/187973_6513bd48ccffa/M.jpg)
No.6
- 回答日時:
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
![「こんにちは。Excelのことで教えてくだ」の回答画像6](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/9/187973_6513c68ad8d2c/M.jpg)
No.5
- 回答日時:
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
![「こんにちは。Excelのことで教えてくだ」の回答画像5](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/1/187973_6513c0a29aab1/M.jpg)
No.4
- 回答日時:
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
![「こんにちは。Excelのことで教えてくだ」の回答画像4](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/8/187973_6513bfbfaef98/M.jpg)
No.3
- 回答日時:
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
![「こんにちは。Excelのことで教えてくだ」の回答画像3](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/187973_6513be70d9f26/M.jpg)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCELでリターンキーが押されたらそのセルに特定の文字を表示したいのですが。 2 2022/08/07 12:58
- Excel(エクセル) エクセル初心者 3 2022/02/05 18:05
- Excel(エクセル) セルに入力した小文字アルファベット、数字を大文字表示させるには? 3 2022/07/13 10:01
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Excel(エクセル) エクセル セルに文字を入力したら別のセルに入力した時間が表示されるようにしたい 3 2023/10/19 03:42
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/06/15 14:11
- Excel(エクセル) 複数のセルの入力文字数の合計の文字数制限のポップアップ 2 2023/09/01 17:31
- Excel(エクセル) エクセルの数値が正しく入力されない 6 2021/11/19 14:06
- Excel(エクセル) Excelで、小さいサイズの文字だけ削除したい 4 2021/11/09 03:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルVBA ブックを閉じる前...
-
シートを保護しても入力規則を...
-
エクセルでセルにポインタする...
-
エクセルでセルのコメントが消...
-
カンマで区切った数値をCOU...
-
【Excel】ドロップダウンリスト...
-
エクセル逆三角マークで選択項...
-
Excel 自動的に半角英数になり...
-
エクセルで負数の最大値を求めたい
-
エクセルで電話番号から市内局...
-
入力規則の入力時メッセージの...
-
エクセル 入力規則のリストボ...
-
エクセルで、入力できる箇所を...
-
EXCEL 画面のスクロール固定
-
エクセルのスクロールバーが異常
-
エクセルVBA ユーザーフォーム...
-
エクセルで、セルをクリックす...
-
入力規則をブック全体にかける...
-
エクセルで、入力制限(プルダ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセル逆三角マークで選択項...
-
エクセルでセルにポインタする...
-
エクセルVBA ブックを閉じる前...
-
エクセルでセルのコメントが消...
-
エクセル 入力規則のリストボ...
-
シートを保護しても入力規則を...
-
エクセルの入力規則で作ったリ...
-
【Excel】ドロップダウンリスト...
-
エクセルの「入力規則」のプル...
-
入力規則の入力時メッセージの...
-
Excel 自動的に半角英数になり...
-
ドロップダウンリスト(INDIREC...
-
エクセルで、入力できる箇所を...
-
エクセルで電話番号から市内局...
-
エクセルVBA ユーザーフォーム...
-
カンマで区切った数値をCOU...
-
Excelでセルに名前を定義したい...
-
Excelで同じセルに入力し エン...
-
入力規則をブック全体にかける...
おすすめ情報