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

¤@­Ó隠Âäu§@ªíªº°ÝÃD

¤@­Ó隠Âäu§@ªíªº°ÝÃD

¤j¤j­Ì,¦n
¤p§Ì²{¦³¤@°ÝÃD½Ð±Ð, ¤p§Ì¦³¤@excelÀÉ, ¤º¦³15±i¤u§@ªí,²{¤p§Ì·s¼W¤@±i¤u§@ªí, ¤u§@ªí16¨Ã³]©w¬°­º­¶, ·í¥Î®a¶}±Ò¦¹ÀÉ«á, 1¦Ü15¤u§@ªí¥þ隠ÂÃ, ¤¶­±¤w³Ñ¤U¤u§@ªí16, §Ú·Q©ó¦¹¤u§@ªí¤¤¥[¤@«ö¶s, ·í«ö¤U«ö¶s«á,
¼u¥Xµ¡®Ø, ½Ð¿é¤J±K½X, ·í¥Î¿é¤J±K½X«á, 1¦Ü15¤u§@ªí¥þ³¡Åã¥Ü,¦Ó16¤u§@«h隠ÂÃ, ²{½Ð±Ð¦U¤j¤j, ³oÃø«×°ªµ{¦¡¸Ó¦p¦óµÛ¤â,
Book1.rar (7.32 KB)

¦^´_ 1# ©P¤j°¶
thisworkbook¼Ò²Õ
  1. Private Sub Workbook_Open()
  2. Sheets("­º­¶").Visible = True
  3. For Each sh In Sheets
  4.    If sh.Name <> "­º­¶" Then sh.Visible = False
  5. Next
  6. End Sub
½Æ»s¥N½X
Sheet1¼Ò²Õ
  1. Private Sub CommandButton1_Click()
  2. Do Until pw = "12345"
  3.    pw = InputBox("½Ð¿é¤J±K½X")
  4. Loop
  5. For Each sh In Sheets
  6.    If sh.Name <> "­º­¶" Then
  7.    sh.Visible = True
  8.    End If
  9. Next
  10. Sheets("­º­¶").Visible = False
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ et5323 ©ó 2010-9-20 21:37 ½s¿è

Const myCode = "abcd"
Const sPrompt = "½Ð¿é¤J±K½X¡G"
Const sTitle = "±K½X"
Const sMsg = "±K½X¿é¤J¿ù»~!"

jBook1.rar (12.59 KB)

¨ä¹ê³oÃþ¥N½X³£¬O¨¾§g¤l¡A¤£¨¾¤p¤Hªº¡A¨SÔ£¹ê»Ú·N¸q¡C

TOP

¥»©«³Ì«á¥Ñ 317 ©ó 2010-9-20 23:15 ½s¿è

ÁÂÁ¼ӤW两¦ì¤j¤j«e½ú
¨ä¹ê¨Ã¨S¦³¨¾§g¤l, ©Î¨¾¤p¤H·Qªk, ¯uªº, ¤£¹L¬O¤p§Ì¦³¤@ÀÉ®×, ¤º¦³15±i¤u§@ªí, ³oÀɮפ¤¤]¦³¤@¨Ç²³æµ{¦¡,
·Pı¤W, ³oÀɮׯʤF¤@­Ó¤¶­±, ¤ß·Q¨ì¤W­zªí¹Fªº·N¹Ò, °²­Y¥Î®a¥²¶·¥Ñ¦¹¤¶­±¶i¤J, ·íµM³o¤¶­±¬O¸g¹Lµe­±³]­p¬ü¤Æµ¥, ·í¥Î®a¥´¶}Àɮ׫K¬O³o¤¶­±, ³o®ÄªG·|§â¾ã­ÓÀÉ®×¹³¥þ·s¥]¸Ë¯ë, ¦Ó³o¨Ç½ÆÂøµ{¦¡¤p§Ì¹ê¨Sªk§¹¦¨, ¬G½Ð±Ð¤j¤j­Ì,
¦b¦¹ÁÂÁÂ两¦ì¤j¤j, µ{¦¡Áö¥¼¸Õ¥Î, ¦ý°J¤ß·PÁÂÁÂ!!

TOP

§â­º­¶´«¦¨userform§@¤¶­±
inputbox´«¦¨TextBox¨Ó¿é¤J
¶}±ÒÀÉ®×userform´Nshow
±K½X¥¿½Tuserform´NUnload
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Ú¥H爲©p­n°µ«OÅ@.¯à¤£¯à§â©p§¹¦¨ªº¸g¹Lµe­±³]­p¬ü¤Æªº¤¶­±¶Ç¤W¨Ó,ªY½à¾Ç²ß¤@¤U,³o»Ý­n¬ü¤u°ò¦,¤@ª½¤ñ¸û¸r¼}¨º¨Ç¬ü¤u°ª¤â.

TOP

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2010-9-22 22:33 ½s¿è

hsieh¤j¤j et5323¤j¤j
ÁÂÁÂ2¦ì¦^À³, ¦]¦­´X¤Ñ®a¤¤­Ó¤H¹q¸£¥X¤F°ÝÃD,¥u¯à©ó¤Í¦n317®a¤¤¦^À³,¦Ó¤µ¤Ñ¹q¸£­×²z¦n,
¥i¥Î¦^¦Û¤vªº­Ó¤H¸£, et5323¤j¤j, §Ú§â³]¦³¬ü¤Æ¤¶­±ÀɮפW¶Ç, ¦ý¨ä¹ê¨Ã¤£¯A¤Î¬ü¤u°ò¦,
¥u¬O¤@¯ë¤u¯à¤Î¹Ï¤ù, ¤¶­±«Ü´¶³q, ¥i¯à¥O¤j¤j¨£¯º,
Book1.rar (8.35 KB)

TOP

To ©P¤j°¶§@ªÌ~
§Ú³Ìªñ¤]»Ý­nÃþ¦üªº¥\¯à...
§ÚÂI¼Æ¤£°÷¡AÁÙ¤£¯à¤U¸üÀɮסA¤£ª¾¹D§A¥i¤£¥i¥H§âÀÉ®×±Hµ¹§Ú¤À¨É([email protected])
³Â·Ð©p~~

TOP

§ÚÁÙ¦b¾Ç²ß¤F¸Ñ·í¤¤!!!·PÁÂ~
excel~ ¾Ç¦n¥L§a

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD