0

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

顺便说一句，使用 excel 2007

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

该代码告诉我它在第 4 行的 .NumberFormat(""0."") 中的小数点后需要一个 )

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
4

1 回答 1

0

FormatConditions(1).NumberFormat=(""0."")在您的情况下，由于两个双引号 ( "") 环绕，该行不正确0.。另请注意，FormatConditions(1).NumberFormat = "0."应在前面加上Selection.，否则会在运行时引发错误。试试这个，因为我相信它更清晰（你会得到智能感知）：

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
于 2012-08-30T18:11:11.303 回答