av8d

¦^´_ 2# GBKEE


    test.rar (442.97 KB)

¤U¸ü¦¸¼Æ: 7

2013-11-15 11:30

¨S¦³§@¥Î~¦A¦¸·PÁÂ!

GBKEE

¦^´_ 1# av8d
¨t²Î±±¨îÅv¦b UserForm µLªk°õ¦æ¦Û©wªº²Õ¦XÁä
UserForm1.Show False  ªí³æ¬°¬O«D±j¨î¦^À³ªº¡C(¨t²Î±±¨îÅv¥iÂಾ¨ì¤u§@ªí)
UserFormªºµ{¦¡½X

1. Option Explicit
   
2. Sub CommandButton1_Click()
   
3.     MsgBox CommandButton1.Caption
   
4. End Sub
   
5. Private Sub UserForm_Initialize()
   
6.     Application.OnKey "^h", "Ex"
   
7. End Sub
   
8. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
9.     Application.OnKey "^h"   '¦p¬°¨t²Î¹w³]²Õ¦XÁä:ÁÙ­ì­ì¨Óªº«ü¥O
   
10. End Sub

½Æ»s¥N½X

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

1. Option Explicit
   
2. Sub Ex()
   
3.     UserForm1.CommandButton1_Click
   
4. End Sub
   
5. Sub Ex1()
   
6.     UserForm1.Show False
   
7. End Sub

½Æ»s¥N½X

¤U¸ü (100.39 KB)

2013-11-14 17:17

av8d

¤@¯ëUserForm1¤º·|¦³³\¦h¤¸¥ó~³Ì±`¨£ªº´N¬OCommandButton1«ö¶s
¦p¦ó«ö¤UCtrl+Enter«á¡A¥i¥HÀ°§Ú«ö¤UCommandButton1«ö¶s