標題: [發問] 儲存格格式寫法 [打印本頁]

---

作者: acdx    時間: 2013-7-2 15:46     標題: 儲存格格式寫法

我在設定儲存格格式時想要標註當數值接近整數時將儲存格填滿色彩以方便辨識
而目標儲存格為: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    時間: 2013-7-2 16:43

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)