- 帖子
- 51
- 主題
- 12
- 精華
- 0
- 積分
- 77
- 點名
- 0
- 作業系統
- windows xp sp3
- 軟體版本
- excel 2003 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-4
- 最後登錄
- 2023-10-31
|
6#
發表於 2010-8-9 11:26
| 只看該作者
回復 5# yuch8663
請問luhpro 樓主,我參研擬的做法將分類標準更改為另一個區塊做參照,會在下列紅字區出現錯誤,請問是何原因?
Sub Color2() 'luhpro 樓主指導
'上述的情形可以利用 Switch 與 Choose 兩個函數來大幅簡化程式,'
'以下僅列出第一小段的程式,其餘僅需變更相關數字後再套用上去即可.
Dim iRng%, F As Variant
With ThisWorkbook.Sheets("sheet3")
For Each F In .Range("b35:p46")
iRng = Switch(F >= 0.06, 1, F >= 0.04 And F < 0.06, 2, F >= 0.02 And F < 0.04, 3, _
F > 0 And F < 0.02, 4, F = 0, 5, F < 0 And F > -0.02, 6, _
, F <= -0.02 And F > -0.04, 7, F <= -0.04 And F > -0.06, 8, F <= -0.06, 9) F.Offset(-30, 0).Interior.ColorIndex = Choose(iRng, 3, 46, 22, 40, -4142, 15, 43, 50, 10)
F.Offset(-30, 0).Font.ColorIndex = Choose(iRng, 2, 2, 2, 1, 1, 1, 44, 44, 44)
F.Offset(-30, 0).Font.Bold = Choose(iRng, True, True, True, False, False, False, True, True, True)
Next '
End With
End Sub
Book1.rar (20.33 KB)
|
|