[已解决]我想利用工具栏来调用宏，为什么提示“未找到宏”，是什么原因？

JOB007

调用宏.rar (7.11 KB, 下载次数: 2)

2014-6-17 23:17 上传

点击文件名下载附件

Sub 按钮插入宏()
Dim MC As CommandBarButton
Set MC = Application.CommandBars(3).Controls.Add
With MC
.FaceId = 43
.BeginGroup = True
.OnAction = "插入数字"
End With
End Sub


Sub 插入数字()
Range("a1") = 100
End Sub


我希望把“插入数字"的宏能够被工具栏按钮调用，但是调用后显示”未找到宏“，不知道是哪里出错了，求大神解答

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-6-18 08:14

调用宏.rar (9.38 KB, 下载次数: 9)

2014-6-18 08:14 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

不在标准模块吧。

hwc2ycy

插入一个标准模块，把代码都移过来。

hwc2ycy

调用宏.rar (9.38 KB, 下载次数: 9)

2014-6-18 08:14 上传

点击文件名下载附件

JOB007

hwc2ycy 发表于 2014-6-18 08:14

明白了，谢谢