- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2017-5-16 08:37
| 只看該作者
回復 1# king0331
論壇中搜索 FormatConditions
試試看- Option Explicit
- Sub Ex()
- Dim Rng As Range, A As Range, k As Integer, F As Integer
- Dim CC As Range, C As FormatCondition
- Set Rng = Range("d2:k9").Columns
- For Each A In Rng
- k = 0
- For Each CC In A.Cells
- For Each C In CC.FormatConditions
- Select Case C.Type
- Case 1 '格式化條件: 儲存格的值
- F = C.Formula1
- Select Case C.Operator
- Case 1 '>= AND <=
- If CC.Value >= F And CC.Value <= Val(C.Formula2) Then k = 1
- Case 2 '< or >
- If CC.Value < F Or CC.Value > Val(C.Formula2) Then k = 1
- Case 3 '=
- If CC.Value = F Then k = 1
- Case 4 '<>
- If CC.Value <> F Then k = 1
- Case 5 '>
- If CC.Value > F Then k = 1
- Case 6 '<
- If CC.Value < F Then k = 1
- Case 7 '>=
- If CC.Value >= F Then k = 1
- Case 8 '<=
- If CC.Value <= F Then k = 1
- End Select
- Case 2 '格式化條件: 公式
- If Application.Evaluate(C.Formula1) = True Then k = 1
- End Select
- Next
- If k = 1 Then GoTo OK
- Next
- OK:
- If k = 0 Then A.EntireColumn.Hidden = True
- Next
- End Sub
|
|
發表於 2017-5-15 16:20
| 
