12
返回列表 上一主題 發帖

[發問] onaction="Macro",macro有參數如何寫呀

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-7-28 22:25 | 只看該作者

[發問] onaction="Macro",macro有參數如何寫呀

onaction="Macro",macro有參數如何寫呀
收藏 分享
lmh

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-7-29 01:13 | 只看該作者
你可以把你的問題在具體一點的描述嗎？
這樣有點難回答你的問題，

如果你是指  Macro是一個變數的話，
直接把雙引號拿掉即可。

如果Macro是一個Sub要添加參數的話
Macro 變數A,變數B,變數C

如果Macro是一個Function要添加參數的話
Macro(變數A,變數B,變數C)

TOP

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
3#
發表於 2018-7-29 09:31 | 只看該作者
回復 1# mhl9mhl9

是要問CommandBarButton.OnAction 的部分嗎？

TOP

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
4#
發表於 2018-7-29 13:28 | 只看該作者
回復 3# naruto018

yes ,我真是想問commandbar的control中 onaction="巨集名稱" 這個巨集的參數任何寫?
lmh

TOP

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
5#
發表於 2018-7-29 13:56 | 只看該作者
回復 3# naruto018

yes 問CommandBarButton.OnAction 的部分.
我做了個commandbar,有4個Button,執行同一個sub,只是參數分別是1,2,3,4.
當然最好是 onaction=sub名稱+參數,但不知如何寫,不得意求其次,我現在用application.caller(2),也管用.如下:
   4個一樣 onaction="abcd""
   sub abcd
    xxx=application.caller(2)
    巨集名 xxx
    end sub
查到application.caller是個數組,有4個數,1,1,4105,0,第二數好像代表第幾個button,所以我用第二個數當參數
但究竟這4個數代表什麼,不清楚,也查不到,所以問題似乎解決了,但并不踏實.
lmh

TOP

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
6#
發表於 2018-7-30 07:34 | 只看該作者
回復 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"

  5. Public Sub abc()
  6.     With Application.CommandBars.Add("測試", msoBarTop, , True)
  7.         .Visible = True
  8.         With .Controls.Add(Type:=msoControlPopup) '參數代入數字
  9.             .Caption = "測試1"
  10.             With .Controls.Add(Type:=msoControlButton)
  11.                 .Caption = "測試0"
  12.                 .OnAction = "text" '沒代入參數
  13.             End With
  14.             With .Controls.Add(Type:=msoControlButton)
  15.                 .Caption = "測試1-1"
  16.                 .OnAction = "'text 1'" '代入參數會在原本最外圍的雙引號裡面分別加單引號
  17.             End With
  18.             With .Controls.Add(Type:=msoControlButton)
  19.                 .Caption = "測試1-2"
  20.                 .OnAction = "'text 1,2'" '不同參數用逗號分開
  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) '參數代入文字
  28.             .Caption = "測試2"
  29.             With .Controls.Add(Type:=msoControlButton)
  30.                 .Caption = "測試2-1"
  31.                 .OnAction = "'text ""B1""'" '文字左右側分別加上兩個雙引號
  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) '參數代入變數
  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


  61. Public Sub text(Optional Arg1 = "A1", Optional Arg2 = "A2", Optional Arg3 = "A3")  '預設沒代入參數的預設值
  62. MsgBox Arg1 & Chr(10) & Chr(13) & Arg2 & Chr(10) & Chr(13) & Arg3
  63. End Sub
複製代碼

TOP

linyancheng

帖子
228 
主題
73 
精華
2 
積分
333 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-10-13 
7#
發表於 2018-7-30 16:29 | 只看該作者
將參數寫入.Parameter中，程序再引用.Parameter的值，
其實也可以.Tag代替，
也可以自訂變數，寫入變數，再引用變數，其實這樣比較靈活，我都自訂變數。
Word呈現極致的靜態之美，Excel展現極致的動態之美。

TOP

Scott090

帖子
519 
主題
54 
精華
0 
積分
595 
點名
258  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
8#
發表於 2018-7-31 06:30 | 只看該作者
回復 7# linyancheng


    請大大寫一段程式的例子，以資模仿學習
謝謝

TOP

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
9#
發表於 2018-7-31 14:41 | 只看該作者
#2,#3,#6
謝謝各位幫忙,我求助的問題相信不少人都想知道,這兒我再簡單提一提:
當你做commandbarbutton,其中有一句"Onaction="sun名稱"",如果sub名稱有參數任何寫?
答案就是#6告訴的  Onaction="'sub名稱 參數'",就是雙引號+單引號+sub名稱+空格+參數+單引號+雙引號,就這麼簡單.
其他方法也提供我們不少思路,但就上述一條,最簡單最好用,再次謝謝大家!
lmh

TOP

Scott090

帖子
519 
主題
54 
精華
0 
積分
595 
點名
258  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
10#
發表於 2018-8-4 06:42 | 只看該作者
actioncontrol 與 tag 的用法 參考 Microsoft 網頁如下：
https://msdn.microsoft.com/en-us/vba/office-shared-vba/articles/commandbars-actioncontrol-property-office#example

TOP

        靜思自在 : 屋寬不如心寬。
12
返回列表 上一主題