返回列表 上一主題 發帖

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

回復 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

回復 11# GBKEE


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

請問,問題在哪裡
謝謝

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

回復 8# Scott090


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

TOP

回復 13# GBKEE


    謝謝 G大 指引
    學習了

TOP

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

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題