【视频】【2014VBA初级】第八讲上课视频（高清版）

JIN2014 · 发表于 2017-4-12 23:07

挺好的，来学学

kzhun2008 · 发表于 2017-6-27 08:22

领视频课件来啦。。。

明天一 · 发表于 2017-11-28 17:26

老师辛苦了。。。

gcy · 发表于 2017-12-1 11:42

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

1361343612 · 发表于 2018-7-29 15:05

认真学习啊

xiaoxiaoheye · 发表于 2018-12-23 19:10

老师辛苦了

睡起来 · 发表于 2019-5-21 19:06

谢谢分享

yyseta · 发表于 2019-7-9 00:10

老师辛苦了

358488281 · 发表于 2019-9-8 20:11

谢谢分享

kkcxw · 发表于 2020-11-6 09:59

!!!!!

		自动登录	找回密码
密码			注册

[资料] 【视频】【2014VBA初级】第八讲上课视频（高清版）