【录像】Excel VBA初级入门班2015 第08讲录像

278059169

我要第九讲

byhdch

谢谢！下载，学习......

nthzm2008

还是学习了，多谢分享！

mlqq88

看看

kzhun2008

领视频课件来啦

明天一

老师辛苦了。。。

gcy

Sub auto_open()
Call addbutton
End Sub
Sub addbutton()
    Dim popup As CommandBarPopup
    Dim button As CommandBarButton
    With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=11)
        .Caption = "DIY"
    End With
        Set popup = Application.CommandBars(1).Controls("DIY")
        Set button = popup.Controls.Add(msoControlButton)
        With button
            .Caption = "宏1"
            .OnAction = "宏1名"
            .BeginGroup = False
            .Visible = False 'false 不可见
            .Enabled = True 'false 按钮变灰
        End With
End Sub
Sub auto_close()
Call DeleteToolbars
End Sub
Sub DeleteToolbars()
On Error Resume Next
   Application.CommandBars(1).Controls("DIY").Delete

明天一

学一学。。。。

fire2u

谢谢，还能下载吗

fire2u

下载不了了