Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29841 / 76732

←次へ　｜　前へ→


	【52165】Listboxのイベントプロシジャー

ハナ - 07/10/26(金) 10:08 -


	引用なし

	パスワード

いつもお世話になっています
Worksheetに配置したListboxにて、データを選択（クリック）すると
UserForm1を表示させるのですが、選択データを示す反転（青くなる）が
次のデータを選択しても残ります。
MultiSelectプロパティーは　0-fmMultiSelectSingleです
・Aデータ選択　Aデータ反転（青）UserForm1表示　　
・UserForm1　Unload　後　Listbox上Aデータ反転（青）

・Bデータ選択　Listbox上Aデータ反転（青）＆　Bデータ反転（青）　　　　　　　これが問題です。　UserForm1　Unload　後　Bデータのみ反転（青）
　に戻ります。

以下がシートモジュールに作成したListboxのイベントプロシジャーです。
Private Sub Lbox_1_Click()
　　Dim intListIdx As Integer　　　 'リストインデックス格納
　　Dim DATA_R As Range
　　Dim DATA() As String
　　'選択されたリストインデックスの取得
　　intListIdx = Lbox_1.ListIndex
　　Set DATA_R = Worksheets("WORK").Range("A" & (intListIdx + 2))
　　'
　　With UserForm1
　　　.TextBox1.Text = DATA_R.Value
　　　.TextBox2.Text = DATA_R.Offset(0, 1).Value
　　　.TextBox3.Text = DATA_R.Offset(0, 2).Value
　　　.TextBox4.Text = DATA_R.Offset(0, 3).Value
　　End With
　　UserForm1.Show
End Sub

自分なりに考えた原因としては、反転が移行する前にUserForm1に
制御が渡ってしまうためではないかと思うのですが。

・Bデータ選択でListbox上Aデータ(直前選択データ）の反転解消＆Bデータ反転　　UserForm1　Unload　後　Bデータのみ反転（青）

この状態にするために、どのような修正をすればよろしいでしょうか。
ご指導、宜しくお願いします。

0 hits

▼

【52165】Listboxのイベントプロシジャー ハナ 07/10/26(金) 10:08

≪