Excel 自定义格式宏：需要打印带小数点的单位数整数

我正在处理一个wee宏，将文件作为prn输出，作为其他软件的输入。我已经让一切正常工作，唯一的问题是，其他软件要求所有的整数都打印一个小数点

使用Excel2007BTW

即如果单元格值为0，则应打印为“0”。而不是空白。同样，如果值为8，则应打印为“8”。大多数值都没有问题，因为绝大多数值都是123.45765等

代码告诉我第4行的.NumberFormat（““0”）中的小数点后应该是a）

Windows("bdf_generator").Activate
With Worksheets(2).Range("E2:H9592").FormatConditions _
.Add(xlCellValue, xlBetween, "=0", "=9")
FormatConditions(1).NumberFormat=(""0."")
With Selection.FormatConditions(1).StopIfTrue = False
End With
End With

---

在您的例子中，行

FormatConditions（1）.NumberFormat=（“0.”）

不正确，因为

0周围有两个双引号（
”
）。
还请注意，
FormatConditions（1）.NumberFormat=“0”。
前面应该有
选择。
，否则它会在运行时抛出错误。
试试这个，因为我相信它更清晰（而且你会得到intellisense）：

先生，你是冠军。我永远感激你。如果您在威士忌选择或压力分析方面需要任何帮助，请让我成为您的第一个呼叫端口。它只需要一个r.FormatConditions.Delete，然后设置r。在检查新工作表的条件格式规则后，我可以看到源wbs中存在一些工件，我认为这些工件必须优先于新的格式规则。
Windows("bdf_generator").Activate
Dim r As Excel.Range
Set r = Worksheets(2).Range("E2:H9592")
Dim fc As Excel.FormatCondition
Set fc = r.FormatConditions.Add(xlCellValue, xlBetween, "=0", "=9")
fc.NumberFormat = "0."
fc.StopIfTrue = False