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之間的單元格值->將格式設置為“常規”。