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

VBA°ÝÃD ½Ð°Ý¦p¦ó§Q¥ÎVBAÅý¸ê®Æ¨C¦¸°õ¦æ«á¦Û°Ê¶K¤W¨ì³Ì«á¤@®æ

VBA°ÝÃD ½Ð°Ý¦p¦ó§Q¥ÎVBAÅý¸ê®Æ¨C¦¸°õ¦æ«á¦Û°Ê¶K¤W¨ì³Ì«á¤@®æ

¦U¦ì¤j¤j¦n
½Ð°Ý­Y·Q­n§âªþ¥óªºSHEET3¸Ì­±ªºB31:H31
                                                               »PB33:H33
·í°õ¦æ¥¨¶°®É·|¦Û°Ê¶K¨ìSHEET1ªºB2:G2   
                                             »PSHEET2ªºB:G2
¨Ã¥B¨C¦¸°õ¦æ³£Ã¸¶K¨ì¤U¤@®æ©O??
­Y¯à¸Ñµª¤£³Ó·P¿E

½d¥».rar (22.84 KB)

mony

¦^´_ 1# jimmy121212


  ¸Õ¸Õ

½Æ¥» Xl0000083.rar (228.68 KB)

TOP

ÁÂÁÂowen06 ¤j¤j §Ú¤F¸Ñ¤F ÁÂÁÂ
mony

TOP

¦^´_ 2# owen06


    ¤£¦n·N«ä ½Ð°ÝI=2¸òX=2ªº¥Î·N¬O
   ªì¾ÇªÌ½Ð¤j¤j«ü¾É ÁÂÁÂ
mony

TOP

¦^´_ 4# jimmy121212
·Q¦A½Ð°Ý¤j¤j ¦pªþ¥ó »P¥ý«e¤@¼ËÁÙ­n¦A¥[¤WA36:M36¶K¨ìSHEET4­n«ç»ò¼g©O ¸Õ¤F¦n´X¦¸³£¥¢±Ñ Àµ½Ð¤j¤jÀ°¦£ ÁÂÁÂ

½Æ¥» Xl0000083.rar (245.25 KB)

mony

TOP

¦^´_ 5# jimmy121212


    ¤£¦n·N«ä¡A¬Q¤Ñ¨º¼Ë¼gªº¤Ó²Â¤F¡A´«¦¨³o¼Ë·|¤ñ¸û¤è«K¡C
    ¥t¥~§A°Ýµ{¦¡¸ÌªºI¸òX¬O¤°»ò·N«ä¡A¨ä¹ê¨S¤°»ò¯S§O·N«ä¡A­Ó¤H²ßºD¦Ó¤w¡A
    ­n³]¤°»ò³£ÀH­Ó¤H³ß¦n¡A¤£­n½Ä¬ð¨ì´N¦n¡C
    ²³æªº»¡¡AFOR ¡K... NEXT¡A¬O¤@°j°éªº¤è¦¡¡A   
    FOR X = 1 TO 10
    CELLS(X ,3)=10
    NEXT
    §A¥ÎF8¤U¥h³v¨B°õ¦æ¡A´N·|µo²{(1,3), (2,3)¤@ª½¨ì(10,3)ªºÀx¦s®æ³£³v­ÓÅܦ¨10¡A
    ³o´N¬O°j°é¡A¦ý¬O¦]¬°§A¦³­­©w¨ì10¡A©Ò¥H¥L¤£·|¦b(11,3)°õ¦æ«ü¥O¡C
    ¦Ó§Ú³]ªº  For X = 2 To Application.CountA(Sheet2.[A:A]) + 1
    ¥L´N¥i¥H¥Î¤½¦¡¥h­pºâ¥X½d³ò¡AÅýXªº³Ì¤j­È¦¨¬°¤@­ÓÅܼơA
    §A¥i¥H¦b§Y®É¹Bºâµøµ¡¿é¤J¡y?Application.CountA(Sheet1.[A:A]) + 1¡z
    ¥h¬Ý¬Ý¨C¦¸¦³·s¼W¸ê®Æ®É¡A¥Lºâ¥X¨Óªºµª®×¬O¤£¬O¦³©Ò¤£¦P¡C
    ¤£¹L¦­¤W·Q·Q³o­Ó¤èªk®¼§bªº¡A§A¥ÎªþÀɪº³o­Ó»yªk²³æ©ú¾é¦h¤F¡C
    ¥H¤W³£¬O¥»ª©¤W­±ªº¤j¤j±Ðªº¡A¨Ó³o¯uªº·|Àò¯q¨}¦h®@~

½Æ¥» Xl0000083.rar (244.76 KB)

TOP

­ì¨Ó¬O³o¼Ë°Ú ¦A¦¸·PÁÂowen06 ¤j¤j  ³o¸Ì°ª¤â¦h¥B¼ö¤ß Ãø©Ç¨ü¯q¨}¦h
mony

TOP

¦^´_ 6# owen06


   ·Q¦A½Ð±Ð ¦pªG­n±N¸ê®Æ¶K¨ì¥t¤@­ÓWORKBOOK­n«ç¼Ë¼g©O??¤£¦n·N«ä §Ú¨S¦³°ò¦ ¸Õ¤F¦n¤[³£¤£¦æ  §Æ±æ±z¥i¥H±Ð±Ð§Ú
·P®¦
mony

TOP

¦^´_ 8# jimmy121212
  1. Private Sub CommandButton1_Click()
  2.     Dim Sh(1 To 4) As Worksheet
  3.     Set Sh(1) = Workbooks("a.xls").Sheets("Sheet1")   '¥t¤@­ÓWORKBOOK
  4.     Set Sh(2) = Workbooks("a.xls").Sheets("Sheet2")   '¥t¤@­ÓWORKBOOK
  5.     Set Sh(3) = Workbooks("a.xls").Sheets("Sheet4")   '¥t¤@­ÓWORKBOOK
  6.    
  7.     Set Sh(4) = Workbooks("bbb.xls").Sheets("Sheet3") '¸ê®ÆÀÉWORKBOOK
  8.    
  9.     Sh(1).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B31:H31].Columns.Count) = Sh(4).[B31:H31].Value
  10.     Sh(2).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B33:H33].Columns.Count) = Sh(4).[B33:H33].Value
  11.     Sh(3).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[a36:m36].Columns.Count) = Sh(4).[a36:m36].Value

  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ jimmy121212 ©ó 2013-11-11 17:03 ½s¿è

[attach]16665[/attach]¦^´_ 9# GBKEE


   GBKEE¤j¤j ¤p§Ì¸Õ¹L¦h¦¸ ÁÙ¬O¿ù»~  ¤p§Ì«pÃCªº·Q½Ð°Ý:dizzy:  ¤£ª¾±z¥i§_À°§Ú¼g¤W §Ú¦AºCºC¹ï·Ó¾Ç²ß
§Ú­n±N"¥~¸ê¤Î¨ä¦ÛÀç"Àɮפ¤*¨C¤é·§ºâªí*ùتº(B37:E37)»P(B38:E38)¦Û°Ê½Æ»s¨ìÀÉ®×*¾ú¥v¥¼¥­­Üªº(E:H)»P(R:U)

  ·PÁÂ

a¥~¸ê¤Î¦ÛÀç-1.rar (550.97 KB)

c¾ä¥v¥¼¥­­Ü.rar (308.11 KB)

mony

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD