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

¤@­Ó«OÅ@°ÝÃD,

¦^´_ 30# HUNGCHILIN

½Ð°Ý¤j¤j
¥u¥Î VBAProject «OÅ@VBA ¦w¥þ¶Ü?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ 317 ©ó 2011-1-3 07:46 ½s¿è

¦^´_ 31# basarasy

¦p¤p©f¥ý«eµo°Ý, °±¥Î¥¨¶°®É¤°»ò«OÅ@³£¬O¨S¥Î, ©Î¥i«öhsieh¤jgbkee¤j¤jªº±Ð¾É¤èªk°Ñ¦Ò,,
¦ývba±M®×«OÅ@¦b°±¥Î¥¨¶°®É, ¨ä¥L¤H¥i¥H¬Ý¨ì¥¨¶°«OÅ@¤Uªº¤u§@ªí, µ{¦¡°ÏÁÙ¬O¨S¯à¬Ý¨ì,,

TOP

¦^´_ 32# 317


    ¥i¯à§Úªí¹F¤£¦n.  
§Ú¬O°Ý ¥u¥Î VBAProject «OÅ@VBA   ,VBA¤ºªºªF¦è ¦w¥þ¶Ü?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¤£ª¾³o½g¬O§_¦b§i¶D§Ú¤£­n¦A¼g«OÅ@«O±K©«?¥Ø«e¥u¼g¨ì2/3.----------------------------------------- ...
HUNGCHILIN µoªí©ó 2011-1-2 01:04

¤j®v¨¥­«¤F~
¹ïexcelªì¾ÇªÌªº§Ú¨Ó»¡¡A²{¦b¾Ç«OÅ@«O±Kªº§Þ¥©ÁÙ¤Ó¦­¡A
¦ý¦b¦n©_¤ßªºÅX¨Ï¤U¡AÁÙ¬O¾Ç¤F¤@¨Ç¨Ç¡A
¦]¦¹¡A¦b¤£¬O«Ü¤F¸Ñªº±¡ªp¤U¡A¹ï«OÅ@«O±Kªº¥Øªº²£¥Í³\¦hªº§x´b¡C
´N¹³¥ý«e§Ú¼g¤F¤@­Ó¦¨¥»¸Õºâ¡A
¬°¤F¤u§@ªíªº¬üÆ[(ªì¾ÇªÌ...¸¨¸¨ªøªº¤½¦¡Åý¤H¬Ý¤FÀY·w-.-")
§Ú´N²{¾Ç²{½æ...
¾Ç¤H®a§â¤½¦¡©ñ¦b¥t¤@±i¤u§@ªí¤W¡AµM«á§â¥¦ÁôÂð_¨Ó(¦p¹Ï¤@¤G©Ò¥Ü)
«á¨Ó¡A·í§Ú¾Ç¨ì§ó²³æªºÁôÂä覡(¦p¹Ï¤T)
´NÅý§Ú«Ü§x´b...¬Û¦Pªº§@¥Î¡A§Ú¤S¦ó¥²¤j¶O©P³¹ªºÂ¶¤F¤@¤j°é¡C

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-1-3 22:05 ½s¿è

¦^´_ 33# basarasy

basarasy¥S±z¦n
³o¬O­Ó¦n°ÝÃD¤]¬O¤j®a«ùÄò°Q½×¦h¦~ªº¤@­ÓÃD¥Ø
±q±z¤W¦¸¦bª©¤W´£¥X³o°ÝÃD¤w¸g¥|¤­­Ó¤ë¡A¦b¹Á¸Õ»P¾Þ§@¤¤¬O§_¦³¨ä¥L·P·Q¥i¥H¤À¨É?

³o¦¸·|¦A¦¸¸ß°ÝÀ³¸Ó¬O¦³¨Ç¨Ï¥Î¤Wªº¤ß±o¡A¤~·|¦³³o·P´n

³o°ÝÃDÁ|­Ó¨Ò¤l¡A¦b¦U¤jOFFICEºô¯¸ ªí­±»P¹ê»Ú¤W§¡¤£À°¯}¸Ñ
¦ý¦bºô¯¸¤¤§¡·|¸m©ñVBP¯}¸Ñ³nÅé¡A¦³¤u§@ªí¡A¦³¤u§@ï¡A¦³VBP¯}¸Ñ³£¦³¡A·íµM³Â»¶¤]¤£¨Ò¥~

[­ì³Ð] ²©öª©ªº¥é VBA±M®×¥[¸ÑÂê¾¹¼W¯q¶°

¥H¦¹¬°¨Ò§Ú们¥i¥Hª¾¹D¡AVBP«OÅ@¨Ã¤£¦w¥þ¡A¥u­n±o¨ì¦U¤jºô¯¸¤WÄÀ©ñªº¤u¨ã´N¥i¥H¯}¸Ñ¡C

¦³¼W¥[VBP¨¾Å@ªº§Þ¥©¶Ü? ¦³ ¤£¥u¤@­Ó
§Þ¥©³¡¥÷¤w¸gµo´§¦b«OÅ@«O±K©«ªº³¡¥÷Àɮפ¤¤F¡A´Nµ¥«Ý¤j®a¨Ó«õ±¸...

TOP

¦^´_ 35# HUNGCHILIN

ÁÂÁÂHUNGCHILIN¤j¤jªº»¡©ú.
§Ú¥H¬Ý¹L¤j¤jªº«OÅ@«O±K©«.
¦³¨Ç¤U¸ü«á¤£ª¾¥Îªk.
²©öª©ªº¥é VBA±M®×¥[¸ÑÂê¾¹¼W¯q¶°  ¥u¦³ .xls, .xla, .xlt
§Ú²{¦b¥Îªº³£¬O .xlsx  .xlsm
´Á±æHUNGCHILIN¤j¤jªºVBA±M®×¥[¸ÑÂê¾¹.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

´±°Ý¥i¥H¥u°w¹ï³æ¤@¬¡­¶¶}±Ò®É°µ±K½X«OÅ@¶Ü¡H¨ä¥L¬¡­¶«h¥i¥H¥¿±`¨Ï¥Î....

TOP

¦n¹³¸ò§Ú°Ýªº¦³Ãö,¥i¬O¬Ý¤£À´,¤S¤£¯à¤U¸üÀÉ®×,§Ú­n¥[ªo¤F

TOP

­Y¥H¼s¸q¸ÑÄÀ¡AEXCEL«OÅ@¤è¦¡«Ü¦h¡G
ÀÉ®×¥i¥H¦UºØ¤è¦¡³]©w±K½X¡A¥t¥~¤]¥i¥H³]¬°°ßŪ¡A©Î©ó¦sÀɮɥt¦s³Æ¥÷¡BÁôÂÃÀÉ®×µ¥
Àx¦s®æ¥i³]±K½X«OÅ@¡A¥t¥~¤]¥i¥HÁôÂáB¸s²Õµ¥
¤u§@ªí¥i³]±K½X«OÅ@¡A¥t¥~¤]¥i¥Hscrollarea¡BÁôÂõ¥
¨ä¹êÀ³µø­Ó§O»Ý­n¦Ó¨M©w¨Ï¥Î¤èªk
Lin

TOP

¥»©«³Ì«á¥Ñ infoverdad ©ó 2011-7-19 21:23 ½s¿è

¤À¨É§Ú¤w¥Î¦b¤u§@¤Wªº¤èªk:
Ãö³¬Àɮ׮ɱN¾÷±K¤u§@ªíÁôÂÃ
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. Sheets("­º­¶").Select
  3. Worksheets("Secret").Visible = 2
  4. Me.Save
  5. End Sub

  6. Private Sub Workbook_Open()
  7. Worksheets("Secret").Visible = 2
  8. If InputBox("½Ð¿é¤J±K½X©Î¨ú®ø") = "123" Then
  9.     MsgBox "USER¡A§A¦n!!"
  10.     Worksheets("Secret").Visible = -1
  11.     Sheets("Secret").Cells.Font.ColorIndex = 56
  12. Else
  13.     'MsgBox "§A¦n!!"
  14.     Sheets("Secret").Cells.Font.ColorIndex = 2
  15.     Worksheets("Secret").Visible = 2
  16. End If
  17. End Sub
½Æ»s¥N½X
¥´¶}ÀÉ®×´£¥ÜKEY¤J±K½X"123",«h"SECRET"¤u§@ªí·|¥X²{
­Y¤£¿é¤J±K½X,«h"SECRET"¤u§@ªí·|Ä~Äò³QÁôÂÃ,¥BµLªk¥Î¨ú®øÁôÂ꺤覡¥´¶}!

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD