コンボボックスの自動更新について

コンボボックスの自動更新について

エクセルのＶＢＡで、ユーザーフォームを使用しています。
ユーザーフォームの中には「入力」ボタンとコンボボックスと
テキストボックスがあります。

コンボボックスは、「ＡＢＣＤＥＦ」と６つのリストがあります。

ユーザーフォーム起動時には、コンボボックスは空欄で
コンボボックスから、入力したい商品を選んで、入力ボタンを押して
コンボボックスとテキストボックスの内容を入力・コンボボックスを
空欄に戻しています。

これを、「Ａ」を選んで入力ボタンをおしたら「Ｂ」が選ばれる。
「Ｂ」を選んで入力ボタンをおしたら「Ｃ」が選ばれるといったように
コンボボックスに表示されるリストを自動で更新することは
できないでしょうか？

Select case などを利用して組み立てようとしたのですが、
数時間以上調べても出来ません。

教えていただけると助かります。

No.1 ベストアンサー 回答者： nag0720 回答日時： 2010/04/23 17:20

＞コンボボックスから、入力したい商品を選んで、入力ボタンを押して

＞コンボボックスとテキストボックスの内容を入力・コンボボックスを
＞空欄に戻しています。

TextBox1.Text = ComboBox1.Text
ComboBox1.Text = ""
としているのでしょうか？


＞これを、「Ａ」を選んで入力ボタンをおしたら「Ｂ」が選ばれる。
＞「Ｂ」を選んで入力ボタンをおしたら「Ｃ」が選ばれるといったように

ComboBox1.Text = ""
の部分を次のようにしてみてはどうですか。

If ComboBox1.ListIndex < ComboBox1.ListCount - 1 Then
ComboBox1.Text = ComboBox1.List(ComboBox1.ListIndex + 1)
Else
ComboBox1.Text = ComboBox1.List(0)
End If