循环的vba宏显示结果到msgbox

Question

我用条件创建了一个循环检查字符长度的数量，但遗憾的是它不能正常工作，
有适当的编号。循环但不读取下一行，我想将结果发布到 MsgBox 中，
但是当我在循环中使用 msgbox 时，我将为找到的每个结果获得一个 msgbox，或者只有一个带有一个结果的 msgbox。

我想要的是在 1 msgbox 中显示每个结果，并在每个结果之后显示一行 vbNewLine。

下面是我的代码:

    Public Sub Rs()

        Dim Text As String
        Dim NumChar As String
        Dim i As Integer
        Dim NumRows As Long

        Application.ScreenUpdating = False
        'Get Cell Value
        Text = Range("B2").Value
        'Get Char Length
        NumChar = Len(Text)
        NumRows = Range("B2", Range("B2").End(xlDown)).Rows.Count
        Range("B2").Select

        For i = 1 To NumRows
            'Character length validation
            If Len(Text) <= 15 Then
                    MsgBox Chr(149) & "     SVC_DESC " & Text & " has " & NumChar & " characters " & " and it's Valid !" & vbNewLine
                Else
                    MsgBox Chr(149) & "     SVC_DESC " & Text & " has " & NumChar & " characters " & " and Exceeded allowable number of characters!" & vbNewLine
            End If
          Next i
          Application.ScreenUpdating = True

    End Sub

Answer 1

将新文本分配给字符串变量并在循环外显示字符串变量:

Option Explicit

Sub TestMe()

    Dim i As Long
    Dim displayText As String

    For i = 1 To 3
        displayText = displayText & vbCrLf & i
    Next i

    MsgBox displayText

End Sub