Excel VBA質問箱 IV

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

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


37726 / 76732 ←次へ | 前へ→

【44168】Re:2つのリストボックスから複数選択
回答  ハチ  - 06/11/7(火) 9:16 -

引用なし
パスワード
   ▼Help me!! さん:

>>で、どこまでは出来て、わからないのはどの部分ですか?
>>ListBoxで選択された担当者の得意先をListBox2に表示するとこですか?
>>ListBoxで複数選択(MultiSelectにしておく必要がありますが)得意先を
>>5列で折り返してセルに入れるところですか?
>
>Listboxを二つ作っただけです。どうやってその二つのlistboxを連携させればいいのかわかりません。listboxのオプションのmultiselectは2番のfm multiselect Extendedに設定してあります。

ListBoxへの表示はこちらの質問が参考になりませんか?
他の過去ログも検索してみてください。(リンク禁止のためh○tpにしてます)
h○tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=44076;id=excel

>もちろんその後の5列でおりかえす方法もわかりませんし、その前にlistboxのデータをどうやって取得するのかもわかりません。

こちらは、選択されている箇所を判定して順次書き出していけば良いですね。

'例)ListBox1(MultiSelect)の選択項目を特定範囲に書き出す
Private Sub CommandButton1_Click()
  Dim r As Long, c As Integer 'Row,Column
  Dim i As Long
  Dim Ran As Range  '書き出しセルの範囲
  
  Set Ran = Worksheets(2).Range("A10:E15")
  r = 1: c = 1
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      If r > Ran.Rows.Count Then Exit Sub
      Ran.Cells(r, c).Value = ListBox1.List(i)
      '次の書き込み位置を調整
      c = c Mod Ran.Columns.Count + 1
      If c = 1 Then r = r + 1
    End If
  Next i
  Set Ran = Nothing

End Sub

0 hits

【44155】2つのリストボックスから複数選択 Help me!! 06/11/6(月) 17:14 質問
【44156】Re:2つのリストボックスから複数選択 ハチ 06/11/6(月) 17:32 発言
【44160】Re:2つのリストボックスから複数選択 Help me!! 06/11/6(月) 21:13 質問
【44168】Re:2つのリストボックスから複数選択 ハチ 06/11/7(火) 9:16 回答
【44169】Re:2つのリストボックスから複数選択 Help me!! 06/11/7(火) 10:41 質問
【44188】Re:2つのリストボックスから複数選択 ハチ 06/11/7(火) 16:05 発言
【44194】Re:2つのリストボックスから複数選択 Help me!! 06/11/8(水) 7:55 お礼
【44195】Re:2つのリストボックスから複数選択 ハチ 06/11/8(水) 8:33 発言

37726 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free