[[20070524135149]]　『ユーザーフォームのリストボックスで選択』（りんご）　ページの最後に飛ぶ

『ユーザーフォームのリストボックスで選択』（りんご）
どなたがご指導おねがいします。

今ユーザーフォームに連動している２つのリストを作りました。

リスト1からある項目を選択するとリスト２にその内容が表示されるのですが

そのリスト２で選択したものを特定のセルに表示させたいのですがどうしたら

よいのでしょうか？また、そのセルに表示させたあとはその下の

セルにまた次にリスト２で選択したものを表示したいのですが

簡易リストボックスのようにユーザーフォームにはLinkedcellという項目が

なくて。どうしたらよいのか困ってます。

よろしくおねがいします。

 もしかして　りー　さんですか？
 もしそうだったら、もとのスレッドで続けてください。
 (間違っていたら、ごめんなさい)
 (seiya)

りーさんと同じようなことをしていて
リーさんのレスを見て上のような状態のところまで
たどりつきました。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（りんご）

 Private Sub ListBox2_Click()
 If ListBox2.ListIndex = -1 Then Exit Sub
 If vbYes = MsgBox("データの転送",vbYesNo) Then
      With Sheets("ある特定のシート").Range("ある特定のセル")
           .Resize(2).Value = WorksheetFunction.Transpose(Array(ListBox1.Value, ListBox2.Value))
      End With
 End If
 End Sub
 (seiya)

コメント返信：

[ 一覧(最新更新順) ]

[[20070524135149]] 『ユーザーフォームのリストボックスで選択』（りんご） ページの最後に飛ぶ

[[20070524135149]]　『ユーザーフォームのリストボックスで選択』（りんご）　ページの最後に飛ぶ