右键菜单里的onAction怎么传递入参?

Copper_y

1. Const varA As String = "这里存放变量"
   
2. Sub demo()
   
3.     Dim myBar As CommandBarControls
   
4.     Application.CommandBars("cell").Reset
   
5.     Set myBar = Application.CommandBars("cell").Controls
   
6.     With myBar.Add(msoControlButton, , , 2, True)
   
7.         .caption = "测试button"
   
8.         .FaceId = 136
   
9.         .OnAction = "showDiaglog """ & varA & """"
   
10.     End With
    
11. End Sub
    

复制代码

这里怎么把varA的值传递过去啊?

山菊花

在OnAction首尾加上单引号：
Sub demo()
    Dim myBar As CommandBarControls
    Application.CommandBars("cell").Reset
    Set myBar = Application.CommandBars("cell").Controls
    With myBar.Add(msoControlButton, , , 2, True)
        .caption = "测试button"
        .FaceId = 136
        .OnAction = "'showDiaglog """ & varA & """'"
    End With
End Sub

Copper_y

山菊花 发表于 2020-3-9 08:29
在OnAction首尾加上单引号：
Sub demo()
    Dim myBar As CommandBarControls

感谢！！！

ggmmlol

山菊花 发表于 2020-3-9 08:29
在OnAction首尾加上单引号：
Sub demo()
    Dim myBar As CommandBarControls

又学到一招！谢谢!