Excel vba コンボボックス 入力 選択 表示

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

コンボボックスで選択した値をすぐに任意のセルへ反映させたい時があると思います。
今回はコンボボックスに入力または選択した値をセルに表示させたいと思います。

コンボボックスに選択リストを追加する手順は、
コンボボックス ActiveX コントロールを使ってみた!参照

完成イメージ
リストから選択した場合

直接入力した場合

以下ソース
Private Sub ComboBox1_Change()
Cells(1, 1) = ComboBox1.Value
End Sub


Private Sub ComboBox1_DropButtonClick()
‘項目をクリア
ComboBox1.List = Array()
‘項目を追加
ComboBox1.AddItem “”
ComboBox1.AddItem “桂三枝”
ComboBox1.AddItem “桂文珍”
ComboBox1.AddItem “桂枝雀”
ComboBox1.AddItem “桂米朝”
End Sub

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

SNSでもご購読できます。

コメントを残す

*

CAPTCHA