[發問] 儲存格格式寫法

acdx

我在設定儲存格格式時想要標註當數值接近整數時將儲存格填滿色彩以方便辨識
而目標儲存格為:Cells(Cdt + 2, 2)、Cells(Cdt + 2, 3)、Cells(Cdt + 2, 4)
我的寫法如下:
For Cdt=1 to 10
If Abs(Cells(Cdt + 2, 2) - Round(Cells(Cdt + 2, 2), 0)) <= 0.2 Then
    Cells(Cdt + 2, 2).Interior.Color = vbYellow
End If
If Abs(Cells(Cdt + 2, 3) - Round(Cells(Cdt + 2, 3), 0)) <= 0.2 Then
    Cells(Cdt + 2, 3).Interior.Color = vbYellow
End If
If Abs(Cells(Cdt + 2, 4) - Round(Cells(Cdt + 2, 4), 0)) <= 0.2 Then
    Cells(Cdt + 2, 4).Interior.Color = vbYellow
End If
Next Cdt

請板上大大協助更好的寫法
謝謝

GBKEE

回復 1# acdx

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Cdt As Integer, E As Range
   
4.     Cdt = 10
   
5.     For Each E In Cells(3, 2).Resize(Cdt, 3)
   
6.         If Abs(E - Round(E, 0)) <= 0.2 Then
   
7.             E.Interior.Color = vbYellow
   
8.          Else
   
9.             E.Interior.ColorIndex = xlNone
   
10.          End If
    
11.     Next
    
12. End Sub

複製代碼