Excel VBA重置按钮问题：需将值设为数字而非文本

嘿，这个问题我太熟了——你当前的代码是把带英镑符号的文本"£0.00"塞进单元格里，但你的IF函数是在判断数值0，文本和数值压根不是一个类型，公式自然没法正确识别啦！

给你两个简单的修改方案，都能完美解决这个问题：

方案1：赋值数值+确保货币格式（推荐） #

直接给单元格赋值数值0，再通过VBA设置货币格式（如果单元格原本已经设好格式，这一步甚至可以省略）：

Sub Reset_Cells() 'Updateby Extendoffice 20161008
    ' 批量赋值数值0，覆盖目标单元格
    Range("D4:D8, D11").Value = 0
    ' 设置单元格为英镑货币格式，显示为£0.00（可选，原格式已正确则删除此行）
    Range("D4:D8, D11").NumberFormat = "£#,##0.00"
End Sub

方案2：仅赋值数值（如果原格式已正确） #

如果你的D4:D8、D11单元格本来就设置了英镑货币格式，那只需要一行代码就行：

Sub Reset_Cells() 'Updateby Extendoffice 20161008
    Range("D4:D8, D11").Value = 0
End Sub

为什么这样管用？ #

• 赋值0是纯数值类型，你的IF函数=IF(D4=0,0,...)会直接识别为数值匹配，公式逻辑完全正常。
• 货币格式只是显示样式，底层存储的还是数值，不会影响任何依赖公式的计算。

以后重置数值类单元格的时候，记得优先赋值纯数值，别用带格式的文本，避免这种类型不匹配的坑！

内容的提问来源于stack exchange，提问作者Ian Rimmer