Vba 添加标题并将格式更改为msgbox输出的2位小数

需要添加标题并更改以下代码的输出小数位数（2位小数），但我在这方面遇到了问题。你能帮忙吗？非常感谢

Sub msgAlert()

MsgBox "First Response Time (hours)= " & _ 
 Worksheets("Parsing").Range("H21").Value & _
 vbCrLf & "Investigation Time (hours)= " & _
 Worksheets("Parsing").Range("I21").Value & _
 Format(dTotalArea, "&#,##0")

End Sub

---

要向消息框添加标题，请按如下方式使用：

Msgbox "My message",,"My title"

Sub msgAlert()

MsgBox "First Response Time (hours)= " & _ 
 Worksheets("Parsing").Range("H21").Value & _
 vbCrLf & "Investigation Time (hours)= " & _
 Worksheets("Parsing").Range("I21").Value & _
 Format(dTotalArea, "0.00"),,"This is the title"

End Sub

要获取两位小数，请使用以下格式：

Format(dTotalArea,"0.00")

使用点（.）作为小数分隔符，即使您的区域设置需要使用逗号（，）

因此，您的代码如下所示：

Msgbox "My message",,"My title"

Sub msgAlert()

MsgBox "First Response Time (hours)= " & _ 
 Worksheets("Parsing").Range("H21").Value & _
 vbCrLf & "Investigation Time (hours)= " & _
 Worksheets("Parsing").Range("I21").Value & _
 Format(dTotalArea, "0.00"),,"This is the title"

End Sub

---

让我知道这是否有效。：）

谢谢！标题行得通，但小数位不可以。顺便说一下，数字用逗号。这就是我以前使用“&#，##0”的原因，但没有效果。没问题：）在VBA中，始终必须使用点（.）作为小数分隔符。在Excel中，它将自动更改为您的系统设置。