GBKEE

¦^´_ 1# ¤Ú§J´µ
ªí³æ»Ý¥¢¥hµùÂI¤è¥i
UserFormµ{¦¡½X

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     [a7].Select
   
4.     Me.Hide
   
5. End Sub
   
6. Private Sub UserForm_Initialize()
   
7.     Application.OnKey "%n", "Show_Userform"
   
8.     '«ö¤U²Õ¦XÁä: [Alr]+ N : °õ¦æµ{¦¡
   
9. End Sub
   
10. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
11.     Application.OnKey "%n"                   '®ø°£²Õ¦XÁä [Alr]+ N
    
12. End Sub

½Æ»s¥N½X

¤@¯ë¼Ò²Õµ{¦¡½X

1. Option Explicit
   
2. Sub Show_UserForm()
   
3.     UserForm1.Show
   
4. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# ¤Ú§J´µ
2# »¡: ªí³æ»Ý¥¢¥hµùÂI¤è¥i,
©Î¥t¥Î¥\¯àªí.
¤@¯ë¼Ò²Õµ{¦¡½X

1. Private Sub auto_open()
   
2.     On Error Resume Next
   
3.     Application.CommandBars("New Bar").Delete
   
4.     With CommandBars.Add("New Bar", msoBarFloating, , 1)
   
5.          .Visible = True
   
6.          With .Controls.Add(msoControlButton)
   
7.             .Style = msoButtonIconAndCaption
   
8.             .FaceId = 351
   
9.             .Width = 100
   
10.             .Height = 50
    
11.             .Caption = "Control..."
    
12.             .OnAction = "test"    '«ö¤U©Ò°õ¦æªºµ{¦¡
    
13.          End With
    
14.    
    
15.     End With
    
16. End Sub
    
17. Private Sub auto_close()
    
18.     Application.CommandBars("New Bar").Delete
    
19. End Sub
    
20. Private Sub test()
    
21.     [a7].Select
    
22. End Sub

½Æ»s¥N½X