エクセル マクロ コンボボックスリスト

質問

sheet1の場所でボタンクリックでフォーム表示。その中でコンボボックスリストを作成。
sheet3にデーターをA列に作りました。

１）フォームの中のコンボボックスをクリックしてリスト表示させた　い。マクロの記述を教えてください。
２）コンボボックスリストに表示した文字をsheet2に記録するボタンを作ったがマクロの記述を教えてください。

回答No.3

papayuka · ベストアンサー

> #2さん

ComboBox1.AddItem を Change で行うのは不適切だと思います。
ComboBox1の値が変更されるたびに ABC ABC と追加されますよ。

Private Sub UserForm_Initialize()
　　With ComboBox1
　　　　.AddItem "A"
　　　　.AddItem "B"
　　　　.AddItem "C"
　　End With
End Sub

Private Sub CommandButton1_Click()
Worksheets("Sheet3").Range("A65536"). _
End(xlUp).Offset(1, 0).Value = ComboBox1.Value
End Sub

お礼

教えてください。コンボボックスをクリックしてもリストが表示されません。どうしてですか？

回答No.2

m_boy

ご参考にどうぞ。
(1)Private Sub ComboBox1_Change()
　　　With ComboBox1
　　　　.AddItem "A"
　　　　.AddItem "B"
　　　　.AddItem "C"
　　End With
End Sub
(2)Private Sub CommandButton1_Click()
Range("A1").Value = ComboBox1.Value
End Sub

お礼

ありがとうございます。やってみます。

回答No.1

dodemoii

ネットで検索すると下記が参考になるのでは?
http://officetanaka.net/excel/function/tips/list.htm

他にもいろいろテクニックが出ています。

参考URL：

http://officetanaka.net/index.stm

お礼

ありがとうございました。参考にします。