VBA Excel，如果值小于

Question

我在C列和D列中将值设置为“常规”格式。无论C列和D列中的单元格值介于0还是9之间，VBA宏如何将格式更改为Number？ 基本上我希望0为0.00，9为9.00。

谢谢

Answer 1

试试看：

Sub formatit()
    Dim r As Range, N As Long
    Set r = Intersect(ActiveSheet.UsedRange, Range("C:D"))
    N = Cells(Rows.Count, "C").End(xlUp).Row

    For i = 1 To N
        cc = Cells(i, "C").Value
        dd = Cells(i, "D").Value
        If cc >= 0 And cc <= 9 And dd >= 0 And dd <= 9 Then
            Range(Cells(i, "C"), Cells(i, "D")).NumberFormat = "0.00"
        End If
    Next i
End Sub

Answer 2

VBA是否有特定需求？ 否则， 条件格式应该可以帮助您实现目标。

• 首先将所有格式更改为0,00格式类型（单击CTRL + 1，选择“数字”）。
• 接下来，选择所有相关的单元格，启用条件格式设置：“仅格式化包含以下内容的单元格”->介于0,001和8,999之间的单元格值->将格式设置为“常规”。