Excel vba不会在最后显示零

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

A1 = 278,50

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

Msgbox返回278,5，但我需要278,50有几种方法，除了“00”在数字的末尾显示零？

Answer 1

使用Formatfunction将您的号码转换为您想要的格式的string：

 MsgBox Format(f, "0.00") 

如果你想保持单元格的相同数字格式，那么你可以这样做：

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

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

 MsgBox Range("A1").Text 

但要小心：如果单元格太窄而不能显示其内容，则.Text将显示### ！

一次testing所有三个：

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