我已閱讀有關此主題的其他文章，他們提出的解決方案對我不起作用：
Sub doStuff()
Dim x As String
x = "hello"
Sheets("sheet2").Shapes(1).OnAction = "'testIt " & x & "'"
End Sub
Sub testIt(something As String)
End Sub
當我單擊 sheet2 中的 Shapes(1) 時，我收到以下錯誤回應：
Cannot run macro "testIt hello". The macro may not be available in this workbook or all macros may be disabled
我已經用其他不需要引數的代碼對此進行了測驗，并且它有效。它會簡單地讀為：Sheets("sheet2").Shapes(1).OnAction = "someOtherMacro"
uj5u.com熱心網友回復：
需要在論點周圍加上引號：
Sheets("sheet2").Shapes(1).OnAction = "'testIt """ & x & """'"
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/449914.html
標籤：vba
下一篇：如果條件存在，VBA自動過濾