VBA读取Excel单元格Double类型值显示异常问题求助

问题分析 #

读取Excel单元格的Double值（如12.5）时，MsgBox能正常显示，但UserForm的TextBox仅显示整数部分（12），核心原因是数值转字符串时的格式化逻辑或系统区域设置影响了TextBox的显示。

可行修改方案 #

以下几种方法都能解决该问题，任选其一即可：

方法1：用Format函数强制格式化小数位

替换原代码中TextDP.Text = CStr(CDbl(new_value))为：

TextDP.Text = Format(new_value, "0.0") ' 保留1位小数，需更多位数可改为"0.00"

该方法能强制指定显示格式，不受系统区域设置影响。

方法2：用Str函数转换并去除前导空格

TextDP.Text = Trim(Str(new_value))

Str函数始终以英文点作为小数点分隔符，Trim用于去掉Str转换后自带的前导空格。

方法3：直接读取单元格显示文本

如果Excel单元格D7本身显示的是12.5，可直接读取单元格的文本内容：

TextDP.Text = Range("D7").Text

额外检查 #

确认TextBox控件的属性：

• 未设置InputMask为整数限制
• MaxLength值足够显示完整数值（如不要设为2）

内容的提问来源于stack exchange，提问作者Chris Peh