VBA コンボボックスについて

Question

Excel2010のVBAにてマクロを作成しています。

#実現したいこと
コマンドボタンをクリックしたら、コンボボックスAにカーソルを当てる
これはどのように実装すればよろしいでしょうか？
ネットにてある程度検索いたしましたが、ヒットしませんでした。

Comments

[Zuishin]

ちなみにどうやって検索したら見つけられないのか興味あるので教えて下さい。

Answer 1

Excelでボタンやコンボボックスを扱うといっても
①ユーザーフォームに設置したボタンやコンボボックス
②シート上に設置したボタンやコンボボックス(フォームコントロール)
③シート上に設置したボタンやコンボボックス(ActiveXコントロール)
といった具合にいくつか種類があり、それぞれに扱い方が異なります。

---

①であれば、（m6uさんのアドバイスにあるとおり）ボタンのクリックイベントでコンボボックスにSetForcusしてあげればよいです。

Private Sub CommandButton1_Click()
    ComboBox1.SetFocus
End Sub

---

②の場合はボタンに割り当てたマクロ処理の中で目的のコンボボックスを探し、.Selectすることになります。

Sub ボタン1_Click()
    
    Dim shp As Shape
    
    '目的のオブジェクトを探す
    For Each shp In ActiveSheet.Shapes
        'オブジェクトの名前確認
        'MsgBox shp.Name
        '目的のコンボボックスなら選択する
        If shp.Name = "Drop Down 1" Then
            shp.Select
        End If
    Next
    
End Sub

---

③の場合はボタンのクリックイベントでコンボボックスをActivateすることになります。

Private Sub CommandButton1_Click()
    ComboBox1.Activate
End Sub

---

以上、参考になれば幸いです。

Answer 2

コマンドボタンのonClickイベントに、
コンボボックスA.SetFocus
とかでいいんでないかな。（未テスト）