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
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
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
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
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
お探しの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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
この場合に使用するエクセルの関数を教えてください。
Excel(エクセル)
-
Excelで、改行がある場合の条件式(関数)の書き方を教えてください
Excel(エクセル)
-
-
4
エクセル 関数について
Excel(エクセル)
-
5
次のような関数が作りたく、どなたかご教示いただけますでしょうか。 *****************
Excel(エクセル)
-
6
Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。
Excel(エクセル)
-
7
数字をコンマで区切った文字列の集計のマクロの修正
Excel(エクセル)
-
8
倍数の求め方? 教えてほしい。
Excel(エクセル)
-
9
B1にある文言がA1に含まれている場合の判定方法について
Excel(エクセル)
-
10
対応するExcelの計算式はありますか?
Excel(エクセル)
-
11
エクセル 関数
Excel(エクセル)
-
12
セル内の数式をVBAで書くと
Excel(エクセル)
-
13
Excelについて質問です。
Excel(エクセル)
-
14
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
15
エクセルの関数について教えてください
Excel(エクセル)
-
16
エクセル 数値の10を10月と認識するにはどうすればいいですが?
Excel(エクセル)
-
17
エクセルの数式で教えてください。
Excel(エクセル)
-
18
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
19
エクセルで⑤番の操作が分かりません。どういう関数が良いんですか?
Excel(エクセル)
-
20
エクセルの関数でわからないことあるのでコード付きで教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルでセルのコメントが消...
-
エクセルでセルにポインタする...
-
エクセル逆三角マークで選択項...
-
エクセルVBA ブックを閉じる前...
-
ドロップダウンリスト(INDIREC...
-
シートを保護しても入力規則を...
-
エクセル 入力規則のリストボ...
-
エクセルの入力規則で作ったリ...
-
入力規則の入力時メッセージの...
-
【Excel】ドロップダウンリスト...
-
エクセルで負数の最大値を求めたい
-
入力規則をブック全体にかける...
-
エクセルで。
-
Excel 自動的に半角英数になり...
-
エクセルVBA ユーザーフォーム...
-
エクセルで電話番号から市内局...
-
エクセルのセルの手入力を禁止。
-
Excelでセルにデータを表示(右...
-
エクセルで、セルをクリックす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセル逆三角マークで選択項...
-
エクセルでセルにポインタする...
-
シートを保護しても入力規則を...
-
エクセルVBA ブックを閉じる前...
-
エクセル 入力規則のリストボ...
-
【Excel】ドロップダウンリスト...
-
エクセルでセルのコメントが消...
-
Excel 自動的に半角英数になり...
-
エクセルの入力規則で作ったリ...
-
入力規則の入力時メッセージの...
-
Excelでセルに名前を定義したい...
-
エクセルで、入力できる箇所を...
-
ドロップダウンリスト(INDIREC...
-
入力規則をブック全体にかける...
-
エクセルで電話番号から市内局...
-
エクセルVBA ユーザーフォーム...
-
EXCEL:入力規則の「リスト」は...
-
Excelで同じセルに入力し エン...
-
エクセルで、セルをクリックす...
おすすめ情報