返回列表下一主題上一主題發帖

[發問] (已解決)可以針對格式化條件的顏色做判斷嗎?

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-5 17:57 | 顯示全部帖子

[發問] (已解決)可以針對格式化條件的顏色做判斷嗎?

本帖最後由 freeffly 於 2012-2-22 17:03 編輯

我想對格式化條件下的儲存格去做判斷
對於沒由格式化上顏色的列隱藏
本來我想用下面的程式碼處理
發現格式化的部份不符合
請各位大大幫我看一下要怎麼改
我的寫法可能也不是很正確請幫忙修正

Sub 隱藏行列()
Application.ScreenUpdating = False
For i = 5 To Range("B65536").End(xlUp).Row
Do While Cells(i, 2).Interior.ColorIndex = xlNone
Cells(i, 2).EntireRow.Hidden = True
i = i + 1
Loop
Next
End Sub

樓主熱帖

字典兩各字還真難理解

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2011-5-6 12:36 | 顯示全部帖子

回復 2# Hsieh
   請問如果我的條件是這樣我應該如何寫才能達到我要的結果?

   Columns("B:B").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=VLOOKUP($B1,$M$548:$M$556,1,0)=$B1"
With Selection.FormatConditions(1).Font
      .Bold = False
      .Italic = False
      .ColorIndex = 4
End With
Selection.FormatConditions(1).Interior.Pattern = xlNone
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=FIND(""高雄"",$B1,1)"
With Selection.FormatConditions(2).Font
      .Bold = True
      .Italic = False
End With
Selection.FormatConditions(2).Interior.Pattern = xlNone

字典兩各字還真難理解

TOP

freeffly