- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2011-5-7 08:37 編輯
格式化條件有 公式 及 儲存格的值 兩種- Sub Ex()
- Dim A As Range, k%, C As Object, F%(1)
- For Each A In Range("b:b").SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeAllFormatConditions)
- k = 0
- A.Select
- For Each C In A.FormatConditions
- If C.Type = 1 Then '格式化條件 1儲存格的值
- F(0) = C.Formula1
- Select Case C.Operator
- Case 1 '>= AND <=
- F(1) = C.Formula2
- If A.Value >= F(0) And A.Value <= F(1) Then k = 1
- Case 2 '< or >
- F(1) = C.Formula2
- If A.Value < F(0) Or A.Value > F(1) Then k = 1
- Case 3 '=
- If A.Value = F(0) Then k = 1
- Case 4 '<>
- If A.Value <> F(0) Then k = 1
- Case 5 '>
- If A.Value > F(0) Then k = 1
- Case 6 '<
- If A.Value < F(0) Then k = 1
- Case 7 '>=
- If A.Value >= F(0) Then k = 1
- Case 8 '<=
- If A.Value <= F(0) Then k = 1
- End Select
- Else '格式化條件 公式
- If Application.Evaluate(C.Formula1) = True Then k = 1
- End If
- Next
- If k = 0 Then A.EntireRow.Hidden = True
- Next
- End Sub
|
|
發表於 2011-5-7 08:34
| 
