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

chaoyiho

¦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. 
    
26. ....

½Æ»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..

­ã´£³¡ªL

¿ý»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
¡@

ML089

¦^´_ 1# chaoyiho

¬Ý³o½g»¡©ú
http://forum.twbts.com/thread-23-1-1.html

chaoyiho

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

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

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

«D±`·PÁÂ