徵求高手幫我解決一下這個問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 徵求高手幫我解決一下這個問題

返回列表下一主題上一主題發帖

徵求高手幫我解決一下這個問題

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

11^# 跳轉到 »

發表於 2015-12-31 15:26 | 顯示全部帖子

本帖最後由 c_c_lai 於 2015-12-31 15:29 編輯

回復 25# 藍天麗池
參考看看
或者是
Colors

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2016-1-1 13:54 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-1-1 13:57 編輯

回復 27# 藍天麗池
以下四列，都是同義：

' 方式一
.Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)
' 方式二
.Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, RGB(0, 0, 0))
' 方式三
.Range("G" & WR).Font.Color = IIf(.[G2] > 9, RGB(255, 0, 0), 2)
' 方式四
.Range("G" & WR).Font.Color = IIf(.[G2] > 9, RGB(255, 0, 0), RGB(0, 0, 0))

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2016-1-1 17:04 | 顯示全部帖子

回復 30# 藍天麗池

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

14^#

發表於 2016-1-2 11:48 | 顯示全部帖子

回復 30# 藍天麗池
為求方便，你也可以改用 ColorIndex 的用法。
請參考： ColorIndex -- 56 Excel Colors [#colors56/#colorindex]

.Range("G" & WR).Font.ColorIndex = IIf(.[G2] > 9, 3, 1) ' Red, Black
' .Range("G" & WR).Font.ColorIndex = IIf(.[G2] > 9, 7, 5) ' Magenta, Blue

複製代碼

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題