VBA Excel中的MessageBox

Question

我需要創建一個消息框，它將顯示3個不同的Excel範圍。

這是我的數據：

，我需要有應該是這樣的一個消息框：

點擊確定後，應該顯示B1：B6是這樣的：

然後當您再次單擊確定時，它應顯示範圍C1：C6。

這是到目前爲止我的代碼：

Sub Message_Box() 

Dim a As Range 
Dim sTxt As String 

For Each a In ThisWorkbook.Sheets("Sheet1").Range("a1:a6") 
sTxt = sTxt & vbLf & a.Value 
Next a 

MsgBox sTxt 

End Sub 

Answer 1

Sub Message_Box() 

Dim a As Range 
Dim t As Integer 
Dim sTxt As String 

For t = 1 To 3 
    For Each a In ThisWorkbook.Sheets("Sheet1").Range(Cells(1, t), Cells(6, t)) 
    sTxt = sTxt & vbLf & a.Value 
    Next a 

    MsgBox sTxt 
    sTxt = "" 

Next t 


End Sub 

Answer 2

這裏的另一種方式，你可以這樣做：

Sub Message_Box2() 
Dim a  As Range 
Dim sTxt As String 
Dim myData() As Variant 

Dim numCols As Long, numRows As Long 

With Sheets("Sheet1") 
    numCols = .Cells(1, .Columns.Count).End(xlToLeft).Column 
    numRows = .Cells(.Rows.Count, 1).End(xlUp).Row 

    ReDim myData(numCols, numRows) 
    myData() = Range("A1:C" & numRows) 
End With 
Dim i As Long, k As Long, numTimes As Long 
For k = 1 To numCols 
    For i = 1 To numRows 
     sTxt = sTxt & vbLf & myData(i, k) 
     Debug.Print sTxt 
    Next i 
    MsgBox sTxt 
    sTxt = "" 
Next k 
End Sub 

編輯：這是一個有點矯枉過正，但我​​只是想知道有一個可以使用一個數組來完成它，所以在我意識到它已經被回答之前就已經做好了。