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

ÂŤÑÄR¦À

¦^´_ 3# c_c_lai

½Ð°ÝC¤j³o­Óµ{¦¡½X­n¥[¦b­þ¸Ì°Ú??

c_c_lai

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

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

½Æ»s¥N½X

ÂŤÑÄR¦À

ÅÜ°Ê°O¿ý.rar (20.51 KB)

¤U¸ü¦¸¼Æ: 9

2015-12-27 16:12

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


1.¥Ø«e¾A¥Î±ø¥ó®æ¦¡¤Æªº¤è¦¡³B²z¡A¦ý¬O­ì¥ýªºµ{¦¡½X©¹¤U¼gªº®É­Ô¥u·|¼g¤J­È¡A¥i¥H§ï¦¨©¹¤U¼g¤£­n¥H±ø¥ó®æ¦¡¤Æªº¤è¦¡¥X²{ ¡A³æ¯Â´N±N¦rÅéÅܲʴN¦n(´N¹³§Ú­Ì±N¤@­ÓÀx¦s®æ¤ºªº¦rÅéÅܲʳo¼Ë)¡A³o¼Ë¥i¥H¶Ü??
2. ¥t¥~¡A§Ú¤U­±³]©wªº¦Û°Ê±²°Ê¡A¥i¥H§ï¦¨¶}Ãöªº¤è¦¡¶Ü(´N¬O¥i¥H¥Î¼öÁä¶}Ãöªº¤è¦¡)??  
ÁÂÁÂG¤j¡A³Ìªñ¤W¨Ó½×¾Âªº¤H¦n¤Ö¡AÁÙ¥H¬°³sG¤j³£¨S¦A¤W¨Ó¤F©O