[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『リストボックス連動』(KISS)
いつも大変お世話になっております
ご教授頂ければ幸いです
ユーザーフォームに
ListBobを作りまして
下記の様に作業させたいのですが
ListBox3で選択した行の値のを元に
ListBox4に同じ行のC列
ListBox5に同じ行のJ列の値を還すには
どの様に組めばいいのでしょうか?
< 使用 Excel:Excel2010、使用 OS:Windows7 >
> ListBox3で選択した行の値のを元に > ListBox4に同じ行のC列 > ListBox5に同じ行のJ列の値を還すには
質問がよく分かりません。 たとえばですが、 ListBox3,4,5 に 下のような List3,4,5 がリストされていたとして ListBox3 の「003」が選択されたら、 ListBox4 の 「阿部」 ListBox5 の 「あべ」 を選択するのなら、ListBox3の「003」が選択された時の.ListIndex は 2 になっています から、ListBox4,ListBox5 ともに ListIndex = 2 のリストを選択すればいいのですけど。
List3 List4 List5 001 青木 あおき 002 阿久津 あくつ 003 阿部 あべ 004 荒井 あらい 005 新井 あらい 006 荒川 あらかわ 007 飯塚 いいづか 008 池田 いけだ 009 石井 いしい 010 石川 いしかわ
(kanabun) 2014/08/11(月) 19:43
お手数かけて申し訳ございませんが
よろしくお願いたします
(kiss) 2014/08/11(月) 21:07
> 指摘の通りでございます
あ、そうなんですか... ちょっと意外な感じ(?) では、Worksheets(1) の ListBox3が [A1:A10]で ListBox4 が その行範囲のC列、 ListBox5 がその行範囲の J列でリストしてあるとき、 ListBox3でクリックがあったら ListBox4,5の選択行をシンクロさせる サンプルです。
'----------------------------------------------------------- Private Sub UserForm_Initialize() Dim r As Range Set r = Worksheets(1).Range("A1:A10") ListBox3.List = r.Value 'A列 ListBox4.List = r.Offset(, 2).Value 'C列 ListBox5.List = r.Offset(, 9).Value 'J列
End Sub
Private Sub ListBox3_Click() Dim idx As Long idx = ListBox3.ListIndex ListBox4.ListIndex = idx ListBox5.ListIndex = idx
End Sub
(kanabun) 2014/08/11(月) 22:40 23:08(サンプル修正)
ご連絡遅くなりすいませんでした
夏季休暇で覗く暇がなかったものでして
有難う御座いました
(KISS) 2014/08/19(火) 13:38
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.