こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel:コンボボックスの値をセルにセットする場合

Excel2000を使っています。
コンボボックスで選択した内容をアクティブなセルに入力するために、以下のようなコードを作成しました。
(ユーザフォームにコンボボックスを1つ作成しています)
------------------------------------------
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
For I = 0 To 10
ComboBox1.AddItem Worksheets("元ネタ").Cells(I + 2,1).Value
ComboBox1.List(I, 1) = Worksheets("元ネタ").Cells(I + 2,2).Value
Next
End Sub
------------------------------------------
Private Sub ComboBox1_Change()
Worksheets("入力用").Activate
ActiveCell.Value = ComboBox1.Text
End Sub
------------------------------------------
このコンボボックスは、2列を表示させています。最後にセルに値を入力すると、今のコードでは1列目の値が入りますが、実際には2列目の値だけを入れたいんです。でもコンボボックスの選択時は、先頭列に1列目の値を表示させたいんです。

どうすれば、2列目の値をアクティブセルに入力できるでしょうか?

投稿日時 - 2005-12-07 19:32:50

QNo.1825519

すぐに回答ほしいです

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

こんにちは。

BoundColmnプロパティを2にすればValueプロパティに2列目の値が入ります。

投稿日時 - 2005-12-07 19:48:01

お礼

ありがとうございます! あっという間に解決しました☆

投稿日時 - 2005-12-07 19:51:50

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問