Re:콤보박스 다중선택하여 한셀에 불러오기.

[윤슬]

안녕하세요?   [김상숙]님...

왜 그러한 결과를 나타내고자 하는진 잘 모르겠는데...

암튼 아래 코드는 첨부파일에 사용된 코드입니다.

자세한 내용은 첨부파일을 참고로...

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long
Dim tmp As String

If Me.ListBox1.ListCount = 0 Then
    Unload Me
Else
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) = True Then
            tmp = tmp & Chr(10) & Me.ListBox1.List(i)
        End If
    Next i
   
    Range("a2") = Mid(tmp, 2)
    Rows(2).EntireRow.AutoFit
   
    Unload Me
End If
End Sub

Private Sub UserForm_Initialize()
Dim Rng As Range

Set Rng = Range(Range("c2"), Cells(Rows.Count, 3).End(xlUp))

With Me.ListBox1
    .Clear
    .MultiSelect = fmMultiSelectMulti
    .RowSource = Rng.Address
End With
End Sub

그럼 잘 해결되시길...   ^^*

========================================================================================

첨부파일

150129_다중항목_선택_나타내기.xlsm

========================================================================================

[김상숙]

너무 어려워요..ㅠㅠ 그냥 포기했어요.... 나중에 제가 어느정도 엑셀 수준이 올라가면.. 다시한번 해보겠습니다.
정말 신속한 답변 정말정말 감사드려요~