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

¤â°Ê»s§@¥¨¶°µ{¦¡½X¹L©óÁcÂø°ÝÃD(¦p¦óºë²µ{¦¡½X)

¤â°Ê»s§@¥¨¶°µ{¦¡½X¹L©óÁcÂø°ÝÃD(¦p¦óºë²µ{¦¡½X)

¦pÃD

½Ð°Ý¦U¦ì«e½ú¡A¤p§Ì¦b«e´X½g¬Ý¨£¦³¤H°ÝÁôÂ꺰ÝÃD
©ó¬OÀ˵ø¤F§Ú¦Û¤vªº»yªk
¦]¬°¬O¥Î¿ý¥¨¶°ªº¤è¦¡¦Û¾Çªº¡A©Ò¥Hµ{¦¡½XÁ`¬O¥i¥Hµo²{³\³\¦h¦hªº­«½Æ
¹³¬O
  1. Sheets("Pmax").Select
  2.     Columns("C:AI").Select
  3.     Selection.EntireColumn.Hidden = True
  4.     Columns("AK:BC").Select
  5.     Selection.EntireColumn.Hidden = True
  6.     Columns("BE:BQ").Select
  7.     Selection.EntireColumn.Hidden = True
  8.     Columns("BS:CE").Select
  9.     Selection.EntireColumn.Hidden = True
  10.     Columns("CG:DI").Select
  11.     Selection.EntireColumn.Hidden = True
  12.     Columns("DV:IB").Select
  13.     Selection.EntireColumn.Hidden = True
  14.     Columns("ID:IG").Select
  15.     Selection.EntireColumn.Hidden = True
½Æ»s¥N½X
³o¼ËªºªF¦è
©Î¬O
  1. ActiveWindow.ScrollRow = 6
  2.     Sheets("Liner").Select
  3.     Sheets("Liner").Copy Before:=Sheets(1)
  4.     Sheets("Liner (2)").Select
  5.     Sheets("Liner (2)").Name = "Á`ªí"
  6.     Columns("B:GJ").Select
  7.     Selection.EntireColumn.Hidden = False
  8.     ActiveWindow.ScrollColumn = 4
  9.     ActiveWindow.ScrollColumn = 3
  10.     Sheets("Á`ªí").Select
  11.     Sheets("Á`ªí").Copy Before:=Sheets(2)
  12.     Sheets("Á`ªí").Select
  13.     Sheets("Á`ªí").Copy Before:=Sheets(1)
  14.     Sheets("Á`ªí").Select
  15.     Sheets("Á`ªí").Move Before:=Sheets(1)
  16.     Sheets("Á`ªí").Select
  17.     Sheets("Á`ªí").Copy Before:=Sheets(2)
  18.     Sheets("Á`ªí (4)").Select
  19.     Sheets("Á`ªí (4)").Name = "Sav"
  20.     Columns("C:AX").Select
  21.     Selection.EntireColumn.Hidden = True
  22.     Columns("BA:BM").Select
  23.     Selection.EntireColumn.Hidden = True
  24.     Columns("BO:CA").Select

  25. ....
½Æ»s¥N½X
³o¼Ë¤l¤£Â_­«½Æ­«½Æ¦A­«½Æªº»yªk¡A¦b½×¾Âª¦¤åª¦¤F¤@°}¤l
µo²{¤]³\¬O¤Ó²³æ ©Ò¥H¨S¤°»ò¤H¦A°Q½×³o­Ó°ÝÃD
©Ò¥H·Q»¡­n¨Ó½Ð¯q¤@¤U¦U¦ì°ª¤â«e½ú
§Ú¸Ó«ç»ò°µºë²©O?
¤£µMÃe¤jªºµ{¦¡½X¯uªº·|Åýµ{¦¡¶]ªº¶V¨Ó¶VºC..

¿ý»s®É¡A¡e¿ï¨ú¡f³o­Ó°Ê§@¤]·|²£¥Íµ{¦¡½X¡A¥ç§Y¡e¦³¢±­Ó°Ê§@¡f
¢°¡DColumns("C:E").Select
¢±¡DSelection.EntireColumn.Hidden = True

¥i¥H¨Ö¬°¤@¦æ Columns("C:E").EntireColumn.Hidden = True
¬Ù²¤ Select ¤Î Selection¡A

¥t¤]¥i¥Î¡GRange("C:E").EntireColumn.Hidden = True

­Y¬°¡e¤£³sÄò¡f¦hÄæ¦ì¡A«h¥i¡G
Range("C:E,G:H,K:M").EntireColumn.Hidden = True
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×

¥H¤U­Y¤£¶·¸õÂà¤u§@ªí¬°¡e·í«e¡f§@¥Î¡A«h Select ¨º¦æ¤]¥i§R°£¡G
Sheets("Liner").Select¡@¥i§R
Sheets("Liner").Copy Before:=Sheets(1)

Sheets("Liner (2)").Select¡@¥i§R

Sheets("Liner (2)").Name = "Á`ªí"

¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¿ý»sªºµ{¦¡½X¡A³Ì¦n¦Û¤v¸ÕµÛ¥h§ï¡A±q¿ù»~¤¤¥h­×¥¿¡A³o¤]¬O¾Ç²ß¤èªk¤§¤@¡A
·íµM¥h¦h¬Ý§O¤H¼gªº§ó¥i¥H¹ï·Ó¦A¥h­×§ï¡A
¤£­n¤@ªÑ¸£ªº­ì½X´N®³¥X¨Ó°Ý¡A¦]¬°³o¬O°ò¦°ÝÃD¡A¤j·§¨S¤H·|¦^µªªº¡A
VBE¤º«Ø»¡©úÀɦ³®É¶¡¦h¬Ý¬Ý¡A¦³¤F°ò¥»»{ÃÑ¡A¦A¨Ó°Ý¸û¶i¶¥ªº°ÝÃD¡I
¡@

TOP

¦^´_ 1# chaoyiho

¬Ý³o½g»¡©ú
http://forum.twbts.com/thread-23-1-1.html
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ¨â¦ìª©¥Dªº¥Î¤ß¡A¯uªº¨ü±Ð¤F!

§Ú·|«ùÄò¾Ç²ßªº ¦³°ÝÃD¤]ÁٽЦU¦ì«e½úÀ°¦£!

«D±`·PÁÂ

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD