|
▼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
|
|