ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥Îªí³æ¿é¤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?
ÁÂÁÂ

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ ¤Ú§J´µ ©ó 2012-12-9 06:21 ½s¿è

¦^´_ 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)

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD