在messagebox excel Vba中格式化文本

Question

我是Excel VBA的新手,并编写了Vba代码来循环遍历单元格并获取它们的值.之后进行一些处理,如果匹配某个条件,则将它们附加到带换行符的列表中.执行此操作直到完成所有行.这完全正常,最终结果如下图所示:

问题是我希望格式看起来整洁,所以有一种方法,文本之间的差距在所有行上是相同的,所以它看起来很整洁.我添加行的方式是:

          Dim tmpLine
          tmpLine = line & "      " & dateVal
          mainMessage = mainMessage & tmpLine & vbNewLine

不确定它是否完美,但这就是我所知道的......

Answer 1

我得到了这个,也许它会解决你的问题:

Sub msgBoxTest()

    MsgBox "inininegefedf" & vbTab & "1234" & vbCr & _
            "asdcainininegefedf" & vbTab & "1234" & vbCr & _
            "inininegefedf" & vbTab & "1234afsad", vbCritical

End Sub

结果如下: