帖子: 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

樓主熱帖

doom834

中學生 Rank: 2

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

8^#

發表於 2013-10-24 08:30 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2013-10-23 14:49 | 只看該作者

回復 5# doom834
你附檔中沒有Sheets("芞桶")這工作表須修正

For Each Rng In Sheets("芞桶").[b4:I11,b15:I22,b26:I33].Areas

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

doom834

中學生 Rank: 2

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

6^#

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

TOP

doom834

中學生 Rank: 2

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

5^#

發表於 2013-10-23 10:59 | 只看該作者

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

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2013-10-22 17:49 | 只看該作者

本帖最後由 GBKEE 於 2013-10-22 17:51 編輯

回復 3# doom834
試試看

Option Explicit
Sub Ex()
Dim Rng As Range, AR(), C As Integer, R As Integer
For Each Rng In Sheets("图表").[b4:I11,b15:I22,b26:I33].Areas
ReDim AR(1 To Rng.Columns.Count, 1 To Rng.Rows.Count)
For R = 1 To Rng.Rows.Count
For C = 1 To Rng.Columns.Count
AR(R, C) = 0
If Rng.Cells(R, C).FormatConditions.Count > 0 Then
Rng.Cells(R, C).Select
If Application.Evaluate(Rng.Cells(R, C).FormatConditions(1).Formula1) Then AR(R, C) = Rng.Cells(R, C).Value
End If
Next
Rng.Cells(R, C) = Application.Sum(Application.Index(AR, R))
Next
For C = 1 To Rng.Columns.Count
Rng.Cells(Rng.Rows.Count + 1, C) = Application.Sum(Application.Index(Application.Transpose(AR), C))
Next
Rng.Cells(Rng.Rows.Count + 1, Rng.Columns.Count + 1) = Application.Sum(Rng.Columns(Rng.Columns.Count + 1))
Next
End Sub