c_c_lai

¦^´_ 1# ÂŤÑÄR¦À
´£¨Ñ°Ñ¦Ò¡G

1.         .[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé"

½Æ»s¥N½X

c_c_lai

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

1. Sub RecordPrice()
   
2.     Dim WR As Long
   
3. 
   
4.     '  ActiveWindow.ScrollRow = WR - 5 '  ¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
   
5.     Application.ScreenUpdating = False
   
6. 
   
7.     With Sheets("RTD")
   
8.         If .Range("H2") < 1 Then Exit Sub
   
9. 
   
10.         WR = Range("A1").End(xlDown).Row + 1
    
11.         If (WR = 3) Or _
    
12.                 (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý
    
13.             .Rows(3).Insert
    
14.             .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
    
15.             .[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé"
    
16.         End If
    
17.     End With
    
18. 
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 6# ÂŤÑÄR¦À
.

c_c_lai

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

1. If (WR = 3) Or _
   
2. 
   
3.                  (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý

½Æ»s¥N½X

»P

1. If (WR = 3) Or _
   
2.                  (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý

½Æ»s¥N½X

¬O­Ó§¹¥þ¤£¦Pªº±Ô­z¡A¡y_¡z±µÄòªº»y¥y«á­±¬O¤£¯à¦³ªÅ¦æªº¡A§_«h·|¬O­Ó¡u¤£¦Xªkªº»yªk¡v¡C
¥t¥~§A­n­þ­Ó³¡¦ì­nÅã¥Ü¡y²ÊÅé¡z¡A¬O§A­Ó¤H¦Û¦æ³]©wªº¡C½d¨Ò¥u¬O­n§i¶D§A³]©wªº¤èªk¡A
.[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé" ¬O³]©w¸Ó¦æ¥þ¬°¡y²ÊÅé¡z¡A­Y§A¥u­n G Äæ³]©w¬°
¡y²ÊÅé¡z¡A«h«KÀ³§ï¦¨  .[G3].Font.FontStyle = "²ÊÅé"¡CÀH§A­Ó¤H¤§À³¥Î¡C°²³] G2 > 9 ¤~ÅÜ
¬°²ÊÅé¡A«h§ó§ï¦¨¡u .[G3].Font.FontStyle = IIf(.[G2] > 9, "²ÊÅé", "¼Ð·Ç")¡v§Y¥i¡C

c_c_lai

¦^´_ 9# ÂŤÑÄR¦À
¤£¦n·N«ä½Ð°Ý¡u¦P®æ¦¡¤Æ±ø¥ó¡v«üªº¬O¬Æ»ò¡H
¯à§_»¡©ú¤@¤U¡A³o¼Ë§Ú¤~ª¾§A­nªº¬O¤°»ò¡C
³Ì¦n¦³­Ó¨Ò¤lµe¸¬¤@¤U¡A¦]¬°§ÚÁÙ¨S¤ÏÀ³¹L¨Ó¡C

c_c_lai

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

¤U¸ü (32.39 KB)

2015-12-29 20:37

c_c_lai

¦^´_ 16# ÂŤÑÄR¦À
³]©wµ{§Ç¡G

¤U¸ü (52.1 KB)

2015-12-30 07:27

´ú¸Õµ²ªG¡G

¤U¸ü (67.33 KB)

2015-12-30 07:28

c_c_lai

¦^´_ 18# ÂŤÑÄR¦À
§Ú²×©ó¤F¸Ñ§Aªº·N«ä¤F¡C
¦]¬°·íªì§Aªº­ì©lµ{¦¡¸Ì¡A¦³¦p¤U¤§±ø¥ó¡G
(1)
        If .Range("H2") < 1 Then Exit Sub    '  ·í H2 ­È¤p©ó 1 ®É«h¤£³B²z¡Aª½±µ³w¦æ¸õÂ÷¡C
(2)
        WR = Range("A1").End(xlDown).Row + 1

        If (WR = 3) Or (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý

        ·í©Ò¦³¬ö¿ý¬°ªÅ¡A¥ç©Î¬O G2 Äæ­È»P ³Ì«á¤@µ§ªº­È ¤£µ¥®É¤~¥h¼g¤J²Ä¤T¦C (Rows(3)) ¤§
        ¸ê®Æ¡C§AÀˬd¤@¤U§A¸ê®Æ¿ý³Ì«á¤@µ§¤§ G Äæ­È¬°¦ó¡A¬O§_»P G2 Äæ­È¤@­P¡H
        ¦]¬°§Ú¤£ª¾§A­ì¥ý·N¹Ï¬°¦ó¡A¥u¯à·Ó¼g¤J¡C ±q ²Ä¤T¦Cªº¶×¤J (.Rows(3).Insert) ¤è¦¡¨Ó¬Ý¡A
       ¨Ì§Ú­Ó¤Hªº³B²z²ßºD¡A§Ú¬O¤£·|®³¸ê®Æ¿ý³Ì©³¤U(³Ì«á)¤@µ§ªº°O¿ý¤§­È°µ¤ñ¹ï¡A¦]¬°¥Ø«e¤§
       ²Ä¤T¦Cªº¶×¤J­È¤~¬O§A³Ì«á¤§¶×¤J­È (³Ì·sªº¶×¤J­È)¡C©Ò¥H¸g§A¤@»¡§Ú¤~©ú¤F§A³Ì«áªí¹Fªº·N«ä¡C
       À³¸Ó¬O¡G

1.         If (WR = 3) Or (.[G3] <> .[G2]) Then      ' Á`¶q¦³²§°Ê®É¤~°O¿ý

½Æ»s¥N½X

c_c_lai

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

1. Sub RecordPrice()      '  ±q²Ä¤T¦æ´¡¤J¼Ò¦¡
   
2.     Dim WR As Long
   
3. 
   
4.     Application.ScreenUpdating = False
   
5. 
   
6.     With Sheets("RTD")
   
7.         If .Range("H2") < 1 Then Exit Sub
   
8. 
   
9.         WR = Range("A1").End(xlDown).Row + 1
   
10. 
    
11.         If (WR = 3) Or (.[G3] <> .[G2]) Then   ' Á`¶q¦³²§°Ê®É¤~°O¿ý
    
12.             .Rows(3).Insert
    
13.             .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
    
14.             .[G3].Font.FontStyle = IIf(.[G2] > 9, "²ÊÅé", "¼Ð·Ç")
    
15.             .[G3].Font.Color = IIf(.[G2] > 9, 255, 2)
    
16.         End If
    
17.     End With
    
18. 
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X

c_c_lai

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

1. Sub RecordPrice()      '  ©¹¤U»¼¼W¼Ò¦¡
   
2.     Dim WR As Long
   
3. 
   
4.     Application.ScreenUpdating = False
   
5. 
   
6.     With Sheets("RTD")
   
7.         If .Range("H2") < 1 Then Exit Sub
   
8. 
   
9.         WR = Range("A1").End(xlDown).Row + 1
   
10. 
    
11.         If (WR = 3) Or (.Range("G" & WR - 1) <> .[G2]) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý
    
12.             .Range("A" & WR).Resize(1, 8) = .[A2].Resize(1, 8).Value
    
13.             .Range("G" & WR).Font.FontStyle = IIf(.[G2] > 9, "²ÊÅé", "¼Ð·Ç")
    
14.             .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)
    
15.         End If
    
16.     End With
    
17. 
    
18.     Application.ScreenUpdating = True
    
19. End Sub

½Æ»s¥N½X