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

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

21^# 跳轉到 »

發表於 2015-12-30 23:07 | 只看該作者

回復 19# c_c_lai

C大如果G2>9我要改成紅色而且粗體這邊.[G3].Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")要怎麼改??

c_c_lai

博士班 Rank: 6 Rank: 6

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

22^#

發表於 2015-12-31 07:58 | 只看該作者

回復 21# 藍天麗池

Sub RecordPrice() ' 從第三行插入模式
Dim WR As Long
Application.ScreenUpdating = False
With Sheets("RTD")
If .Range("H2") < 1 Then Exit Sub
WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or (.[G3] <> .[G2]) Then ' 總量有異動時才記錄
.Rows(3).Insert
.[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
.[G3].Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")
.[G3].Font.Color = IIf(.[G2] > 9, 255, 2)
End If
End With
Application.ScreenUpdating = True
End Sub

複製代碼

c_c_lai

博士班 Rank: 6 Rank: 6

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

23^#

發表於 2015-12-31 07:59 | 只看該作者

回復 20# 藍天麗池

Sub RecordPrice() ' 往下遞增模式
Dim WR As Long
Application.ScreenUpdating = False
With Sheets("RTD")
If .Range("H2") < 1 Then Exit Sub
WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or (.Range("G" & WR - 1) <> .[G2]) Then ' 總量有異動時才記錄
.Range("A" & WR).Resize(1, 8) = .[A2].Resize(1, 8).Value
.Range("G" & WR).Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")
.Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)
End If
End With
Application.ScreenUpdating = True
End Sub

複製代碼

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

24^#

發表於 2015-12-31 08:43 | 只看該作者

回復 23# c_c_lai

C大謝謝你，這陣子真是麻煩妳了，感謝

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

25^#

發表於 2015-12-31 13:59 | 只看該作者

回復 23# c_c_lai

紅色255，那其他顏色呢??例如藍色??
有顏色的對照表嗎??

c_c_lai

博士班 Rank: 6 Rank: 6

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

26^#

發表於 2015-12-31 15:26 | 只看該作者

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

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

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

27^#

發表於 2016-1-1 12:19 | 只看該作者

本帖最後由藍天麗池於 2016-1-1 12:32 編輯

回復 26# c_c_lai

.Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)可是這裡面沒有RGB(0,0,255)選項阿??
那要怎麼改呢??
是改成這樣嗎??.Range("G" & WR).Font.Color = IIf(.[G2] > 9, RGB(0,0,255), 2)