Board logo

標題: 未反紅的直行用隱藏 [打印本頁]
作者: king0331    時間: 2017-5-15 16:20     標題: 未反紅的直行用隱藏

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

若可以的話橫列沒有反紅的也一起隱藏可以嗎？
作者: GBKEE    時間: 2017-5-16 08:37

回復 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    時間: 2017-5-16 23:13

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)