如何获取消息框中的文本和变量

Question

我只需要知道如何在消息框中包含纯文本和变量。

例如：

我可以这样做： MsgBox(variable)

我可以这样做： MsgBox("Variable = ")

但我不能这样做： MsgBox("变量 = " + 变量)

Answer 1

正如所建议的，使用 string.format 方法很好、简单并且非常易读。

在 vb.net 中，“+”用于加法，“&”用于字符串连接。

在您的示例中：

MsgBox("Variable = " + variable)

变为：

MsgBox("Variable = " & variable)

我可能回答得有点快，因为看起来这些运算符都可以用于连接，但建议使用“&”，来源 http://msdn.microsoft.com/en-us/library/te2585xw(v=VS.100).aspx

可能会调用

variable.ToString()

更新：

使用字符串插值（我相信是从 2015 年开始）：

MsgBox($"Variable = {variable}")

Answer 2

为什么不使用：

Dim msg as String = String.Format("Variable = {0}", variable)

有关 String.Format

Answer 3

我遇到了同样的问题。我希望我的消息框显示消息和供应商合同到期时间。这就是我所做的：

Dim ab As String
Dim cd As String

ab = "THE CONTRACT FOR THIS VENDOR WILL EXPIRE ON "
cd = VendorContractExpiration


If InvoiceDate >= VendorContractExpiration - 120 And InvoiceDate < VendorContractExpiration Then

MsgBox [ab] & [cd], vbCritical, "WARNING"

End If

Answer 4

MsgBox("Variable {0} " , variable)

Answer 5

我想在应用筛选选项后显示 Excel 工作表中的行数。

所以我将最后一行的计数声明为一个可以添加到 Msgbox 的变量

Sub lastrowcall()
Dim hm As Worksheet
Dim dm As Worksheet
Set dm = ActiveWorkbook.Sheets("datecopy")
Set hm = ActiveWorkbook.Sheets("Home")
Dim lngStart As String, lngEnd As String
lngStart = hm.Range("E23").Value
lngEnd = hm.Range("E25").Value
Dim last_row As String
last_row = dm.Cells(Rows.Count, 1).End(xlUp).Row

MsgBox ("Number of test results between the selected dates " + lngStart + " 
and " + lngEnd + " are " + last_row + ". Please Select Yes to continue 
Analysis")


End Sub

Answer 6

我认为最简单的解决方案如下：

iNum1 = 10
iNum2 = 20
iSum = iNum1 + iNum2

MsgBox ("The sum of " & iNum1 & " and " & iNum2 & " is " & iSum)

这将导致 10 和 20 的总和是 30