ªð¦^¦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...ÁÂÁÂ!!!

§Ú¤]·Q¾Ç4.0¥¨¶°
¥i¬O¤j¤j»¡ªº³£¤Ó²`¤F
¦³¨S¦³²L¤@ÂIªºªF¦è°Ú
jeason

TOP

­n¦p¦ó¦b«ü©wªº¤é´Á¨ì´Á®É¬ð¯}VBAProjectÄݩʱK½X«OÅ@¡A¦Û°Ê§R°£Sheet1µ{¦¡°Ïªºµ{¦¡½X
«e´£¬O§A­nª¾¹D±K½X¡A³o¼Ë¨Ì¤é´Á§PÂ_¨Ã«DÃø¨Æ
­Y¤£ª¾±K½XÁÙ¶·­n¯}¸Ñ¤âÄò¡A§xÃø«×¸û°ª¡A¦Ó¥B¤]¤£¹ªÀy¡C

TOP

¦^´_ 11# HUNGCHILIN
4.0ªí¡A¤£±Ò¥Î¥¨¶°´NÃö³¬Àɮתº¤èªk¦b¡A2007¥H«áª©¥»¡A·|¥¢®Ä
2007¥H«áª©¥»§Ú¨S¥Î¹L(¸¨¥î¤F), ³o¬O§Úªº¬Ýªk: ÁöµM¤£·|Ãö³¬ÀÉ®×  ¦ý¤]µLªk±Ò¥Î¥¨¶°¤F.¥iºâ¬O¹F¨ì¼Ó¥Dªº¥Øªº.

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-9-12 21:43 ½s¿è

GB¥SÁ`¬O¯à¦b³Ì§Öªº®É¶¡¤º¡A´£¥X³Ì¨Îªºµª®×¡A¬O³ÌÅý¤H¨ØªAªº
____________________________________________________

¦ÓÃö©ó³o«h§Ú·Q¤F¤@°}¤l:

1.ÀɮצA«ç»ò¼g¡A¥u­n©ó­ì©lÀɤ´¦b¡A´N·|³Q¯}¸Ñ¡A¹J¨ì°ª¤â«Ü®e©ö¯}°£¨S¤°»ò¥Î¡AVBP³QÂê©w«á¡Aµ{¦¡¤´¬O¦³¿ìªk·s¼W»P§R°£µ{¦¡¡A¦ý·|³Q¨¾¬rµ{¦¡»{¬°¬O¯f¬r¡A¤£¬O¦n¤èªk
2. 4.0ªí¡A¤£±Ò¥Î¥¨¶°´NÃö³¬Àɮתº¤èªk¦b¡A2007¥H«áª©¥»¡A·|¥¢®Ä
3.VBPÂê©w¤U¡A¥u¦³SHEETA¤ºªºµ{¦¡­n§R? ³o¤£´NCOPY SHEETA¤º®e¨ì·sSHEET¶K¤W¡AµM«áSHEETA§R°£¡A¦sÀÉ ´N¦n¤F
   À³¸Ó¤£¥Î¯}¸ÑVBPÂê©w.
4. ¤p¤è®×«Ü¦h¡A­Y¥ÎSHEET ªº¤è®×¡A¥i¥Î¤U¦C¤TºØ¡A
A.¦bAUTOOPEN() ¥[¤W¤@­ÓIF THEN ¤é´Á¨ì¤F´N§R°£¤U­±½d¨ÒªºSHEET¡A¦sÀÉ ´N¦n¤F[­ì³Ð] ¤@­Ó¤£¿ùªº«OÅ@«O±K«äºû»Pºc·Q «OÅ@½d¨Ò-¥]¸Ëµ{¦¡¼g¦b¤u§@ªí¤WµM«á°õ¦æµ{¦¡
B.§âµ{¦¡¼g¦b©w¸q¤ºµM«á©w¸qÁôÂð_¨Ó.¥[¤W¤@­ÓIF THEN ¤é´Á¨ì¤F´N§R°£¤U­±½d¨Òªº©w¸q¡A¦sÀÉ ´N¦n¤F[­ì³Ð] ¤@­Ó¤£¿ùªº«OÅ@«O±K«äºû»Pºc·Q «OÅ@½d¨Ò-¥]¸Ëµ{¦¡¼g¦b©w¸q¤ºµM«á°õ¦æµ{¦¡
C.©ÎªÌ¾ã­ÓÀɮצۤv§R°£¦Û¤v¨Ï¥Î¤@¦¸§Y¦Û°Ê§R°£ AND ¨Ï¥Î30¤Ñ«á¦Û°Ê§R°£

¤èªk¯uªº«Ü¦h¡A¦ý³£µLªkÁקK¡A³Q¯}¸Ñ¡A³o¬O¤ñ¸û¿ò¾Ñªº¦a¤è

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

¥»©«³Ì«á¥Ñ 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

·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

¥»©«³Ì«á¥Ñ 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

¥»©«³Ì«á¥Ñ 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

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD