VBA ExcelのMessageBox

Question

3つの異なるExcelの範囲を表示するメッセージボックスを作成する必要があります。

これが私のデータです：

と私は次のようになります。メッセージボックス持っている必要があります：OK、それはB1が表示されますクリックした後

を：このようなB6：

そして、もう一度[OK]をクリックすると、範囲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 

編集：それはちょっとやり過ぎだが、私はどれだけ1思っていましたそれを行うために配列を使うことができたので、私はそれが既に答えられたことに気付く前にそれを作った。