[µo°Ý] ½Ð°Ýªí³æ°±¾n°ÝÃD

¤Ú§J´µ

¥Îªí³æ¿é¤J¸ê®Æ,run§¹µ{¦¡«á
³Ì«á¿ï¨úÄæ¦ì
[e7].select
ÁöµM¦³¿ï¨úe7Äæ¦ì,¥i¬O¹ê»Úfocus¤´°±¾n¦bªí³æ¤W
±µµÛ·Q­n¤H¤uª½±µ¦be7¿é¤J¸ê®Æ®É
ÁÙ­n¥Î·Æ¹«¦AÂI¤@¤U¤~¥i¥HÄ~Äò°Ê§@

½Ð°Ý¦p¦ó±N°±¾nÂI³]¦bÄæ¦ì¤W?
ÁÂÁÂ

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

¤Ú§J´µ

¦^´_ 2# GBKEE

ÁÂÁÂGBKEEª©¥D¦^´_,¸É¥R§Úªº»Ý¨D¦p¤U
¦]¬°¬O§âªí³æ¯B°Ê¦Ü©ó¤W¤è,§@¬°¤u¨ã¦C
©Ò¥H°õ¦æCommandButton1«á,§Æ±æ¿ìªkª½±µ©ó«ü©wªº[e7]Äæ¦ìª½±µ¤H¤uÄ~Äò¿é¤J¸ê®Æ
©Ò¥H¤£­nÃö±¼¤u¨ã¦CUserform1,¥u­nª½±µ°±¾n¨ìÄæ¦ì[e7]
¥i¥H±µµÛª½±µ¥ÎÁä½L§@·~

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

1. Sub test()
   
2. UserForm1.Show 0
   
3. End Sub

½Æ»s¥N½X

ªí³æµ{¦¡:

1. Private Sub CommandButton1_Click()
   
2. [e7].Select
   
3. End Sub

½Æ»s¥N½X

°±¾n.rar (7.7 KB)

¤U¸ü¦¸¼Æ: 4

2012-12-9 06:18

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