Question

我有一个自定义右键菜单。这是代码的一部分。效果很好：

With menu.Controls.Add(Temporary:=True, Type:=msoControlButton, before:=i_menu)
    .BeginGroup = False
    .OnAction = "'" & ThisWorkbook.Name & "'!" & "'complet """ & num_doc & """'"
    .FaceId = 1087
    .Caption = "Complété"
    .Tag = "commande_custom"
End With

如您所见，在操作上，它调用子complet（num_doc为String）。我修改了sub，所以它会收到另一个字符串：complet（num_doc as String，etape_doc as String）。我不能为我的生活找出适当数量的“我需要放在那里！有人可以解释这些引用是如何起作用的吗？

.OnAction = "'" & ThisWorkbook.Name & "'!" & "'complet """ & num_doc & num_etape"""'"

请告诉我是否可以用更简单的方式调用它！

Answer 1

未经测试：

.OnAction = "'" & ThisWorkbook.Name & "'!" & "'complet """ & num_doc & """,""" & num_etape & """'"

来源 - ＆gt; Excel, VBA: How to pass multiple variables to .OnAction

从.OnAction（自定义右键菜单）调用sub时传递变量

1 个答案: