我在設定儲存格格式時想要標註當數值接近整數時將儲存格填滿色彩以方便辨識
而目標儲存格為: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
請板上大大協助更好的寫法
謝謝 |
發表於 2013-7-2 15:46
| 
