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

¤é´Á¤@¨ì´N§R°£¥¨¶°.

¤é´Á¤@¨ì´N§R°£¥¨¶°.

¦p´£:¤é´Á¤@¨ì´N§R°£¯S©wªº¥¨¶°

Sheet1µ{¦¡°Ï¸Ì©ñµÛµ{¦¡½X

­n¦p¦ó¦b«ü©wªº¤é´Á¨ì´Á®É¬ð¯}VBAProjectÄݩʱK½X«OÅ@¡A¦Û°Ê§R°£Sheet1µ{¦¡°Ïªºµ{¦¡½X¡A

²³æ¨Ó»¡¡A¥u­n«ü©wªº¤é´Á¤@¨ì¡A¤£»Ý´£¿ô´N¦Û°Ê§R°£«ü©wªº¤u§@ªí¥¨¶°¡A

½Ð¦U¦ì¥ý¶i¦Ñ®v­Ì¡AÀ°¦£¤@¤U...ÁÂÁÂ!!!

¦^´_ 1# man65boy


¥i§_°Ý¤@°Ý³o¼Ë°µªº¥Øªº¬O???

TOP

¦^´_ 1# man65boy
VBAProjectÄݩʦ³±K½X«OÅ@  ,´NµLªk§R°£Sheet1µ{¦¡°Ïªºµ{¦¡½X.

TOP

¦³®Éµ¹«È¤áªº¸ê®Æ³£¬°¤F¤è«K¡A³£·|¶K¤ßªº¥Î¤@¨Ç¹ê¥Î©Êªº¥¨¶°¡A¦n¤è«K­pºâ§÷®Æ®ø¯Ó¡A¬d¸ß¡A³s±µ¦U­Ó¬ÛÃö¸ê®Æ¡A¦ý........¦n¥Î¡A¤£¥Nªí·|¥s³f>"<

«È¤á»¡ : ¦n¦n..§Aªºexcel¼gªº¦n¡A«Ü¦n¥Î¡A¸ê®Æ¸Ô²Ó¡A¦n­pºâ¡A¦n¬d¸ß¡A¤£¿ù!!!

§Ú·Q¦n¥Î¤]¤£¬Oµ¹©p­Ì­pºâ§O®aªº²£«~¥Îªº¡A

·Q¦b¦Û¤v³]­p¦nªºÀɮ׸̡A¦w¸Ë¤é´Á¤@¨ì´N¦Û°Ê§R°£«ü©wªº¥¨¶°¡A¦]¬°§Ú¦³³]±M®×ÄݩʱK½X¡A¤£ª¾¦³³]±K½XÁÙ·|¤£·|°õ¦æ¡A³æ¯Â¥u¬°¦Û¤vªºÀɮ׳]¸m¡A§OµL·d¥L¤HÀɮתº©ÀÀY!

TOP

°²¨Ï¯à¤é´Á¤@¨ì¥´¶}¬¡­¶Ã¯ªº¦P®É¡A¯à¦Û°Ê¸Ñ¶}VBAProjectÄݩʱK½X¡A§R°£¡A¦b¦Û°ÊÂê±K©O?¥i¦æ¶Ü?
³Â·Ð¦Ñ®v­Ìµ¹­Ó·N¨£!!!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-16 07:19 ½s¿è

