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

2010/04/23 06:39

このQ&Aのポイント

エクセルのＶＢＡで、ユーザーフォームを使用しています。ユーザーフォームの中には「入力」ボタンとコンボボックスとテキストボックスがあります。
コンボボックスは、「ＡＢＣＤＥＦ」と６つのリストがあります。ユーザーフォーム起動時には、コンボボックスは空欄で、コンボボックスから、入力したい商品を選んで、入力ボタンを押してコンボボックスとテキストボックスの内容を入力・コンボボックスを空欄に戻しています。
これを、「Ａ」を選んで入力ボタンをおしたら「Ｂ」が選ばれる。「Ｂ」を選んで入力ボタンをおしたら「Ｃ」が選ばれるといったようにコンボボックスに表示されるリストを自動で更新することはできないでしょうか？

magicpearl1109
お礼率0% (0/1)

オフィス系ソフト
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

nag0720
ベストアンサー率58% (1093/1860)

2010/04/23 17:20 回答No.1

＞コンボボックスから、入力したい商品を選んで、入力ボタンを押して＞コンボボックスとテキストボックスの内容を入力・コンボボックスを＞空欄に戻しています。 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