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

[µo°Ý] dde¶×¤J¼Æ­È«á¶i¦æ½Æ»s°ÝÃD

¦^´_ 9# ²Â¤p«Ä
  1. Sub «ö¶s0_Click()

  2. For i = 1 To 7
  3.     Cells(1, i * 4 - 2).Resize(26, 1) = Cells(1, i * 4).Resize(26, 1).Value
  4. Next i
  5.         
  6. End Sub
½Æ»s¥N½X

TOP

¦¨¥\¤F¡AÁÂÁÂHsiehª©¥D©Mregister313ºô¤ÍÀ°¦£¡C

TOP

¦^´_ 6# Hsieh


    ©Ò¥H­Y±NDDE°T¸¹Âà¤J¸ê®Æ®w¦A¦^±Â¹Bºâ
³o¼Ë¬O§_·|Åý¨t²Î®Ä¯à¦³®Ä´£¤É©O?

TOP

¦^´_ 2# mustang


    DDE°T¸¹¤@¯ë³£¬O±q劵°Ó³nÅé¤W¥ÎEXCELÄæ¦ìÂ^¨ú¨Óªº¡A¥­®É¥H¥N½X§e²{³s³q®É·|¨Ì²{ªpÅã²{¥X¼Æ¾Ú¡A¦ý¦b·Ç½Tºë«×¤W®Ä¯à·¥®t!!!!
¦]¦P¨B¥h¼Ë¤£¦P劵°Ó®É·|µo¥ÍÅã¥Ü¼Æ¾Ú¦³¸¨®t¡A¤£ª¾³o¬O¤£¬O¥xÆW¤~¿W¦³²{¶H¡A¦b°ê¥~DDE¬O¦Ñ¨ó©w¦­³Q²^¨O¤£¥Î¤F!!

µL©`³o¤@¯ë°ê¤º´²¤á¯à¨ú±oªº°T¸¹°ß¤@¨Ì¾Ú¡A©Ò¥H¥u¯àµwµÛÀY¥Ö¨ú¨Ó¥Î¤F!

¥H±d©M¥þ¦hÁȬ°¨Ò¶}±Ò¬Ý½L³nÅé«á¦b¤W¤è§ä(»²§U¤u¨ãÄæA)«ö¥ªÁä·Æ°Ê¥h±Ò°ÊMS EXCEL²£¥ÍªÅ¥ÕÄæ¦ì«á¦A¥H·Æ¹«Â^¨ú³ø»ùÄæ¥h¶K¤W´N¯à²£¥ÍDDE½X!

PS:µ´¹ï¤£¥i¦Û¦æ¶}±ÒEXCEL°µÂ^¨ú³o¼ËµLªk¨ú¼Ë!!ÁÙ¦³¥þ¦hÁȱ`±`·|·í¾÷­n¤p¤ß

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD