Excel vba最后不显示零

Question

如何在双打结束时显示零？

  

A1 = 278,50

Sub test()
Dim f As Double
f = Range("A1").Value
MsgBox f

End Sub

Msgbox返回278,5，但我需要278,50 除了＆amp;和＆＃34; 00＆＃34;在数字末尾显示零？

Answer 1

使用Format功能将您的号码转换为所需格式的字符串：

MsgBox Format(f, "0.00")

如果您希望保留与单元格相同的数字格式，则可以执行以下操作：

MsgBox Format(f, Range("A1").NumberFormat)

或者，显示单元格中显示的Text，而不是其值：

MsgBox Range("A1").Text

但要注意：如果单元格太窄而无法显示其内容，.Text将显示###！

一次测试所有三个：

MsgBox Format(f, "0.00") & vbCrLf _
    & Format(f, Range("A1").NumberFormat) & vbCrLf _
    & Range("A1").Text