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

[µo°Ý] ¿ù»~1004

¦^´_ 1# li_hsien
Sub CommandButton1_Click() ³oµ{§Ç¬O¤u§@ªíª«¥ó¼Ò²Õ¤¤ªºµ{§Ç ¹ï¶Ü?

  1.          With Worksheets(i)
  2.               .Range(.Cells(j, 1), .Cells(j, 23)).Copy      '¥¿½T
  3.              ' .Range(Cells(j, 1), Cells(j, 23)).Copy       '¿ù»~1004
  4.              ' ³oCells(j, 1), Cells(j, 23) ¬O³oµ{§Ç¤u§@ªíª«¥ó¼Ò²Õ¤¤ªºCells
  5.              '²Õ¦X¦b.Range( , )·|¿ù»~  1004
  6.          With End
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# li_hsien
·Q¯}ÀY¤@ª½§ä¤£¨ì

©ñ¦b¤@¯ë¼Ò²Õ(Module)©Î ThisWorkbook,¤£·|¦³¿ù»~,¦ý .Range(Cells(j, 1), Cells(j, 23)).Copy      
³oCells(j, 1)¬O§@¥Î¤¤¤u§@ªíªºCells(j, 1),¤£¬OWith Worksheets(i)ªºCells(j, 1)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD