Excel VBA ListBoxについて

質問

お世話になります。

Excelで以下のようなフォーム画面を作成しております。
１．フォーム画面には、リストボックス、テキストボックス、登録ボタンを設定
２．リストボックスには、Sheet１のデータが表示される。
３．リストボックスのレコードを選択すると、選択した値がテキストボックスに表示される。
４．登録ボタンをクリックすると、テキストボックスのデータが、Sheet１に反映される。

今1～３まではできましたが、４で悩んでおります。

テキストボックスの値を取得してセルに反映させようと以下のコードを書きました。

'リストボックスで選択したレコード数
ListNo = Me.ListBox1.ListIndex

'TextBox1の値を、Sheet1のセルにセット
Sheets("sheet1").Cells(ListNo, 1).Value = Me.TextBox1.Value　

これを実行すると、何故かここから３のリストボックスのレコードをクリックしたイベントを呼びます。

Private Sub ListBox1_Click()

クリックしてもいないのですが、Private Sub ListBox1_Click() を呼ばないようにしたいので、
ListBoxをEnableプロパティをfalseにしても、呼んでました。

呼びにいかない方法をご教授いただけますでしょうか。

よろしくお願いいたします。

回答No.1

DreamyCat · ベストアンサー

Worksheet_SelectionChange
Worksheet_Change
このどちらかの中で呼び出していませんか。
あるいは呼び出していなくても、
rowsourceでデータを表示させていると
このセル範囲の値が変わったときに上記のイベントが２回ずつ呼び出されます。
これが関係していないでしょうか。

お礼

DreamyCatさん
ご回答ありがとうございます。

ご指摘のとおり、rowsourceでデータを表示しておりました。
rowsourceは止めて、Listプロパティにセットしてみたところ、解決できました。

ありがとうございました。

回答No.2

imogasi

何を悩んでいるのかという感じ。
LISTBOXのアイテム選択クリックでシートのセルにセットする方法もあるが、テキストボックスにセットしたいなら
（１）LISTBOXのアイテム選択クリックで
（２）ボタンクリックでテキストボックスの値をシートのセルにセットする（回りくどい）方法をやるなら
H1：H3で
aaa
bbb
ccc
をデータとして入れておく。
---
Listbox1のプロパティで
ROWSORCEでH1:H3を指定。
フォームのコードで
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A1") = TextBox1.Text
End Sub
と
Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.Text
End Sub
これでリストボックスを選択して、ボタンをクリックすると「A1セルに選択したアイテムがセットされる。
ーー
ただし、質問文は、初心者であるため、やりたいことが十分表現できてなくて、さらに何かしたいのではないかと推測する。
いかにも練習問題で勉強といった内容で、実際に、実務などで使わないでしょう。
もともとエクセルには、入力規則で、リスト方式がありそちらを使うほうが手軽。
＞クリックしてもいないのですが
以下は考える必要性がわからない。