ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-3-17 23:24 ½s¿è

°£¿ù.rar (36.73 KB)
½Ð°Ýª©¤W¤j¤j¡A§Ú¤W¶Çªºªþ¥ó¬O¤@­Ó»ù®æÅÜ°Ê´N°O¿ýªºVBA¡A¦ý¬O§Ú¦b°õ¦æªþ¥ó¸Ì­±ªºMacro1®É¡AÀ³¸Ó¸ê®Æ·|§R±¼¡A¥i¬O°õ¦æ§¹«á¤£¦ý¤£·|§R±¼¡AÁÙ·|°¨¤W¥X²{«Ü¦h¤@¼Ëªº¸ê®Æ¡A½Ðª©¤W¤j¤jÀ°§Ú¬Ý¬Ý³o­Ó»yªk¦³¬Æ»ò°ÝÃD¶Ü??

§Úµo²{§â®ÇÃ䪺¤½¦¡§R±¼´N¥¿±`¤F¡A³o¬O¤°»ò­ì¦]??¥i¥H­×§ï¦¨»ù®æÅÜ°Ê´N¬ö¿ý¥B¦P®É«O¦³®ÇÃ䪺¤½¦¡¶Ü??


DDE¦pªG¨S¦³¥i¥H¥ÎÀH«Kªº¼Æ¦r¤U¥h´ú¸Õ

¦^´_ 2# ­ã´£³¡ªL


    ¤j¤jÁÂÁ§Aªº¦n·N¡A¦ý§Ú¤£·|¼g¡A¥u·|²³æªº­×§ï¡A¨S¦³½d¨Ò´N¨S¿ìªk¤F¡A¤£¹LÁÙ¬OÁÂÁ§A

TOP

¦^´_ 4# c_c_lai
¦n¡AÁÂÁÂC¤j

TOP

¦^´_ 4# c_c_lai

C¤j½Ð±Ð¤@¤U³o¬qµ{¦¡½X­n¥[¦b­þ¸Ì??

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-3-22 08:32 ½s¿è

¦^´_ 7# c_c_lai

1.jpg
2016-3-22 08:26
2.jpg
2016-3-22 08:26

  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¼g­n«ç»ò§ïµ{¦¡½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

TOP

¦^´_ 9# c_c_lai


    C¤j§Ú·|¿ù·N¤F¡A­è­è¨S¬Ý¨ì§A«e­±¦³ '¡A§âµ{¦¡mark±¼©Ò¥H§Ú¤~ı±o©_©Ç¡A¬Ý¨ì«á´N¨S°ÝÃD¤F

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-4-7 22:50 ½s¿è

¦^´_ 11# c_c_lai

ªÑ²¼.rar (18.4 KB)
ªÑ²¼.jpg
2016-4-7 22:43

C¤j¦A½Ð±Ð§A¤@¤U¡A§Ú¤§«eªºµ{¦¡½X¬O³]©w¬°¬Y¤@­Ó­ÈÅÜ°Ê´N¬ö¿ý¡A¨º·Q½Ð±Ð¤@¤UC¤j¦pªG§ÚªºÅÜ°Ê­ÈÅܦh­Óªº¤Æµ{¦¡½X­n¦p¦ó§ó§ï??

¨Ò:¦p¹Ï©Ò¥Ü¡A¦pªGC2ÅÜ°Ê´N©¹¤U¬ö¿ýB2-C2¡A¦ý¬O¨ä¥L¤£¬ö¿ý¡A¤U­Ó®É¶¡C2¨SÅÜ°Ê´«E2ÅÜ°Ê¡A«h°O¿ýD2-E2¡A¤@¼Ë¨ä¥L¤£¬ö¿ý¡A¥H¦¹Ãþ±À¡A§ÚªºÅܰʭȭ쥻¥u¦³³]©wIf (WR = 3) Or _  (Range("C" & WR - 1) <> Range("C2")) Then 'Á`¶q¦³²§°Ê®É¤~°O¿ý¡A§Ú²{¦b­n³]©w¦h­Ó¡A©Ò¦³¶qªº³¡¤À³£³]©w¬°ÅÜ°Ê´N¬ö¿ý¡A­n¦p¦ó§ó§ïµ{¦¡½X©O??

TOP

¦^´_ 13# c_c_lai

C¤j¡A¦]¬°¨C¤äªÑ²¼ªº¦¨¥æ®É¶¡¤£¤Ó¤@¼Ë¡A©Ò¥H­n¤À¶}¼g¤J¡A¤£µM­pºâ¤W·|¦³­«Å|

°²³]¥x¿n¹q9:01¤À¦³¦¨¥æ¡A¨ä¥L¨S¦¨¥æ¡A¦pªG¥þ³¡©¹¤U¼g¤J¡A¨ä¥Lªº¨S¦¨¥æ¤]·|¼g¤J¡A³o¼Ë³y¦¨¨C¤äªÑ²¼ªº¦¨¥æ¶q¦b­pºâ¤W·|­«½Æ¡A¦Ó¥B¦pªG¤À¶}¼g¤J¸ê®Æ¶q¤]¤¬¤ñ¸û¤Ö¤£¬O¶Ü??

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-4-8 10:15 ½s¿è

¦^´_ 15# c_c_lai


    C¤j¡A¨S¿ù¡A¦ý¬O¥i¥HÅý¤¤¶¡ªºªÅ®æ¤£¨£¡A¤]´N¬O»¡¸ê®Æ¬O³sÄòªº¡A¥H¥x¿n¹q¨Ó»¡¤W¹Ï¥Ü¥X²{¦bB10-C11¡AÅý¸ê®Æ³sÄò¡A¥X²{¦bB8-C9¡A³o¼Ë¥i¥H¶Ü??

TOP

¦^´_ 17# c_c_lai
ªÑ²¼-1.rar (18.51 KB)

§Ú¬O¥´ºâ¤§«á¦h¤@Äæ¨Ó¼g¤J®É¶¡¡AÅý¨C­Ó®É¶¡³£¤À¶}¡AC¤j«ç»ò¬Ý??

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD