- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-3-22 08:32 ½s¿è
¦^´_ 7# c_c_lai
1. C¤j§Ú¤£¤ÓÀ´¡A¬°¤°»ò¦h¤FCells(WR, 1).Resize(, 3) = [A2:C2].Value³o¤@¦æµ{¦¡½X°õ¦æ¼Æ«×·|¥[§Ö??
2.¥t¥~¦A½Ð±Ð§A¤@Ó°ÝÃD¡A¦pªG¥Ø«e¬O±NA2-C2ªº¸ê®Æ©¹¤U¼g¡A§ï¦¨§â¸ê®Æ©ñ¦bC2-E2µM«á©¹¤U¼gn«ç»ò§ïµ{¦¡½X??
´N¬O±N¹Ï¤@§ï¦¨¹Ï¤G¡A¤W¹Ï¤£¬O§ï¦nªº¡A¬O§Ú¥Î©Ôªº
3.¥H¤U¬OJ¤j¼gªº¡A½Ð±ÐC¤j¥ÎExcel.Application.EnableEvents ¸ò§Aªº¥ÎchangeþºØ¤ñ¸û§Ö??
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 |
|