- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-7-28 11:07 ½s¿è
¦^´_ 18# justintoolbox
§Ú§Æ±æ¯àÂÇ¥ÑIJµoµ{§Ç§i¶D§Ú¦³¤Á´«¨ì¥t¤@Ó¿W¥ßEXCEL.
VBA Application ª«¥óªº¨Æ¥ó§ä¤£¨ì¤ä´©ªº¨Æ¥ó.
³o´N¬O¨âÓ¿W¥ßEXCEL.ª«¥óÃþ§OªºApplication¨Æ¥ó.¥i±oª¾¥t¤@Ó¿W¥ßEXCELªº¬¡°Ê.- Option Explicit
- Dim WithEvents APP As Application
- Property Set The_App(P As Object)
- Set APP = P ' ±N APP ÄÝ©Êȳ]¦¨ª«¥ó¡C
- With APP
- .Visible = True
- End With
- End Property
- Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
- MsgBox Wb.Name
- End Sub
- Private Sub APP_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- MsgBox Target.Address(, , , 1, 1)
- End Sub
- Private Sub APP_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
-
- MsgBox "¶i¤J " & Wb.Name
- End Sub
- Private Sub APP_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
- MsgBox "°h¥X " & Wb.Name
- End Sub
- Private Sub APP_WindowResize(ByVal Wb As Workbook, ByVal Wn As Window)
- MsgBox Wn.Caption & "ÅܤƵøµ¡"
- End Sub
½Æ»s¥N½X |
|