MsgBox 中的表

Question

我正在编写一个宏，它比较两组值并警告用户是否存在任何差异。当发现差异时，我希望用户输入他们的评论。为了让他们轻松理解我要问的内容，我想显示用于获取评论的输入框内的所有数字。我想要得到的示例输入框可能如下所示：

Difference between warehouse and accounting records! See details below, insert reason.

Product: Toyota Corolla

------------------------------
|Item   |Warehouse|Accounting|
------------------------------
|Wheel  |        3|         3|
------------------------------
|Engine |        2|         3|
------------------------------
|Door   |        7|         7|
------------------------------
|Gearbox|        5|         5|
------------------------------
|Roof   |        4|         3|
------------------------------

在这种情况下，警报是由 Roof 和 Engine 的不同值引起的。填充表的数字存储在变量中。如何制作这样的表格，对于必须输入评论的用户来说看起来很清楚？

Answer 1

经过一些额外的研究，我发现我缺少的关键命令是vbTab

下面的代码返回一个输入框，其中的表格格式很好，可以清晰地呈现数据。

Sub TestMsg()
    Dim testcom As String
    testcom = InputBox("Enter answer" & vbNewLine & "axx" & vbTab & "b" & vbNewLine & "c" & vbTab & "xxd")
    MsgBox testcom
End Sub