FormatConditions怎麼取得文字顏色的值

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-22 15:21 | 顯示全部帖子

FormatConditions怎麼取得文字顏色的值

各位大大，
我想要計算下圖(圖1)中紅色部分的總和，
我是在這個表格裡使用了儲存格條件，
但問題是我在VBA裡無法分辦在儲存格裡紅色與黑色差，
如我圖2，我用了很多語法都是得到相同的值，完全無法判斷，
是否有人知道怎麼判斷差異嗎??

圖1

圖2

樓主熱帖

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

2^#

發表於 2013-10-22 15:53 | 顯示全部帖子

我刪除了一些資料，不然檔案太大，若有需要完整版的檔案我再重傳!!

生?控制表-1.zip (107.79 KB)

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

3^#

發表於 2013-10-23 10:59 | 顯示全部帖子

GB大大，我用你的代碼跑不出來結果耶~~
計算出來的Sum都是0
另外格式化條件沒有設錯，我設定的邏輯是第1個表是>0的顯示紅字，
第2個表是依據第1個表有數字的才會示成紅字。

生?控制表-1.zip (108.36 KB)

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

4^#

發表於 2013-10-23 13:26 | 顯示全部帖子

我認為是If Application.Evaluate(Rng.Cells(R, C).FormatConditions(1).Formula1) Then AR(R, C) = Rng.Cells(R, C).Value這行有點問題，
因為這個都是false，所以存入陣列AR裡的數值都是0，
最後加總起來的都是0

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

5^#

發表於 2013-10-24 08:30 | 顯示全部帖子

那是因為我在大陸用這裡的筆電，
事實上在我的電腦上看是圖表這個Sheet沒錯，
這個是編碥轉換上造成的亂碼。