Окно сообщения, которое зацикливается и отображает несколько записей

Question

Я пытаюсь создать окно сообщения, которое отображает различные записи для неопределенного числа столбцов.

Я считаю, что хочу цикл, но я хочу, чтобы в окне сообщения отображались все записи, доступные вдиапазон, а не создавать новое окно сообщения для каждого элемента в диапазоне.

Я хочу, чтобы окно сообщения выглядело как

Loan Summary(Price, Range, Standard Deviation):
Loan 1: (100, 5, 2)
Loan 2: (102, 4, 3)

и т. д., но количество записей (ссуд) будетменяйте каждый раз.

У меня есть код ниже.Как добавить новую строку для каждой записи в диапазоне?

For theRep = 1 To wsv.Range("J3").Value
    Average1 = Range("loanSummary").Offset(0, theRep)
    Range1 = Range("loanSummary").Offset(1, theRep)
    StdDev1 = Range("loanSummary").Offset(2, theRep)

    MsgBox "Loan Summary (Price, Range, Standard Deviation):" & vbCrLf & vbTab & "Loan 1: " & Format(Average1, "##0.00") & ", " & Format(Range1, "##0.00") & ", " & Format(StdDev1, "##0.00")
Next

Answer 1

Используйте строковую переменную для хранения данных, затем после цикла представьте строку в одном MsgBox

Dim str As String
str = "Loan Summary (Price, Range, Standard Deviation):" & vbCrLf & vbTab
For theRep = 1 To wsv.Range("J3").Value
    Average1 = Range("loanSummary").Offset(0, theRep)
    Range1 = Range("loanSummary").Offset(1, theRep)
    StdDev1 = Range("loanSummary").Offset(2, theRep)


    str = str & "Loan " & theRep & ": (" & Format(Average1, "##0.00") & ", " & Format(Range1, "##0.00") & ", " & Format(StdDev1, "##0.00") & ")" & vbCrLf & vbTab
Next
MsgBox str