¼x¨D°ª¤âÀ°§Ú¸Ñ¨M¤@¤U³o­Ó°ÝÃD

ÂŤÑÄR¦À

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

¥H¤Wµ{¦¡½X¦pªG§Ú­n±NA1²ÊÅ骺¼Æ¦r©¹¤U¼g¡ACells(WR, I) = Cells(2, I)³o­Ó¦a¤è­n«ç»ò§ï??
¥Ø«e©¹¤U¼g²ÊÅé´N·|®ø¥¢¤F

ÂŤÑÄR¦À

¦^´_ 32# c_c_lai


    C¤j§A¦n¡A¤S¨Ó½Ð±Ð±z¤F¡A¥i¥H³Â·Ð±z¦³ªÅÀ°§Ú¬Ý¬Ý¶Ü??ÁÂÁ§A
http://forum.twbts.com/viewthrea ... amp;extra=#pid86580

ÂŤÑÄR¦À

¦^´_ 32# c_c_lai

C¤j§Ú¤F¸Ñ¤F¡AÁÂÁÂ

c_c_lai

¦^´_ 30# ÂŤÑÄR¦À
¬°¨D¤è«K¡A§A¤]¥i¥H§ï¥Î ColorIndex ªº¥Îªk¡C
½Ð°Ñ¦Ò¡G  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

½Æ»s¥N½X

c_c_lai

¦^´_ 30# ÂŤÑÄR¦À

¤U¸ü (13.98 KB)

2016-1-1 17:04

ÂŤÑÄR¦À

¦^´_ 29# c_c_lai


    ¨º¦pªG¥Î¤è¦¡¤@§ï¦¨ÂŦâ©O??

c_c_lai

¦^´_ 27# ÂŤÑÄR¦À
¥H¤U¥|¦C¡A³£¬O¦P¸q¡G

1.         '  ¤è¦¡¤@
   
2.         .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)
   
3.         '  ¤è¦¡¤G
   
4.         .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, RGB(0, 0, 0))
   
5.         '  ¤è¦¡¤T
   
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))

½Æ»s¥N½X

¤U¸ü (47.29 KB)

2016-1-1 13:56

ÂŤÑÄR¦À

¦^´_ 26# c_c_lai


     .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)¥t¥~255«á­±ªº2¤S¬O¬Æ»ò·N«ä©O??

ÂŤÑÄR¦À

¦^´_ 26# c_c_lai


    .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)¥i¬O³o¸Ì­±¨S¦³RGB(0,0,255)¿ï¶µªü??
¨º­n«ç»ò§ï©O??
¬O§ï¦¨³o¼Ë¶Ü??.Range("G" & WR).Font.Color = IIf(.[G2] > 9, RGB(0,0,255), 2)

c_c_lai

¦^´_ 25# ÂŤÑÄR¦À
°Ñ¦Ò¬Ý¬Ý
©ÎªÌ¬O
Colors