エクセルの入力規制について

質問

エクセルで入力規制のリスト機能を使い、文字入力の手間を省きたいのですが、リストにない項目を入力したいときがあります。
入力規制なので、当たり前ですが、直接入力ができません。
なにかいい方法ないでしょうか。

できるかどうかわかりませんが、セルのB1に入力規制のリストを設定し、A1に「○」を入力した場合のみ、B2が入力規制になるとかいうのもありですが、もっと簡単にできないでしょうか。

回答No.2

onlyrom · ベストアンサー

こんばんは。

＞ストにない項目を入力したいときがあります。
＞入力規制なので、当たり前ですが、直接入力ができません。

出来ますが。。(^^;;;

入力規則ダイアログの「エラーメッセージ」タブをクリック
表示される画面の「不正なデータが入力されたらメッセージを表示する」のチェックを外す

これで、ドロップダウンリストからも選択できるし、任意のデータも入力できます。

以上です。

回答No.3

imogasi

入力規則ーリストで
（１）リストにないものを入力したい
（２）リストに入力と同時に自動的にリストに追加したい
（３）条件に関連付けて入力規則を設定したりしなかったりしたい。
（１）はエラーメッセジの「無効なデータが入力されたらエラーメッセージを表示する」の「Ｖ」をはずせばできます。
（２）はＶＢＡでも使わないと難しい。操作ＡＬＴ＋↓でも併用するとか。
（３）も回答が出ていますが、私がやるとうまくいかなかったので
ＶＢＡで考えてみました。
Ａ列が対象。
Ｃ１に「Ａ」の時だけ入力規則設定。
入力規則のリスト範囲は「氏名」と名前をつけている例です。
Ｓｈｅｅｔ１のシートモジュールのＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ
イベントに書きます（下記をコピペ）。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Range("C1") = "A" Then
Target.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=氏名"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = False
End With
Else
Target.Select
With Selection.Validation
.Delete
End With
End If
End If
End Sub
マクロの記録を少々手直ししたもの。

回答No.1

p-applepie

Excelのリストでは、指定されたリストからしか選択が出来なくなります。

>できるかどうかわかりませんが、セルのB1に入力規制のリストを
>設定し、A1に「○」を入力した場合のみ、B2が入力規制になる

これは可能です。
入力規則でリストを選び、リスト範囲に
=IF(A1="○",リスト範囲,)
と入れれば、○ではないときは任意の文字列を入力可能です。
リスト範囲の部分は環境に合わせて書き換えて下さい。