VBA Excel，如果值小于

Question

我在C列和D列中将值设置为常规格式。如果C和D列中单元格值介于0和9之间，VBA宏如何将格式更改为数字？基本上我想要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？否则conditional formatting应该可以帮助您实现目标。

• 首先将所有更改为0,00格式化类型（点击CTRL + 1，选择'数字'）。
• 接下来，选择所有相关的单元格，启用条件格式：'仅格式化包含' - ＆gt;的单元格单元格值在0.001和8,999之间 - ＆gt;将格式设置为'general'。