コンボボックスの設定 【エクセル】

質問

エクセルのコンボボックスについてです。
コンボボックスのリストとして
赤
青
黄色
というリストをコンボボックスの‘入力範囲’に指定します。

コンボボックスの
‘コントロールの書式設定’→‘リンクするセル’
でセルを指定すると、赤を選んだとき　リンクさせたセルには
「１」とでますが、なぜ１と出るのか、というのと
私は「赤」と表示させたいのですが、そのやり方を教えて頂きたいです。

コンボボックスを初めて使うので初心者的な質問だと思いますが宜しくお願いします。

回答No.2

imogasi · ベストアンサー

この質問もあいまいな点あるのだが。
（１）データー入力規則ーリストー元の値のドロップダウンリスト
ガあるのだが知っていて使わないのか？
これだと質問のようなことはない。選択したドロップダウンの出るセルに文字が出る。
（２）シートやユーザーフォームにコンボボックスを貼り付けているのか
A。質問者はどうもフォームのコンボボックスを使っているらしい
（「入力範囲」という言葉から）
下記Bをお勧めします。
しかし現状のままだと別のセルに一旦数字を出して（J2とでも仮定して）赤白黄うお出したいセルに
=INDEX(H1:H3,J2)
と入れると良い。
H1:H3に赤、青、黄といれて置く（入力範囲）。
ーー
B.コントロールツールボックスのコンボぼっくすを使うと
FillListRangeに例えばH1:H3　　H1:H3に赤、青、黄といれ
LinkedCellを例えばD2にすれば、選択後出るには赤とでる。
ーー
＞「初心者的な」といいながら、一番難しい方法でやっているようだ。

お礼

言葉が足りませんでしたね。
（１）の方法は知っています。
今回は訳あってドロップダウンボタンを常に表示させたままの状態にしたかったので、あえてコンボボックスを利用しようかと。
いままで（１）しかやったことがなかったので「訳がわからん！」となったわけです。
確かに、そういう意味では一番難しい方法かもしれませんね。
丁寧な説明ありがとうございました。
大変勉強になりました。

回答No.3

Wendy02

こんにちは。

ふつうは、もう、フォームツール(Ver.5用）ではなくて、コントロールツール側のコンボボックスを使っていくのが良いのですが、あえて、そのまま使うと、以下のようなコードでよいかと思います。なお、フォームツールのマニュアルは、古本屋さんでも、なかなか見つかりません。

フォームのコンボボックスのコントロールを、マウスで右クリックすると、[マクロの登録]というのがありますから、[新規]をクリックして、以下の　Private Sub ドロップ1_Change()　(中身）～　End Sub　を、入れてくだされば、良いです。ただし、コントロールの書式設定の"リンクするセル" は、消すようにします。

Private Sub ドロップ1_Change() の、先頭のPrivate は、なるべく入れたほうがよいです。
これは、単独のマクロとして動かそうとしても、エラーが発生します。
----------------------------------------------------

Private Sub ドロップ1_Change()
Dim n As String
Const LINKCELL As String = "A1" 'リンクするセル

n = Application.Caller
With ActiveSheet.DropDowns(n)
　　Range(LINKCELL).Value = Range(.ListFillRange).Cells(.Value).Value
End With
End Sub

お礼

すごいですね・・・（汗）
はぁ～、大変為になりました。
本当に勉強になります。

細かくご説明いただきありがとうございました。

回答No.1

guchi_yama

数字が出るのは、
１，２，３が、
リスト化したデータの1行目、2行目、3行目(赤、青、黄）
となるので、その数字を元に、
A1をリンクセルとして
本当に表示させたいセルに下記の式を入れてください。
=IF(A1=1,"赤",IF(A1=2,"青",IF(A1=3,"黄","")

そうすれば、色の表示が出来ますよ。

お礼

数字が出るのは仕方がないとして、そこからリンクさせるのですね。
理解しました！