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

¦b©T©w½d³ò¾Þ§@

¦b©T©w½d³ò¾Þ§@

½Ð±Ð¦U¦ì¤j¤j:
      ¤p§Ì»s§@¤@EXCELªí®æ¡A§Æ±æ¨Ï¥ÎªÌ¥u¯à©ó¤@©w½d³ò¤º¾Þ§@¡A¥B¨CKEY IN ¤@Àx¦s®æ«á§Y¦V¥k¤@®æ¡A¦ÜGÄæ®É¦Û°Ê´«¦æ¦Ü¤U¤@¦C²Ä¤@Äæ
           ¨Ò¦p:
             1.§Æ±æ¨Ï¥ÎªÌ©óB1~G65536½d³ò¤º°O¿ý¸ê®Æ¡C
                      2.·í¨Ï¥ÎªÌ¥ÑB2¿é¤J¸ê®Æ§¹¦¨«á§Y¸õ¦ÜC2(¦V¥k¤@Äæ)¡C
             3.·í¿é¤J¦ÜG2§¹¦¨«á¸õ¦ÜB3¡C

½Ð¦U¦ì¤j¤j½ç±Ð

¦^´_ 1# baa168

¥i¥H¸ÕµÛ³o¼Ë°µ¬Ý¬Ý¡G
1. ¿ï¾Ü­n«OÅ@ªº¤u§@ªí¡A¥kÀ»¤u§@ªí¼ÐÅÒ¿ï¾Ü¡§À˵øµ{¦¡½X¡¨¡A¥X²{VBA½s¿è¾¹µøµ¡
2. ±N´å¼Ð©w¦ì¨ìÄݩʵøµ¡¤¤ªº¡§ScrollArea¡¨ÄÝ©Ê¡]­º¦¸¨Ï¥Î®É­n«öF4Áä¤~¯à¬Ý¨ìÄݩʵøµ¡¡^
3. ¦bÄݩʭȮؤ¤¿é¤J B1:B65536
4. Ãö³¬VBA½s¿è¾¹ªð¦^¤u§@ªí¤¤
5. ¦b ¤u¨ã/¿ï¶µ/½s¿è  ¤¤¡A³]©w "«öEnterÁä«á¡A²¾°Ê¿ï¨ú½d³ò¡A¤è¦V¬° ¥k"

¤£ª¾¹D³o¼Ë¦³µL²Å¦X±zªº­n¨D.......
½Ð°Ñ¦Ò¬Ý¬Ý

TOP

¤p§Ì¬O³o¼Ë¤l°µªº¤£¹D¦X¤£¦X©y   
    Worksheets("Sheet1").ScrollArea = "D2:H50" '±±¨î¿é¤J½d³ò
       Worksheets("Sheet1").Application.MoveAfterReturnDirection = xlToRight '©¹¥k²¾°Ê
       Worksheets("Sheet1").Range("D2").Select

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD