[[20140811180952]]　『リストボックス連動』（KISS）　ページの最後に飛ぶ

『リストボックス連動』（KISS）

いつも大変お世話になっております
ご教授頂ければ幸いです
ユーザーフォームに
ListBobを作りまして

下記の様に作業させたいのですが

ListBox3で選択した行の値のを元に
ListBox４に同じ行のC列
ListBox５に同じ行のJ列の値を還すには
どの様に組めばいいのでしょうか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 > ListBox3で選択した行の値のを元に 
 > ListBox４に同じ行のC列 
 > ListBox５に同じ行の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

kanabun様
説明が下手で申し訳ございません
指摘の通りでございます

お手数かけて申し訳ございませんが
よろしくお願いたします
（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(サンプル修正)

kanabunさま

ご連絡遅くなりすいませんでした
夏季休暇で覗く暇がなかったものでして

有難う御座いました
（KISS） 2014/08/19(火) 13:38

コメント返信：

[ 一覧(最新更新順) ]

[[20140811180952]] 『リストボックス連動』（KISS） ページの最後に飛ぶ

[[20140811180952]]　『リストボックス連動』（KISS）　ページの最後に飛ぶ