• ベストアンサー

エクセル リストボックスをボタンで選択するマクロ。

VBA初心者なので教えていただけるとありがたいです。 現在、sheet1にリストボックスを貼り付けています。 そのリストボックスで選択した値を、sheet2のA1セルに貼り付けるようなマクロを作ってみました。 リストボックスのリストは、下のような感じになっています。 空白 ああああ いいいい うううう これとは別にボタンを作成し、ボタンを押すとこのリストボックスの空白(一番上のリスト)を選択するようにしたいのですが、このようなことはできるのでしょうか? なぜこのようなことがしたいのかは、説明が長くなりそうなので省略させていただきます。 どなたか教えていただけるとありがたいです。

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

  • ベストアンサー
noname#187541
noname#187541
回答No.2

こんばんは。 リストの選択位置はListIndexプロパティで取得/設定出来ます。 Private Sub CommandButton1_Click() ListBox1.ListIndex = 0 End Sub このようになります。Indexは0から始まります。-1にすると選択解除になります。

rasyoh
質問者

お礼

もう1度、過去の質問等も参考にしながら勉強しなおしてみます。 的外れな質問をしてすみません、ありがとうございました。

rasyoh
質問者

補足

さっそくのご回答ありがとうございます。 NO.1さんにもお詫びしたのですが、自分が「リストボックス」と 「コンボボックス」を間違えているのに気づきました! 大変失礼しました。 ちなみに自分が使用しているコンボボックスは、コントロールツールボックスではなく、 フォームの方のコンボボックスを使用しています。(意味分かりにくくてすいません…) ボタンを押すとコンボボックスの先頭を選択することは、マクロでできるのでしょうか?

その他の回答 (1)

  • papayuka
  • ベストアンサー率45% (1388/3066)
回答No.1

コントロールツールボックスのListBoxなら Private Sub CommandButton1_Click()   Me.ListBox1.ListIndex = 0 End Sub

rasyoh
質問者

お礼

コンボボックスについてもう少し自分でも研究してみます。 間違いに気づかせていただきありがとうございました。

rasyoh
質問者

補足

せっかくお答えいただいたのに、たった今自分が「リストボックス」と 「コンボボックス」を間違えているのに気づきました! 大変失礼しました。 ちなみに自分が使用しているコンボボックスは、コントロールツールボックスではなく、 フォームの方のコンボボックスを使用しています。(意味分かりにくくてすいません…) ボタンを押すとコンボボックスの先頭を選択することは、マクロでできるのでしょうか?