naruto018

¦^´_ 1# mhl9mhl9

¬O­n°ÝCommandBarButton.OnAction ªº³¡¤À¶Ü¡H

naruto018

¦^´_ 5# mhl9mhl9

°Ñ¦Ò¬Ý¬Ý

1. Public Const B1 As String = "text-B1"
   
2. Public Const B2 As String = "text-B2"
   
3. Public Const B3 As String = "text-B3"
   
4. 
   
5. Public Sub abc()
   
6.     With Application.CommandBars.Add("´ú¸Õ", msoBarTop, , True)
   
7.         .Visible = True
   
8.         With .Controls.Add(Type:=msoControlPopup) '°Ñ¼Æ¥N¤J¼Æ¦r
   
9.             .Caption = "´ú¸Õ1"
   
10.             With .Controls.Add(Type:=msoControlButton)
    
11.                 .Caption = "´ú¸Õ0"
    
12.                 .OnAction = "text" '¨S¥N¤J°Ñ¼Æ
    
13.             End With
    
14.             With .Controls.Add(Type:=msoControlButton)
    
15.                 .Caption = "´ú¸Õ1-1"
    
16.                 .OnAction = "'text 1'" '¥N¤J°Ñ¼Æ·|¦b­ì¥»³Ì¥~³òªºÂù¤Þ¸¹¸Ì­±¤À§O¥[³æ¤Þ¸¹
    
17.             End With
    
18.             With .Controls.Add(Type:=msoControlButton)
    
19.                 .Caption = "´ú¸Õ1-2"
    
20.                 .OnAction = "'text 1,2'" '¤£¦P°Ñ¼Æ¥Î³r¸¹¤À¶}
    
21.             End With
    
22.             With .Controls.Add(Type:=msoControlButton)
    
23.                 .Caption = "´ú¸Õ1-3"
    
24.                 .OnAction = "'text 1,2,3'"
    
25.             End With
    
26.         End With
    
27.         With .Controls.Add(Type:=msoControlPopup) '°Ñ¼Æ¥N¤J¤å¦r
    
28.             .Caption = "´ú¸Õ2"
    
29.             With .Controls.Add(Type:=msoControlButton)
    
30.                 .Caption = "´ú¸Õ2-1"
    
31.                 .OnAction = "'text ""B1""'" '¤å¦r¥ª¥k°¼¤À§O¥[¤W¨â­ÓÂù¤Þ¸¹
    
32.             End With
    
33.             With .Controls.Add(Type:=msoControlButton)
    
34.                 .Caption = "´ú¸Õ2-2"
    
35.                 .OnAction = "'text ""B1"",""B2""'"
    
36.             End With
    
37.             With .Controls.Add(Type:=msoControlButton)
    
38.                 .Caption = "´ú¸Õ2-3"
    
39.                 .OnAction = "'text ""B1"",""B2"",""B3""'"
    
40.             End With
    
41.         End With
    
42.         With .Controls.Add(Type:=msoControlPopup) '°Ñ¼Æ¥N¤JÅܼÆ
    
43.             .Caption = "´ú¸Õ3"
    
44.             With .Controls.Add(Type:=msoControlButton)
    
45.                 .Caption = "´ú¸Õ3-1"
    
46.                 .OnAction = "'text B1'"
    
47.             End With
    
48.             With .Controls.Add(Type:=msoControlButton)
    
49.                 .Caption = "´ú¸Õ3-2"
    
50.                 .OnAction = "'text B1,B2'"
    
51.             End With
    
52.             With .Controls.Add(Type:=msoControlButton)
    
53.                 .Caption = "´ú¸Õ3-3"
    
54.                 .OnAction = "'text B1,B2,B3'"
    
55.             End With
    
56.         End With
    
57.     End With
    
58. End Sub
    
59. 
    
60. 
    
61. Public Sub text(Optional Arg1 = "A1", Optional Arg2 = "A2", Optional Arg3 = "A3")  '¹w³]¨S¥N¤J°Ñ¼Æªº¹w³]­È
    
62. MsgBox Arg1 & Chr(10) & Chr(13) & Arg2 & Chr(10) & Chr(13) & Arg3
    
63. End Sub

½Æ»s¥N½X