- 帖子
- 824
- 主題
- 6
- 精華
- 0
- 積分
- 904
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2023-12-24
|
上述的情形可以利用 Switch 與 Choose 兩個函數來大幅簡化程式,
以下僅列出第一小段的程式,其餘僅需變更相關數字後再套用上去即可.
Dim iRng%, F As Variant
With ThisWorkbook.Sheets("sheet2")
For Each F In .Range("b4:i15")
iRng = Switch(F > 800, 1, F > 500 And F <= 800, 2, F > 200 And F <= 500, 3, F >= -200 And F <= 200, 4 _
, F < -200 And F >= -500, 5, F < -500 And F >= -800, 6, F < -800, 7)
F.Interior.ColorIndex = Choose(iRng, 40, 36, 19, 35, 24, 15, 48)
F.Font.ColorIndex = Choose(iRng, 3, 3, 3, 1, 11, 11, 11)
F.Font.Bold = Choose(iRng, True, True, True, False, True, True, True)
Next
For Each F In .Range("j4:l15")
.
.
.
Next
.
.
.
End With |
|
發表於 2010-8-7 00:44
| 