(已解決)可以針對格式化條件的顏色做判斷嗎? - Excel程式區

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 83
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-7

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-5-5 18:01 | 顯示全部帖子

要以其格式化條件的運算式判斷

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 83
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-7

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

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

回復 3# freeffly
格式化條件不要這樣下公式，這樣得到錯誤值時，雖然格式化條件會視為不成立條件
但實際上它不是傳回邏輯值，會造成處理上的困擾
修改一下公式，如圖

Sub yy()
Dim A As Range
For Each A In Range("B:B").SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeAllFormatConditions)
A.Select
k = 0
For Each c In A.FormatConditions
s = c.Formula1
If Application.Evaluate(s) = True Then k = k + 1
Next
If k = 0 Then A.EntireRow.Hidden = True
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 83
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-7

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-5-8 22:27 | 顯示全部帖子

回復 6# freeffly

你的公式在格式化條件中可以達到你的目的沒錯
不過，你的公式在條件不成立的情形下
該公式傳回值不一定是FLASE，有可能是錯誤值
當然錯誤值他不是TRUE所以儲存格不會變色
但是，這個公式在VBA中利用Evaluate方法來求值時，由於產生錯誤值的關係，程式就會出錯
所以建議你將公式修改成確定傳回是邏輯值TRUE或FALSE
這樣就可省去用程式忽略錯誤的程序
建議公式改為
=COUNTIF($M$548:$M$556,$B1)>0
=ISNUMBER(FIND("高雄",$B1,1)
這會比我上一個回復的公式簡單

學海無涯_不恥下問

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]