¦p¦óÅý³Ì·sªº¸ê®Æ³£¼g¦b¤W±??
- ©«¤l
- 364
- ¥DÃD
- 39
- ºëµØ
- 0
- ¿n¤À
- 404
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-4-18
|
¦p¦óÅý³Ì·sªº¸ê®Æ³£¼g¦b¤W±??
ÅÜ°Ê°O¿ý.rar (20.51 KB)
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 + 1n«ç»ò§ï?? |
|
|
|
|
|
|
- ©«¤l
- 364
- ¥DÃD
- 39
- ºëµØ
- 0
- ¿n¤À
- 404
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-4-18
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 364
- ¥DÃD
- 39
- ºëµØ
- 0
- ¿n¤À
- 404
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-4-18
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-28 14:23 ½s¿è
¦^´_ 3# c_c_lai
C¤j¥i¥H§i¶D§Ú³o¨Çµ{¦¡½Xn¶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 |
|
|
|
|
|
|