¦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«ç»ò§ï??

ÂŤÑÄ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