- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
3#
發表於 2010-8-8 14:34
| 只看該作者
回復 1# mmggmm
多範圍的儲存格格式化條件 的公式 須以作用中的儲存格為主
這是你檔案A5的公式正確 =COUNTIF($Q$6:$Q$65536,$A5)<1
F5的公式錯誤 =COUNTIF(R$6:U$42,$E5)<1
- Sub EX()
- [A5:N65536].FormatConditions.Delete
- With [A5:A65536,C5:C65536,E5:E65536,G5:G65536,I5:I65536,K5:K65536,M5:M65536] '多範圍的儲存格
- .Select '格式化條件須圈選範圍
- .Cells(1).Activate '圈選範圍中之 A5為作用中的儲存格
- .FormatConditions.Delete '刪除原範圍中格式化條件
- .FormatConditions.Add Type:=xlExpression, Formula1:= _
- "=COUNTIF($Q$6:$Q$77," & .Cells(1).Address(0, 0) & ")<1"
- '以上的公式 =COUNTIF($Q$6:$Q$65536,A5)<1
- '如.Cells(2).Activate '圈選範圍中變成 A6是作用中的儲存格
- '以上的公式 =COUNTIF($Q$6:$Q$65536,A6)<1
- '作用中的儲存格為主 否則公式就錯掉
- .FormatConditions(1).Font.ColorIndex = 3
- .Cells(1).Select
- End With
- End Sub
複製代碼 |
|