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

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

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 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ªº!!

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD