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

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

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

2^#

發表於 2011-5-5 18:01 | 只看該作者

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

學海無涯_不恥下問

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

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

3^#

發表於 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

字典兩各字還真難理解

Hsieh

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

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

4^#

發表於 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

複製代碼

學海無涯_不恥下問

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-5-7 08:34 | 只看該作者

本帖最後由 GBKEE 於 2011-5-7 08:37 編輯

格式化條件有公式及儲存格的值兩種

Sub Ex()
Dim A As Range, k%, C As Object, F%(1)
For Each A In Range("b:b").SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeAllFormatConditions)
k = 0
A.Select
For Each C In A.FormatConditions
If C.Type = 1 Then '格式化條件 1儲存格的值
F(0) = C.Formula1
Select Case C.Operator
Case 1 '>= AND <=
F(1) = C.Formula2
If A.Value >= F(0) And A.Value <= F(1) Then k = 1
Case 2 '< or >
F(1) = C.Formula2
If A.Value < F(0) Or A.Value > F(1) Then k = 1
Case 3 '=
If A.Value = F(0) Then k = 1
Case 4 '<>
If A.Value <> F(0) Then k = 1
Case 5 '>
If A.Value > F(0) Then k = 1
Case 6 '<
If A.Value < F(0) Then k = 1
Case 7 '>=
If A.Value >= F(0) Then k = 1
Case 8 '<=
If A.Value <= F(0) Then k = 1
End Select
Else '格式化條件公式
If Application.Evaluate(C.Formula1) = True Then k = 1
End If
Next
If k = 0 Then A.EntireRow.Hidden = True
Next
End Sub

複製代碼

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

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

6^#

發表於 2011-5-8 18:18 | 只看該作者

回復 4# Hsieh

大大確認一下
格式化條件我裡面的公式這樣是不ok的嗎? 要改成像你那樣嗎?

字典兩各字還真難理解

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

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

7^#

發表於 2011-5-8 18:25 | 只看該作者

回復 5# GBKEE

大大你的方式對我目前的功力有點難理解

如果有時間可以說明一下嗎?
有些使用方是我沒看過

k% F%(1) 作用? ()裡面有什麼妙處嗎?
後面case裡面我已經亂掉了

字典兩各字還真難理解

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-5-8 20:51 | 只看該作者

本帖最後由 GBKEE 於 2011-5-8 20:54 編輯

回復 7# freeffly
k%  F%(1)  作用?  ()裡面有什麼妙處嗎?
Dim  k% -> k As Integer                '宣告變數 k 為 Integer 資料型態宣告字元是百分比符號(%)。
Dim F%(1)-> F(0 To 1) As Integer '宣告變數  F 是(一維陣列,為 0 到 1個元素), 為 Integer 資料型態

For Each C In A.FormatConditions   A.儲存格的格式化條件 (最多可以有三個) ,C 為依序所設的 1-3 的條件
圖解

Select Case C.Operator -> 依C.Operator 的運算子來執行程式碼
可察看 VBA 的說明

Hsieh

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

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

9^#

發表於 2011-5-8 22:27 | 只看該作者

回復 6# freeffly

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

學海無涯_不恥下問

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

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

10^#

發表於 2011-5-9 12:22 | 只看該作者

回復 9# Hsieh

謝謝大大解說
有種豁然開朗的感覺

字典兩各字還真難理解