如何将普通宏变成加载宏，并出现在工具栏！谢谢！

colour250

报表模板.rar (50.56 KB, 下载次数: 5)

2017-9-21 16:17 上传

点击文件名下载附件


Sub aaa()
Dim sht As Worksheet, i&, s$
Application.DisplayAlerts = False
On Error Resume Next
Set sht = Sheet1
    s = Format(Now(), "dd") & "日"
    Sheets(s).Delete
    sht.Copy after:=sht
    ActiveSheet.Name = s
    ActiveSheet.Select
    Application.DisplayAlerts = True
End Sub


请问如何将该普通宏变成加载宏 ，并出现在工具栏，名称为“复制工作表”

c2003921

顶起来，我也有这个问题