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

[­ì³Ð] ¥Î¨ä¥L¤èªk«OÅ@¤u§@ªí

[­ì³Ð] ¥Î¨ä¥L¤èªk«OÅ@¤u§@ªí

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2010-5-5 22:25 ½s¿è

§A¥i¥H¸Õ¬Ý¬Ý¶}¤£¶}¥¨¶°ªº¼vÅT
¦¹Àɪº¥\¯à¬°¨Ï¥Î¥¨¶°ªí
»s§@±K½Xµøµ¡
¿é¤J±K½X¤~¯à¨Ï¥Î¤u§@ªí
¥uÅý¤HÆ[¬Ý¤º®e¦ý¤£¯à­×§ï¥]¬A¦C¦L
­×§ï±K½X¬°:11686106
¤£¶}±Ò¥¨¶°¤£¯à¨Ï¥Î
(2007ª©¥H«á¤£¶}±Ò¥¨¶°®É¥¨¶°ªí¦³¥¢®Äª¬ªp/¶}±Ò¥¨¶°®É«h¥¿±`)

¶O¥Î¤ÀÅu.rar (63.35 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-1-30 16:54 ½s¿è

¶}±ÒÀÉ®×«á °õ¦æ¦¹µ{§Ç ,¥i©ú¾éªü¦N¥Sªº§@ªk.
  1. Sub Ex()
  2.      Dim Sh As Worksheet, Excel4MacroSheet$
  3.      With ActiveWorkbook
  4.         .Unprotect "11686106"
  5.         For Each Sh In .Sheets
  6.             If Sh.Type = xlExcel4MacroSheet Then
  7.                 Excel4MacroSheet = Sh.name
  8.                 Sh.Visible = True
  9.             End If
  10.         Next
  11.         With .Sheets.Add(Type:=xlExcel4MacroSheet)
  12.             ActiveWorkbook.Sheets(Excel4MacroSheet).Cells.Copy .[a1]
  13.             .Columns.Hidden = False
  14.             .Rows.Hidden = False
  15.          End With
  16.     End With
  17. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-1-31 21:36 ½s¿è

^^«Ü°ª¿³
¦³¤H¹ï³o­Ó¸ÜÃD¦³¿³½ì¡A¦³¤H°Ý§Ú³Ì¶}¤ß¤F

³o«h¨Ï¥Î¨ìªº§Þ¥©¦³
1.¬¡­¶Ã¯«OÅ@ 11686106¡A¥Î¨Ó«OÅ@(2.¤u§@ªí «D±`ÁôÂÃ)¦pEXCELªºvisible ¤£¯à³]©w¬°xlsheetcisible
2.¤u§@ªí «D±`ÁôÂáA¥Î¨Ó«OÅ@«O±K(3.¤u§@ªí«OÅ@)
3.¤u§@ªí«OÅ@ 11686106¡A¥Î¨Ó«OÅ@(4.¦C»PÄæ¦ì¼ÐÃDÁôÂÃ)
4.¦C»PÄæ¦ì¼ÐÃDÁôÂáA¥Î¨Ó«O±K(5.Äæ¦CÁôÂÃ)
5.Äæ¦CÁôÂÃ(¶i¤Æ«¬:¨â¦¸¸Ñ°£Äæ¦CÁôÂáA½Ð°Ñ·ÓÄæ¦CÁôÂïµ³Z[­ì³Ð] ÁôÂÃÄæ¦C¤]¬O¤@ªù§Þ¥©¡@¨S¾Ç·|­n³Z§O»¡·|ÁôÂüÚ(³q«h))
¡A¥Î¨Ó«O±K(7.EXCEL 4.0¥¨¶°ªí&¥¨¶°ªí¨ç¼Æ)
6.¦Û°Ê±Ò¥Î©w¸q(½Ð°Ñ·ÓÄæ¦CÁôÂïµ³Z©w¸q¦WºÙªº°g«ä)¡A¥Î¨Ó«OÅ@«O±K(7.EXCEL 4.0¥¨¶°ªí&¥¨¶°ªí¨ç¼Æ)
7.EXCEL 4.0¥¨¶°ªí&¥¨¶°ªí¨ç¼Æ ¥Dµ{¦¡

Àɮ׫D±`¦³½ì¡A½Ð²Ó·P¨ü

TOP

«ôŪ  ªü¦N¥S«OÅ@¤u§@ªí¡BEXCEL 4.0¤ÎÄæ¦CÁôÂó椸µ¥³æ¤¸¡A¯u¬O¨ØªA¡C¨ä¹ê¨Ì¨Ï¥Î¨ìªº§Þ¥©¡A¥i¥H³v¨B¶}±ÒÀɮסA¦ý¬O¤´µLªk´_­ì©Î¦Ü¦Û¤v¹B¥Î¡A§Ú¥ç´¿·j´Mºô¸ô©Î®ÑÄy¡AÁÙ¬O¤£±o¨ä¸Ñ¡A¤£ª¾ ªü¦N¥S¥i§_«üÂI¡A¦óºØºÞ¹D¥i¥H¾Ç²ß¡C
Lin

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-12-1 00:37 ½s¿è

¦^´_ 4# lin