¦^´_ 5# man65boy
VBAProjectÄݩʦ³±K½X«OÅ@  ,´NµLªk§R°£µ{¦¡½X.
  1. '¬¡­¶Ã¯¤u§@ªí,´¡¤JExcle 4.0¥¨¶°ªí,©R¦W¬°"4.0"
  2. 'ThisWorkbook ¤¤¥[¤J Workbook_Open
  3. Private Sub Workbook_Open()
  4.     Sheets("4.0").Visible = 2              '¤u§@ªí²`«×ÁôÂÃ
  5.     Dim i As Integer
  6.     If Sheets("4.0").Range("A1") = "" Then '±Ò°Ê½d¥»
  7.         Sheets("4.0").Range("A1") = Date   '¿é¤J¤é´Á
  8.     End If
  9. End Sub
  10. ''''''''SHEET1 ªºCODE  ''''''''''''
  11. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  12.     If Date - Sheets("4.0").Range("A1") >= 15 Then Exit Sub  '¥[¤J¦¹±ø¥ó
  13. End Sub
  14. '¦sÀɬ°½d¥»µ¹«È¤á
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ jackdream ©ó 2011-9-9 16:10 ½s¿è
¦³®Éµ¹«È¤áªº¸ê®Æ³£¬°¤F¤è«K¡A³£·|¶K¤ßªº¥Î¤@¨Ç¹ê¥Î©Êªº¥¨¶°¡A¦n¤è«K­pºâ§÷®Æ®ø¯Ó¡A¬d¸ß¡A³s±µ¦U­Ó¬ÛÃö¸ê®Æ ...


¦pªG«È¤á±NÀɮ׳]°ßŪ,©Î¯}¸Ñvba±K½X,¨ú¥X»yªk..³o¼Ë§R°£¥¨¶°´N¨S§@¥Î¤F.
­Y¤£¾á¤ß¤W­z°ÝÃD(©ÎªÌ³z¹L¤å¦r½s¿è¾¹³oÃþ¤u¨ãÂê¦í¸ÓÀɮתºvba½s¿è¥\¯à)
µM«á,¦b»yªk¸Ì­±³]©w¤@­Ó¤é´Á,·í¤é´Á¤@¨ì®É,§Yµ²§ôµ{¦¡(©Î¬d¸ß¥\¯à¥¢®Ä),
¤£¾å±o¬O§_¤]¯à¹F¨ì±zªº¥Øªº?
¨Ò¦p:
Private Sub Workbook_Open()
If Date > "2011/9/8" Then ActiveWindow.Close  '°²¦p¤é´Á¶W¹L 9/8 §Yª½±µÃö³¬ÀÉ®×
End Sub

¤£¤@©w­nÃö³¬ÀÉ®×,¥i¥H´«¦¨µLªk¬d¸ß¸ê®Æ©Î¨ä¥L»yªk.

TOP

·PÁÂ2¦ì¦Ñ®vªº¦^µª¡A¤×¨ä¬O4.0¥¨¶°ªí³ºµM¥i¦p¦¹ªº¨Ï¥Î¡A¯u¬O¥t¥O¤H¿e¥Øµ²¦Þªü!¼F®`~~

ÁöµM¤£¯à§R°£Sheet1¸Ìªºµ{¦¡½X¡A¤£¹L¥HÅý¥L¦Û°ÊªºµLªk°õ¦æ¥¨¶°¡A¤w¸g¹F¨ì90%ªº¥Ø¼Ð¤F¡A¯u¬O¤Ó·PÁ¤F¡A

¹ï¤F¡A¦b½Ð±Ð¤@¤U¡A¦b¦³4.0¥¨¶°ªíªºÀɮ׸̡A¦pªG¦b¨S¦³VBAProjectÄݩʱK½X«OÅ@¤U¡A¤S¤£ª¾4.0¥¨¶°ªíªº¦WºÙ¡A¦p¦ó§â¥¼ª¾©R¦Wªº4.0¥¨¶°ªí¡A±qÁôÂø̴£

¥XÅã²{¡A¦b¦¸½Ð±Ð¦Ñ®v­Ì´£¨ÑÄ_¶Qªº·N¨£¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-10 06:44 ½s¿è

¦^´_ 9# man65boy
  1. Sub Ex()
  2.     For Each sh In ActiveWorkbook.Sheets
  3.         MsgBox sh.Name
  4.     Next
  5. End Sub
½Æ»s¥N½X
HUNGCHILIN¥S ­n¨Ó¯¸¦ì¸m, §A¥i¥H°Ñ¦Ò¥Lªºµo©«

TOP

¦^´_ 10# GBKEE


    GBKEE¦Ñ®v¡A¹ê¦b¤Ó·PÁ§A¤F¡A¤j®v¯Åªº2©Û¥\¤Ò¡A¥HÅý¤£¤~¤p§Ì"¨ü¥Î¤£ºÉ"¤F¡A·Q¤£­Ë4.0¥¨¶°ªí¦p¦¹ªº¦nª±¡A¥H«á¤@©w·|±`°lÂܦѮvªº§@«~¡A´Ü¨Ø!!!

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD