如何为Excel按钮分配带参数的宏？批量按钮场景报错求助

问题场景 #

需生成1-100组按钮，每个按钮绑定带行号参数的Edit_CVR_Row宏，现有代码执行时报错，尝试Evaluate方案仍未解决。

错误原因 #

1. 过程访问权限问题：原Edit_CVR_Row是Private子过程，工作表按钮的OnAction无法直接调用私有过程，必须改为Public。
2. OnAction参数格式错误：原代码的引号嵌套逻辑错误，导致宏调用语法不合法。

修正方案 #

1. 修改宏的访问权限

将私有过程改为公开过程：

Public Sub Edit_CVR_Row(Btn_row As Integer)
    ' 此处添加你的业务逻辑，例如：
    MsgBox "正在编辑第 " & Btn_row & " 行"
End Sub

2. 修正按钮生成代码的OnAction赋值

调整引号格式，确保宏调用语法合法：

With btn
    ' 正确的参数传递格式：外层用单引号包裹宏调用，整数参数直接传入
    .OnAction = "'Edit_CVR_Row " & Btn_row & "'"
    .Caption = "Edit"
    .Name = "Sheet1_" & CStr(Btn_row) & "_Edit"  
End With

补充说明 #

如果需要传递字符串类型参数，则需给参数添加双引号（注意转义），格式示例：

.OnAction = "'Edit_CVR_Row """ & Str(Btn_row) & """'"

内容的提问来源于stack exchange，提问作者Army