±z¦n «Ü°ª¿³±z¹ï«OÅ@«O±K§Þ¥©¦³¿³½ì
1. ¥«­±¤W®ÑÄy¡B¨ä¥Lºô¯¸¤º¨S¦³¤¶²Ð¬O«Ü¥¿±`ªº¨Æ...ºô¸ô¤W¥Ã»·¤ñ®ÑÄy§ó²`¤J.¦ý¿ù»~¤]§ó¦h.­n¤£µM§Ú´N¤£¥Î±N¤ß±o·J¾ã«á©ñ¦bºô¸ô¤W¤F
    ¦¹½×¾Âºô¤Wªº¨C¤@­Ó½d¨Ò³£¬Oªü¦N¿Ë¦Û¸Õ½m¹L ¦³¼g[­ì³Ð]ªº¬Oªü¦Nªº§@«~»P­ì³Ð·Qªk.¦³¤Þ¥Î©Î¾Ç²ß¨ä¥L¤Hªº·Qªk®É·|¼g¤W¤Þ¥Î/Âà©«
    ¥B§Ú·|±N¨Ó·½µù©ú²M·¡¥H´L­««e½ú
2.¦p¦ó¾Ç²ß:«Øij¤£¥Î¬Ý®Ñ¤F.®Ñ¤WªÖ©w¨S¦³.«Øij±z¥i¥H®Ú¾Ú¿³½ì¤@­Ó¤@­Ó¨ì¦b¦¹½×¾Â¤ºµo°Ý¾Ç²ß¡A·íµM¤]¥i¥H¦b¨ä¥L½×¾Âµo°Ý.
    ¦ý¤£¯à«OÃÒ.¦^µªªºµª®×·|¬O¥¿½Tªº

TOP

ªü¦N¥S:
        ¥Ñ©óÁÙ¤£¯à¶Kªþ¥ó¡AÁc½Ð«ü¾É¥H¤U2­ÓºÃ°Ý¡AÁÂÁÂ
       1.¥Î·Æ¹««ü¼Ð¸m©óªí®æ¥ª¤U¤è¥k©Ô§Y¥i¥X²{¤u§@ªí-ÁôÂÃÄæ¦C®É±`¥Î·f°t¤p§Þ¥©  ¦p¦ó²£¥Í
       2.¥ª¤U¤è¦³¤@¤å¥ó¹Ï§Î·Æ¹«ÂIÀ»§Y¥i¥X²{¨ä¥L¤u§@ªí  ¦p¦ó²£¥Í
Lin

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-12-12 21:06 ½s¿è

1.¥Î·Æ¹««ü¼Ð¸m©óªí®æ¥ª¤U¤è¥k©Ô§Y¥i¥X²{¤u§@ªí-ÁôÂÃÄæ¦C®É±`¥Î·f°t¤p§Þ¥©  ¦p¦ó²£¥Í?
§A»¡ªº¬O³o¼Ë¶Ü?¦pªþ¥ó ¬¡­¶Ã¯1.rar (5.72 KB)


2.¥ª¤U¤è¦³¤@¤å¥ó¹Ï§Î·Æ¹«ÂIÀ»§Y¥i¥X²{¨ä¥L¤u§@ªí  ¦p¦ó²£¥Í?
ANS:³o­Ó¬OEXCEL2007¥H¤Wª©¥»ªº¥\¯à

TOP

¬Oªº¡A¦p¦ó²£¥Í¤u§@ªí¼ÐÅÒÁôÂéO?
¥t¤@°ÝÃD¬O: ¦p¦ó²£¥Í¤u§@ªí¼ÐÅÒ±²¶bÁôÂáAÁÂÁ¡C
Lin

TOP

¦^´_ 8# lin
  1. Option Explicit
  2. Sub Ex()
  3.     ActiveWindow.DisplayWorkbookTabs = False
  4.     'DisplayWorkbookTabs ÄÝ©Ê ¦pªGÅã¥Ü¬¡­¶Ã¯¯Á¤Þ¼ÐÅÒ«h¬° True¡CŪ/¼g Boolean¡C

  5.     '©Î¬O
  6.    
  7.     ActiveWindow.TabRatio = 0
  8.    
  9.     'TabRatio ÄÝ©Ê ¶Ç¦^©Î³]©wµøµ¡¬¡­¶Ã¯¯Á¤Þ¼ÐÅÒ¼e«×»Pµøµ¡¤ô¥­±²¶b¼e«×¤ñ¨Ò (¥i¬° 0 (¹s) ©M 1 ¤§¶¡ªº¼Æ¦r¡F¹w³]­È¬° 0.6)¡CŪ/¼g Double¡C
  10.     '³Æµù
  11.     '¦pªG DisplayWorkbookTabs ³]©w¬° False¡A«h¸ÓÄݩʨS¦³§@¥Î («O¯d¨ä­È¡A¦ý¸Ó­È¤£¼vÅT¿Ã¹õÅã¥Ü)¡C
  12. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ ªü¦N¥S«ü¾É¡A¥t¤@°ÝÃD¦p¦ó²£¥Í¤u§@ªí¼ÐÅÒÁôÂáA½Ð©ó¦³ªÅ®É¦^´_¡AÁÂÁ¡C
Lin

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD