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

藍天麗池

Sub RecordPrice()
Dim WR As Long
Dim I As Long

WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 42
   Cells(WR, I) = Cells(2, I)
Next 'I
With ActiveWindow
        If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 1
    End With
End Sub

以上程式碼如果我要將A1粗體的數字往下寫，Cells(WR, I) = Cells(2, I)這個地方要怎麼改??
目前往下寫粗體就會消失了

藍天麗池

回復 32# c_c_lai


    C大你好，又來請教您了，可以麻煩您有空幫我看看嗎??謝謝你
http://forum.twbts.com/viewthrea ... amp;extra=#pid86580

藍天麗池

回復 32# c_c_lai

C大我了解了，謝謝

c_c_lai

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

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

複製代碼

c_c_lai

回復 30# 藍天麗池

下載 (13.98 KB)

2016-1-1 17:04

藍天麗池

回復 29# c_c_lai


    那如果用方式一改成藍色呢??

c_c_lai

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

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

複製代碼

下載 (47.29 KB)

2016-1-1 13:56

藍天麗池

回復 26# c_c_lai


     .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)另外255後面的2又是甚麼意思呢??

藍天麗池

回復 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)

c_c_lai

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