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

¤À³Î or ­áµ²

¤£À´·N«ä...
±zªº·N«ä¬O»¡  ­n±N¬YÄæ¦ì©T©w¤£°Ê¡AµM«á ¬d¬Ý¨ä¥L¸ê®Æ®É­Ô¥i¥H¤W¤U±²°Ê???

TOP

À˵ø/¶}·sµøµ¡/¨Ã±ÆÅã¥Ü/««ª½¨Ã±Æ/¨ú®ø¦P¨B±²°Ê
Hsieh µoªí©ó 2011-6-20 17:55



    ª©¤j ¥L¬O»¡¦P¤u§@ªí~~
ª©¤jªº§@ªk¬O¨â­Ó¤u§@ªí§a...
¦L¶H¤¤ 2¤d¬O¦³­Ó¥i¥H±N©T©wÄæ¦ì©T©wµM«á ¤â°Ê¤W¤U²¾°Êªº¥\¯à ¦ý¬O¦~¥N¤Ó¤[»· §Ñ°O«ç³]©w¤F= =

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-6-21 10:11 ½s¿è

¦^´_ 1# color790


   

¦³¸ÕµÛ°µ¤F¤@­Ó ²Ä¤@¦æ ²Ä¤@¦C ©T©w°_¨Óªº ~~ ¸ÕÅç¬Ý¬Ý§a


off2007 ¥i¥H¥Î¤À³Îªº¥\¯à~~




­áµ².rar (8.27 KB)
  1. Sub Macro2()
  2. '
  3. ' Macro2 Macro
  4. '
  5. ' §Ö³tÁä: Ctrl+f
  6. '
  7.     Columns("A:A").Select   ' ³oÃ䪺¸Ü ¥i¥H³]©w¦h­ÓÄæ¦ì ¦p A:B ©Î B:C µ¥µ¥¤§Ãþªº
  8.     ActiveWindow.SmallScroll Down:=-21
  9.     With ActiveWindow
  10.         .SplitColumn = 1
  11.         .SplitRow = 0
  12.     End With
  13.     ActiveWindow.FreezePanes = True
  14.    
  15.     Rows("2:2").Select   
  16.     ActiveWindow.SmallScroll Down:=-21
  17.     With ActiveWindow
  18.         .SplitColumn = 1
  19.         .SplitRow = 1
  20.     End With
  21.     ActiveWindow.FreezePanes = True

  22. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# color790


    ¦pªG¬O¥Î©T©wªº¸Ü ¥u¯à©T©w~ ¤W¤U²¾°Ê~~

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD