diabo

¦^´_ 10# devidlin

¤½§i¨C¤ëÀ禬¬°¥xÆW¯S¦³ªº¨î«×¡AÄÝ¡u¸ê°T´¦ÅS¡v¡A(¥Ø«e) ¦X¨ÖÀ禬¬°«D±j¨î¶µ¥Ø¡A2317 Áö¦³¤½§i¦X¨Ö°]³ø¡A¦ý¨Ã¨S¦³¦ÛÄ@¤½§i¡u¦X¨ÖÀ禬¡v.....©Ò¥H¬Ý¤£¨ì....¤£¹L³o¸òExcel VBAµLÃö

chen_cook

¦^´_ 10# devidlin


    ½Ð§äµ¹§A§@ªkµªÂЪº¤H§a!!§Úªº¤èªk¬O¤W­±ªº¥¨¶°!!

tsuneng

¦^´_ 7# chen_cook
§A¦n ,­Ó§O¤ë¥÷¥i¥H¥Î,ÁÂÁÂ!!

¦ý¬O  ³sÄò§ì ªºCOD¤¤,§Ú¤£©ú¥Õ¤U¤G¦Cªº»yªk, ¦p¥i¥H¸Ü½Ð»¡©ú!!

y$ = Range("B1"): m$ = Range("C1"): Ey$ = Range("D1"): Em$ = Range("E1") 'B1&C1 ©l¦~¤ë E1&D1 ²×¦~¤ë

  x = 0: Sheets.Add.Name = "sample": Sheets("sheet1").Select

GBKEE

¦^´_ 13# tsuneng
   :   ¬O³s±µ ¤U¤@­Ó µ{¦¡½X ªº²Å¸¹
¦P

1. y$ = Range("B1")
   
2. m$ = Range("C1")
   
3. Ey$ = Range("D1")
   
4. Em$ = Range("E1")    'B1&C1 ©l¦~¤ë E1&D1 ²×¦~¤ë
   
5. x = 0
   
6. Sheets.Add.Name = "sample"
   
7. Sheets("sheet1").Select

½Æ»s¥N½X

tsuneng

¦^´_ 14# GBKEE
ÁÂÁÂGBKEE¤j¤j!!

©ú¥Õ§Aªº»¡©ú, ­×§ï«á RUN®É·|¦Û°Ê¼W¥[sheets("samlpe")¤ÎSheets(sheet4).Sheets(sheet5).Sheets(sheet6).......
¦ý¬OµLªk§ì¨ì¸ê®Æ,
·|¥d¦b Sheets.Add.Name = "sample"

tsuneng

¦^´_ 14# GBKEE

ÁÂÁÂ chen_cook &  chen_cook  ¤j¤j,

§Ú¤v¸ÕOK ! ·P®¦!!