Excel 插入宏名称跟踪vba的计数器

如何使commandButton1..5名称在来自 单次单击例程？？？
添加了我需要与活动X按钮一起使用的5个宏。
宏是活动工作表“甘特图”中的导航参考

三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七、三七

Sub Att_1（）
'
'附件1宏
'
'
Application.ScreenUpdating=False
图纸（“甘特图”）。取消保护
工作表（“列表”）。取消保护
工作表（“列表”）。选择
范围（“E3”）。选择
表（“列表”）。保护
应用程序。转到参考：=_
“偏移量（索引（甘特图！R[3]C[7]：R[3]C[496]，匹配（1，如果（甘特图！R[3]C[7]：R[3]C[496]”，如果（甘特图！R[3]C[7]：R[3]C[496]，-1，-2）”，滚动：=True”
端接头
副附件2（）
'
“Att_2宏
Application.ScreenUpdating=False
图纸（“甘特图”）。取消保护
工作表（“列表”）。取消保护
工作表（“列表”）。选择
范围（“E4”）。选择
表（“列表”）。保护
应用程序。转到参考：=_
“偏移量（索引（甘特图！R[3]C[7]：R[3]C[496]，匹配（1，如果（甘特图！R[3]C[7]：R[3]C[496]”，如果（甘特图！R[3]C[7]：R[3]C[496]，-2），”滚动：=True
端接头
附件3（）
'
'附件3宏
'
Application.ScreenUpdating=False
图纸（“甘特图”）。取消保护
工作表（“列表”）。取消保护
工作表（“列表”）。选择
范围（“E5”）。选择
表（“列表”）。保护
应用程序。转到参考：=_
“偏移量（索引（甘特图！R[3]C[7]：R[3]C[496]，匹配（1，如果（甘特图！R[3]C[7]：R[3]C[496]”，如果（甘特图！R[3]C[7]：R[3]C[496]，-3，-2）”，滚动：=True”
端接头
附件4（）
'
'附件4宏
'
Application.ScreenUpdating=False
图纸（“甘特图”）。取消保护
工作表（“列表”）。取消保护
工作表（“列表”）。选择
范围（“E6”）。选择
表（“列表”）。保护
应用程序。转到参考：=_
“偏移量（索引（甘特图！R[3]C[7]：R[3]C[496]，匹配（1，如果（甘特图！R[3]C[7]：R[3]C[496]”，如果（甘特图！R[3]C[7]：R[3]C[496]，-4，-2）”，滚动：=True”
端接头
附件5（）
'
'附件5宏
'
Application.ScreenUpdating=False
图纸（“甘特图”）。取消保护
工作表（“列表”）。取消保护
工作表（“列表”）。选择
范围（“E7”）。选择
表（“列表”）。保护
应用程序。转到参考：=_
“偏移量（索引（甘特图！R[3]C[7]：R[3]C[496]，匹配（1，如果（甘特图！R[3]C[7]：R[3]C[496]”，如果（甘特图！R[3]C[7]：R[3]C[496]，-5，-2）”，滚动：=True”
端接头
私有子命令Button1_Click（）'-->调用宏
ActiveSheet.CommandButton1.BackColor=RGB（200、330、10）
打电话给Att_1
表格（“甘特图”）。保护
端接头
私有子命令按钮2_Click（）'-->调用宏
ActiveSheet.CommandButton2.BackColor=RGB（200、330、10）
打电话给Att_2
表格（“甘特图”）。保护
端接头
私有子命令按钮3_Click（）'-->调用宏
ActiveSheet.CommandButton3.BackColor=RGB（200、330、10）
打电话给Att_3
表格（“甘特图”）。保护
端接头
私有子命令按钮4_Click（）'-->调用宏
ActiveSheet.CommandButton4.BackColor=RGB（200、330、10）
打电话给Att_4
表格（“甘特图”）。保护
端接头
私有子命令按钮5_Click（）'-->调用宏
ActiveSheet.CommandButton5.BackColor=RGB（200、330、10）
打电话给Att_5
表格（“甘特图”）。保护
端接头

不确定为什么要使用循环将其复杂化。。。您只需从另一个子系统调用它们，如下所示：

Private Sub Test()
    CommandButton1_Click
    CommandButton2_Click
    CommandButton3_Click
    CommandButton4_Click
    CommandButton5_Click
End Sub

---

请尝试下一个代码：

Sub CallButtonsClickEvent()
 Dim i As Long

 For i = 1 To 5
    Application.Run "" & ActiveSheet.CodeName & "" & ".CommandButton" & i & "_Click"
    'Application.Run "" & ActiveSheet.CodeName & "" & ".Att_" & i
    'Sheets("GANTT").Protect
 Next i
End Sub

---

看到您的工作簿，我对第二行和第三行进行了注释，因为它们包含在按钮单击事件中…

这些按钮是在表单上还是在工作表上？如果在工作表上，它们是什么类型的？窗体还是ActiveX控件？嗨，这不起作用，但我看起来像这样。我需要从列表中调用宏列表（Att_1…Att_5）到命令按钮。我试着从一个简短的例行公事开始做这件事，因为这个列表将来可以扩展到200个。谢谢你。@Theodoros kioumourtzis:你没有回答我的澄清问题。。。那么，我们是在谈论表单按钮，ActiveX类型吗？如果不是，你在说什么？那么，问题中的代码示例并没有提到您现在试图解释的内容。我不知道你到底需要什么，恐怕没有人能帮你。。。所以，你能不能编辑你的问题，把一些这样的“宏”放在那里，然后我们才能再谈。但是，如果你需要我的帮助，你应该以某种方式标记我（@FaneDuru）.@Theodoros kioumourtzis:我没有注意到名为“Att_u”的

Subs

后面跟一个数字也需要通过增加其结束数字来调用。请测试更新的代码。但首先，请尝试回答我的澄清问题…对不起！我更新了我发布的代码+评论。希望这更清楚。在主代码和模块中尝试了更新的代码，但仍然不起作用。@Theodoros kioumourtzis:上述解决方案应该适用于您描述的情况。如果不是机密，你能分享你使用的工作簿吗？您可以使用传输站点。是一个免费的，易于使用。如果有机密信息，您可以使用虚拟数据构建工作簿。。。否则，我无法理解为什么它对您的工作簿无效，而对我的工作簿无效。

Sub CallButtonsClickEvent()
 Dim i As Long

 For i = 1 To 5
    Application.Run "" & ActiveSheet.CodeName & "" & ".CommandButton" & i & "_Click"
    'Application.Run "" & ActiveSheet.CodeName & "" & ".Att_" & i
    'Sheets("GANTT").Protect
 Next i
End Sub