- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
本帖最後由 准提部林 於 2019-11-9 15:21 編輯
Dim FF As Range, AD
If Not xF Is Nothing Then
For V = 4 To 8
For Each AD In Array("B2:AN2", "B65:AN65", "B66:AN66")
If xF(1, V) <> "" Then
Set FF = Range(AD & "").Find(xF(1, V), Lookat:=xlWhole)
If Not FF Is Nothing Then FF.Font.ColorIndex = 7
End If
If xF(2, V) <> "" Then
Set FF = Range(AD & "").Find(xF(2, V), Lookat:=xlWhole)
If Not FF Is Nothing Then FF.Interior.ColorIndex = 6
End If
Next
Next V
End If |
|
發表於 2019-11-9 09:42
| 