返回列表 上一主題 發帖

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

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

onaction="Macro",macro有參數如何寫呀
lmh

回復 10# Scott090
actioncontrol 與 tag 的用法,10#提供網頁介紹很清楚,並不複雜,應該好好用.
lmh

TOP

回復 13# GBKEE


    謝謝 G大 指引
    學習了

TOP

回復 8# Scott090


意指    onaction引用的程序不要使用引數,或將引數加上optional,
如此一來,功能表項目即不必被限制於固定引數,
而由引用的程序引用自訂變數,
如此一來,相同功能表在不同狀況下,可執行不一樣的程序過程。
Word呈現極致的靜態之美,Excel展現極致的動態之美。

TOP

本帖最後由 GBKEE 於 2018-8-8 16:45 編輯

回復 12# Scott090

workbook關閉後,再開啟時  
ThisWorkbook模組上需有這些程式碼
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     a="EXCEL"
  4. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 11# GBKEE


    感謝 G大 的回覆。
workbook關閉後,再開啟,第一次執行按鈕後顯示 a="EXCEL"這個參數並未進來如下圖
test.JPG

請問,問題在哪裡
謝謝

TOP

回復 8# Scott090
  1. Option Explicit
  2. Public a As String   '一般模組的上的公用變數
  3. Sub Ex() 'OnAction的程式碼
  4.     a = "EXCEL" '第一次按Button 1 的文字
  5.       ActiveSheet.Shapes.Range(Array("Button 1")).Select '需插入按鈕(表單控制項)
  6.     Selection.OnAction = "'Ex_Macro a'"
  7.     ActiveCell.Activate
  8. End Sub

  9. Sub Ex1()
  10.     a = "Ex_Macro"
  11. End Sub
  12. Sub Ex_Macro(ByRef q As String)
  13.     MsgBox q
  14.     Ex1 '第二次以後按 Button 1 的文字
  15. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

actioncontrol 與 tag 的用法 參考 Microsoft 網頁如下:
https://msdn.microsoft.com/en-us/vba/office-shared-vba/articles/commandbars-actioncontrol-property-office#example

TOP

#2,#3,#6
謝謝各位幫忙,我求助的問題相信不少人都想知道,這兒我再簡單提一提:
當你做commandbarbutton,其中有一句"Onaction="sun名稱"",如果sub名稱有參數任何寫?
答案就是#6告訴的  Onaction="'sub名稱 參數'",就是雙引號+單引號+sub名稱+空格+參數+單引號+雙引號,就這麼簡單.
其他方法也提供我們不少思路,但就上述一條,最簡單最好用,再次謝謝大家!
lmh

TOP

回復 7# linyancheng


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

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題