一个客户端请求我添加按钮,如下图1所示。
可以有1到100组按钮。原因对这个问题并不重要。
考虑到它们具有几乎相同的函数,我需要给它们赋值,但以某种方式,行号可以作为参数或变量之类的。
Private Sub Edit_CVR_Row(Btn_row As Integer)
在生成按钮时,行号是for循环的一部分,并且已知,这就是我如何分配宏的方法。
With btn
.OnAction = "'Edit_CVR_Row """ & Btn_row & "'"
.Caption = "Edit"
.Name = "Sheet1_" + Str(Btn_row) + "_Edit"
End With
这就是我所犯的错误
有一个类似的解决方案,它使用具有相似结果的评估函数。
任何帮助都将不胜感激。
发布于 2022-09-16 19:18:51
activesheet.buttons(application.caller).topleftcell.row
谢谢你这个罗里成功了。
发布于 2022-09-15 08:33:19
当您打开Excel文件时,在单元格上是否有一个黄色的条带要求您激活这些宏?如果是这样的话,您应该在运行宏之前接受它,否则您将收到这种通知。
也有可能宏没有在Excel中激活,您可以通过“文件”选项卡->选项->信任中心->宏设置来检查它,然后您必须选择所需的选项。
https://stackoverflow.com/questions/73703130
复制相似问题