GBKEE

¦^´_ 8# Scott090

1. Option Explicit
   
2. Public a As String   '¤@¯ë¼Ò²Õªº¤Wªº¤½¥ÎÅܼÆ
   
3. Sub Ex() 'OnActionªºµ{¦¡½X
   
4.     a = "EXCEL" '²Ä¤@¦¸«öButton 1 ªº¤å¦r
   
5.       ActiveSheet.Shapes.Range(Array("Button 1")).Select '»Ý´¡¤J«ö¶s(ªí³æ±±¨î¶µ)
   
6.     Selection.OnAction = "'Ex_Macro a'"
   
7.     ActiveCell.Activate
   
8. End Sub
   
9. 
   
10. Sub Ex1()
    
11.     a = "Ex_Macro"
    
12. End Sub
    
13. Sub Ex_Macro(ByRef q As String)
    
14.     MsgBox q
    
15.     Ex1 '²Ä¤G¦¸¥H«á«ö Button 1 ªº¤å¦r
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# Scott090

workbookÃö³¬«á¡A¦A¶}±Ò®É  
ThisWorkbook¼Ò²Õ¤W»Ý¦³³o¨Çµ{¦¡½X

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     a="EXCEL"
   
4. End Sub

½Æ»s¥N½X