未反紅的直行用隱藏

king0331

我用設定格式化的條件
設為大於10的底和字反紅
若我的直行沒有反紅的想隱藏
用VBA要怎麼做
我只要隱藏喔！！！

若可以的話橫列沒有反紅的也一起隱藏可以嗎？

GBKEE

回復 1# king0331

論壇中搜索 FormatConditions
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, A As Range, k As Integer, F As Integer
   
4.     Dim CC As Range, C As FormatCondition
   
5.     Set Rng = Range("d2:k9").Columns
   
6.     For Each A In Rng
   
7.         k = 0
   
8.         For Each CC In A.Cells
   
9.             For Each C In CC.FormatConditions
   
10.                 Select Case C.Type
    
11.                     Case 1                                           '格式化條件: 儲存格的值
    
12.                         F = C.Formula1
    
13.                         Select Case C.Operator
    
14.                             Case 1  '>= AND <=
    
15.                                 If CC.Value >= F And CC.Value <= Val(C.Formula2) Then k = 1
    
16.                             Case 2  '< or >
    
17.                                 If CC.Value < F Or CC.Value > Val(C.Formula2) Then k = 1
    
18.                             Case 3  '=
    
19.                                 If CC.Value = F Then k = 1
    
20.                             Case 4  '<>
    
21.                                 If CC.Value <> F Then k = 1
    
22.                             Case 5  '>
    
23.                                 If CC.Value > F Then k = 1
    
24.                             Case 6  '<
    
25.                                 If CC.Value < F Then k = 1
    
26.                             Case 7  '>=
    
27.                                 If CC.Value >= F Then k = 1
    
28.                             Case 8  '<=
    
29.                                 If CC.Value <= F Then k = 1
    
30.                         End Select
    
31.                     Case 2                                            '格式化條件: 公式
    
32.                         If Application.Evaluate(C.Formula1) = True Then k = 1
    
33.                 End Select
    
34.             Next
    
35.             If k = 1 Then GoTo OK
    
36.         Next
    
37. OK:
    
38.         If k = 0 Then A.EntireColumn.Hidden = True
    
39.     Next
    
40. End Sub

複製代碼

king0331

好難~搞不定，輸入後不會動