¦p¦ó¦b«ü©w®É¶¡¦Û°Ê¦sÀɤÎÃö³¬EXCEL

cdkee

½Ð±Ð¤j¤j¡A­n¦b¤U¤È3®É10¤À¦Û°Ê¦sÀɤÎÃö³¬EXCEL¡AÀ³¸Ó«ç¼Ë¼g¡AÁÂÁ¤j¤j!

apolloooo

§Ú¤]¦³¾Ç¨ì¤@¨Ç¤âªk¤F¡C
xxx.show 0 ©Î  1   ¡A¤]¬O¤@¼Ëªº·N«ä¡C

cdkee

¦^´_ 7# GBKEE


    ¥ýÁÂÁª©¤j¸Ô²ÓÁ¿¸Ñ¡A¤p½ú¦b¾Ç²ß¤¤¡C

GBKEE

¦^´_ 6# cdkee
°Ý1) ¨S¿ù   Application.OnTime "08:22:56", "ThisWorkbook.EX"
µ{§Ç¦b ThisWorkbook,Sheet1,Sheet2 ....µ¥ ª«¥ó¼Ò²Õ »Ý«ü©ú, µ{§Ç¦b¤@¯ë¼Ò²Õ(Module)¤º«h¤£»Ý«ü©úµ{§Ç©Ò¦bªº¼Ò²Õ.
°Ý2) Private Sub EX() <---¦b³o­Ó¨Ò¤l¥ÎPrivate¦³¨S¦³¯S§O·N«ä?  
Sub EX() => Public Sub EX(),¬O¤½¥Îªº¨ä¥Lª«¥ó¼Ò²Õ©Î ¤@¯ë¼Ò²Õ(Module)³£¥i¥H¨Ï¥Îªº.
Private Sub EX() ¬O¨p¥Îªº,¨ä¥Lª«¥ó¼Ò²Õ©Î ¤@¯ë¼Ò²Õ(Module) µLªk¨Ï¥Î.
¨Ò¦p¦³Private Sub EX() ¤Î Sub Example() ¨âµ{§Ç ¦b«ü¥O [¤u¨ã]->[¥¨¶°] ¥u¥i¥H§ä¨ìSub Example()
°Ý3) Private Sub Workbook_BeforeClose(Cancel As Boolean)»PPrivate Sub Workbook_BeforeClose()¦³¤°»ò¤À§O?
Private Sub Workbook_BeforeClose(Cancel As Boolean) ¬O©óÃö³¬Workbook®Éªº¤º«ØIJ°Ê¨Æ¥ó
Private Sub Workbook_BeforeClose()¦]»P¤W­z¤º«ØIJ°Ê¨Æ¥ó¦WºÙ¬Û¦P,¦p¦bThisWorkbookª«¥ó¼Ò²Õ¤º¬O¤£¤¹³\ªº.
°Ý4) ThisWorkbook.Save <---¬O§_º|¼g³o­Ó?   ¬Ý¤£©ú¥Õ§Aªº·N«ä
°Ý5) ThisWorkbook.Close 1    ¥¿¦¡¼gªk ThisWorkbook.Close SaveChanges:=True   (VBA   False=0, True=1)
°Ý6) Sub AUTO_OPEN()...¤£¥ÎPrivate Sub Workbook_Open()¬O¦]¬°¦bModuleªºµ{¦¡¤£¥i¥ÎPrivate?©Î¦³¨ä¥L¦]¯À?
Private Sub Workbook_Open() ¬OWorkbook¶}±Ò®Éªº¤º«ØIJ°Ê¨Æ¥ó,©ñ©óModuleªºµ{¦¡½X¤¤,¤£·|©óÀɮ׶}Àɮɦ۰ʰõ¦æ.
°Ý7) ¤p½ú¤´µM¤À¤£²M¡A¦ó®É¥ÎSheet/ThisWorkbook¡A¦ó®É¥ÎModule?
     ¦h¦h½m²ß«á·|¿Ä·|³e³qªº!!

cdkee

