ÂŤÑÄR¦À

¦^´_ 3# jackyq

¤U¸ü (70.28 KB)

2016-3-21 23:16

¤U¸ü (70.88 KB)

2016-3-21 23:17

¤j¤j§A¦n¼F®`¡A¥t¥~¦A½Ð±Ð§A¤@­Ó°ÝÃD¡A¦pªG¥Ø«e¬O±NA2-C2ªº¸ê®Æ©¹¤U¼g¡A§ï¦¨§â¸ê®Æ©ñ¦bC2-E2µM«á©¹¤U¼g­n«ç»ò§ïµ{¦¡½X??
´N¬O±N¹Ï¤@§ï¦¨¹Ï¤G¡A¤W¹Ï¤£¬O§ï¦nªº¡A¬O§Ú¥Î©Ôªº

jackyq

§c,  §Ú·d¯QÀs¤F
³o¼Ë¤~¹ï

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


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

Excel.Application.EnableEvents = 0

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


Excel.Application.EnableEvents = 1

'For I = 1 To 10
'   Cells(WR, I) = Cells(2, I)
'Next 'I
End Sub

jackyq

¼gªk´N©M¤j¤jªº³o½g http://forum.twbts.com/thread-16677-1-1.html  ¤@¼Ë

¥u¬O§A¸Ì­±¦³¤@¬q¼g¿ù

(Range("B" & WR - 1) <> Range("B2")) Then 'Á`¶q¦³²§°Ê®É¤~°O¿ý

(Range("B" & (WR - 1)) <> Range("B2")) Then