Ｅｘｃｅｌでこんな機能あります？

質問

(1)セルＡ１に「○×」の選択肢を設けプルダウンを常に表示させておく方法。
　（入力規制で設定するとセルをクリックしないとプルダウンが出てこないので他の方法で）
(2)セルＡ１が空欄の時にエラーメッセージ（警告）を表示させる方法。
(3)セルＡ１が×の時、自動的にセルＢのパターンを黒にする方法。
　（条件付書式だとセルＡ１自身の設定しかできないので他の方法で）

以上三点についてご教授下さいm(_ _)m
セルＡ１で○×の選択を必ずする！×の人は以降の入力が不要である！
・・・と言う事を視覚で訴えられる方法でしたら、他の方法でも結構です。

回答No.1

mshr1962 · ベストアンサー

(1)ツールバーのフォームにコンボボックスがありますが
これだと必要な数だけ設定する必要があります。
(2)それこそ入力規則で行えばいいのでは？
「空白を無視する」のチェックをはずせばいいと思いますが．．．
初期値を設定しておけば、空白にするとエラーメッセージが出るという風に．．．
もしくは条件付き書式で○×以外のときにセルを塗りつぶす。
(3)条件付き書式で
「数式が」「=$A$1="×"」で黒の塗りつぶしでできます。

お礼

ありがとうございます。
色々と試してみた結果、新たな案が浮かびました。
補足をご一読いただければと思います。

補足

≪追加≫
セルＡ１が
(1)○の時　→　セルＢ１に「入力項目」と表示
(2)×の時　→　　 〃　 は空欄
(3)空欄時　→　　 〃　 に「入力必須」と表示

させるにはどうしたら良いでしょうか？

回答No.4

mshr1962

#1のmshr1962です。
補足の件ですが、単純な数式ですね。B1に
=IF(A1="○","入力項目",IF(A1="×","","入力必須"))
IF文をネストさせればできます。

お礼

ありがとうございました。
大変助かりました。

回答No.3

jindon

少々長くなります。

1) シート上にactiveXコントロールのリストボックスを配置します。
方法：
メニューバーの表示->ツールバー->コントロールツールボックスを出す。
三角定規のアイコンをクリックしてデザインモードにする。
リストボックス（アイコンにカーソルをのせるとコントロールの名前が表示される）を選択して、適当な位置に配置する。終了したら、三角定規をクリックしてデザインモードを終了する。

2)該当シートのシートタブ（シートの名前の部分）を右クリックして、コードの表示を選択。

右側の空白部分に下記のコードを貼り付け、Xをクリックして画面を閉じる。

Private Sub ListBox1_Click()
With Me.ListBox1
Select Case .Value
Case Is = "×"
Me.Range("b:b").Interior.ColorIndex = 1
MsgBox "以降の入力は必要ありません"
Case Else
Me.Range("b:b").Interior.ColorIndex = 0
End Select
End With
End Sub

Private Sub Worksheet_Activate()
Me.Range("b:b").Interior.ColorIndex = 0
With Me.ListBox1
.Clear
.AddItem "○"
.AddItem "×"
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNull(Me.ListBox1.Value) Then
MsgBox "リストから○、または×を選択しなさい"
End If
End Sub

この上まで！
B列全てを黒くするので、所定の範囲があるのであれば
全ての
Me.Range("b:b")
の部分を変更する。

例　B1:B20
Me.Range("b1:b20")

お礼

ありがとうございます。
今回は他の回答にある、手頃な方法で解決できました！

回答No.2

KenKen_SP

こんにちは。

＞(1)…プルダウンを常に表示させておく方法
＞(2)セルＡ１が空欄の時にエラーメッセージ（警告）…

難しく考えず、例えばIF判定式によってB1セルなどに入力を促すメッセージを表示するのはどうですか？
＝IF(OR(A1="○",A1="×"),"","必須項目です。入力して下さい")

メッセージは赤色の太字を使うなどして、目立つようにします。

＞(3)セルＡ１が×の時、自動的にセルＢのパターンを黒にする方法。

セルBに条件付書式を設定します。条件付書式の条件を「数式が」に変更し、計算式に =A1="" とすればOKです。

＞…×の人は以降の入力が不要である！・・・と言う事を視覚で訴えられる方法

以降の入力セルに(3)と同様、A1セルが×の時にグレーで塗りつぶす条件付書式を設定するのはどうですか？

お礼

ありがとうございます。
なるほど！数式にしてＩＦ関数を活用するんですね！！