¦p¦óÅý³Ì·sªº¸ê®Æ³£¼g¦b¤W­±??

ÂŤÑÄR¦À

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

¤U¸ü¦¸¼Æ: 7

2015-12-27 18:59

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

WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 8
   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

µ{¦¡½X¦p¤W¡A¥Ø«e¬O³Ì·s¸ê®Æ·|©¹¤U¼g¡A¦pªG§Ú­n§ï¦¨³Ì·sªº¸ê®Æ³£¥X²{¦bA3Äæ(´N¬O©¹¤W¼g)³oÃäWR = Range("A1").End(xlDown).Row + 1­n«ç»ò§ï??

koo

­n³£¦bA3¿é¤J¸ê®Æ´N¥²¶·¼g¤J¸ê®Æ«e´¡¤J¤@¦C
Rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A2] = TimeValue(Now)
For I = 1 To 8
   Cells(3, I) = Cells(2, I)
Next 'I

c_c_lai

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

1.     Application.ScreenUpdating = False
   
2.    
   
3.     With Sheets("RTD")
   
4.         .Rows(3).Insert
   
5.         .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
   
6.     End With
   
7.     Application.ScreenUpdating = True

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 2# koo


    K¤j§Ú¤W¦¸¤Ö¶K¤F¤@¨Çµ{¦¡½X¡A¦pªGÁÙ­n¥[¤WG2¦³Åܰʤ~¬ö¿ýªº±ø¥ó­n¦p¦ó­×§ï??

WR = Range("A1").End(xlDown).Row + 1
'ActiveWindow.ScrollRow = WR - 5 '¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
If (WR = 3) Or _
   (Range("G" & WR - 1) <> Range("G2")) Then 'Á`¶q¦³²§°Ê®É¤~°O¿ý
   For I = 1 To 8
      Cells(WR, I) = Cells(2, I)
   Next 'I

ÂŤÑÄR¦À

¦^´_ 3# c_c_lai


    C¤j¥i¥H§i¶D§Ú³o¨Çµ{¦¡½X­n¶K¦b­þ¸Ì¡AÁÙ¦³¨º¨Ç¦a¤è­n­×§ï¶Ü??
¥t¥~¡A¤§«e¦³¨Çµ{¦¡½X¨S¶K¨ì¡A©êºp
¸Ì­±ÁÙ¦³G2Åܰʤ~¬ö¿ýªº±ø¥ó

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

If Range("H2") < 1 Then Exit Sub



WR = Range("A1").End(xlDown).Row + 1
'ActiveWindow.ScrollRow = WR - 5 '¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
If (WR = 3) Or _
   (Range("G" & WR - 1) <> Range("G2")) Then 'Á`¶q¦³²§°Ê®É¤~°O¿ý
   For I = 1 To 8
      Cells(WR, I) = Cells(2, I)
   Next 'I
End If
Application.ScreenUpdating = False
    With Sheets("RTD")
        .Rows(3).Insert
        .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
    End With
    Application.ScreenUpdating = True
End Sub

c_c_lai

¦^´_ 5# ÂŤÑÄ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