EXCEL VBA使用MSGBOX顯示在組合框中

Question

第一項：當初始化用戶窗體

我用下面的代碼，以便它將填充組合框我初始化我的網頁。

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

下一頁

我有一個按鈕提示一個MsgBox會打電話給我的組合框裏面的所有物品。我該怎麼做呢？提前致謝。

Answer 1

這是可以做到如下：

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