엑셀 VBA를 사용하면 콤보

Question

최초의 항목을 표시 MSGBOX : 사용자 정의 폼을

를 초기화하면 나는 내 콤보 상자를 채울 수 있도록 아래의 코드를 사용하여 내 페이지를 초기화합니다.

For Each cell In rangeA 
    If cell.Value <> "" Then 
     ComboBox1.AddItem cell.Value 
    Else 
    End If 
Next 

다음

나는 내 콤보 상자 내부의 모든 항목을 호출하는 MSGBOX 메시지를 표시하는 버튼이 있습니다. 어떻게해야합니까? 미리 감사드립니다. 당신이 범위에서 추가로

Private Sub ShowComboBoxAsMsgBox() 
    Dim s As String 
    Dim sep As String 
    Dim i As Integer 

    For i = 0 To Me.ComboBox1.ListCount - 1 
     s = s & sep & Me.ComboBox1.List(i) 
     sep = vbCrLf 
    Next i 

    MsgBox s, vbInformation, "my ComboBox" 
End Sub 

Answer 1

이

수행 할 수 있습니다?