| |
▼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
|
|
ハチ
- 06/11/7(火) 9:16 -