¦^´_ 5# GBKEE


   ÁÂÁ ª©¤jªº¦h¤è±Ð¾É¡A¤p½ú²`³Q·P°Ê!
½Ð±Ðª©¤j:
ThisWorkbookªºµ{¦¡½X¤¤...
°Ý1) Application.OnTime "08:22:56", "ThisWorkbook.EX" <---¬O¦]¬°Private Sub EX() ¦bThisWorkbook¤¤?
°Ý2) Private Sub EX() <---¦b³o­Ó¨Ò¤l¥ÎPrivate¦³¨S¦³¯S§O·N«ä?
°Ý3) Private Sub Workbook_BeforeClose(Cancel As Boolean)»PPrivate Sub Workbook_BeforeClose()¦³¤°»ò¤À§O?
°Ý4) ThisWorkbook.Save <---¬O§_º|¼g³o­Ó?
°Ý5) ThisWorkbook.Close 1¬O§_«üÃö³¬ÀɮצӤ£Ãö³¬EXCEL?'Close'¤§«áªº¼Æ¦r¦³¤°»ò·N«ä?

Moduleªºµ{¦¡½X¤¤...
°Ý6) Sub AUTO_OPEN()...¤£¥ÎPrivate Sub Workbook_Open()¬O¦]¬°¦bModuleªºµ{¦¡¤£¥i¥ÎPrivate?©Î¦³¨ä¥L¦]¯À?

°Ý7) ¤p½ú¤´µM¤À¤£²M¡A¦ó®É¥ÎSheet/ThisWorkbook¡A¦ó®É¥ÎModule?
¤p½ú°ÝÃD¦h¦h¡A·Ð½Ðª©¤j¤Þ¾É¡AÁÂÁÂ!

GBKEE

¦^´_ 4# cdkee
¤G¿ï¤@
ThisWorkbookªºµ{¦¡½X

1. Private Sub Workbook_Open()
   
2.    MsgBox "¶}±Ò Sub Workbook_Open µ{¦¡"
   
3.   With Application
   
4.     'ÁôÂà Ribbon(¥\¯à°Ï)
   
5.     .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
   
6.     .StatusBar = False
   
7.     .CommandBars("Status Bar").Visible = False
   
8.     .StatusBar = True 'False
   
9.     .DisplayFormulaBar = False
   
10.     .DisplayScrollBars = False
    
11.     .Caption = "It's all gone!"
    
12.     .ActiveWindow.DisplayHeadings = False
    
13.     .ActiveWindow.DisplayWorkbookTabs = False
    
14.     '±Nµøµ¡ª¬ºA³]¬°¤@¯ë
    
15.     .WindowState = xlNormal
    
16.     .Width = 250
    
17.     .Height = 250
    
18.   End With
    
19.   Application.OnTime "08:22:56", "ThisWorkbook.EX"
    
20. End Sub
    
21. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
22.     With Application
    
23.         'ÁôÂà Ribbon(¥\¯à°Ï)
    
24.         .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
25.         .CommandBars("Status Bar").Visible = True
    
26.         .DisplayFormulaBar = True
    
27.         .DisplayScrollBars = True
    
28.         .Caption = "It's all gone!"
    
29.         .ActiveWindow.DisplayHeadings = True
    
30.         .ActiveWindow.DisplayWorkbookTabs = True
    
31.         '±Nµøµ¡ª¬ºA³]¬°¤@¯ë
    
32.         .WindowState = xlMaximized
    
33.     End With
    
34.     Application.Quit
    
35. End Sub
    
36. Private Sub EX()
    
37.     ThisWorkbook.Close 1
    
38. End Sub

½Æ»s¥N½X

Moduleªºµ{¦¡½X

1. Sub AUTO_OPEN()
   
2.      With Application
   
3.         'ÁôÂà Ribbon(¥\¯à°Ï)
   
4.         .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
   
5.         .StatusBar = False
   
6.         .CommandBars("Status Bar").Visible = False
   
7.         .StatusBar = True 'False
   
8.         .DisplayFormulaBar = False
   
9.         .DisplayScrollBars = False
   
10.         .Caption = "It's all gone!"
    
11.         .ActiveWindow.DisplayHeadings = False
    
12.         .ActiveWindow.DisplayWorkbookTabs = False
    
13.     '±Nµøµ¡ª¬ºA³]¬°¤@¯ë
    
14.         .WindowState = xlNormal
    
15.         .Width = 250
    
16.         .Height = 250
    
17.     End With
    
18.     Application.OnTime "23:36", "AUTO_CLOSE"
    
19. End Sub
    
20. Sub AUTO_CLOSE()
    
21.     With Application
    
22.         'ÁôÂà Ribbon(¥\¯à°Ï)
    
23.         .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
24.         .CommandBars("Status Bar").Visible = True
    
25.         .DisplayFormulaBar = True
    
26.         .DisplayScrollBars = True
    
27.         .Caption = "It's all gone!"
    
28.         .ActiveWindow.DisplayHeadings = True
    
29.         .ActiveWindow.DisplayWorkbookTabs = True
    
30.     '±Nµøµ¡ª¬ºA³]¬°¤@¯ë
    
31.         .WindowState = xlMaximized
    
32.     End With
    
33.     ThisWorkbook.Save
    
34.     Application.Quit
    
35. End Sub

½Æ»s¥N½X

cdkee

¦^´_ 2# GBKEE


    ÁÂÁª©¤j´`´`µ½»¤¡A¤p½úªì¦¸§¹¦¨¥\½Ò¡A½Ðª©¤jÀË´ú¡AÁÂÁÂ!
hidden.rar (15.86 KB)

¤U¸ü¦¸¼Æ: 13

2010-10-20 23:48

cdkee

¦^´_ 2# GBKEE


    ÁÂÁª©¤j«ü¾É!
¦pªG¦bÁôÂäu¨ã¦C®É¡AÀ³«ç¼Ë§ï¼g¡A¦AÁÂÁª©¤j±Ð±Â!
hidden.rar (12.87 KB)

¤U¸ü¦¸¼Æ: 11

2010-10-20 22:35

GBKEE

¦^´_ 1# cdkee
http://forum.twbts.com/viewthread.php?tid=1657&extra=&page=1

1. Sub Ex()
   
2.     Application.OnTime "15:10", "AUTO_CLOSE"
   
3. End Sub
   
4. Sub AUTO_CLOSE()
   
5.     ThisWorkbook.Save
   
6.     Application.Quit
   
7. End Sub

½Æ»s¥N½X