- ·上一篇:鼠标怎么在excel表格上写字
- ·下一篇:excel表格怎么做方差表
excel表格中sub怎么使用
1.Excel 怎样在主sub中引用其他自定义的sub
Sub 创建菜单项()
Dim MenuObject As CommandBarPopup
Dim MenuItem As Object
Call 删除菜单
Set MenuObject = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=11, temporary:=True)
MenuObject.Caption = "泰星账务(&X)"
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
MenuItem.Caption = "8月份生产日报表"
MenuItem.OnAction = "打开8月份生产日报表"
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
MenuItem.Caption = "9月份生产日报表"
MenuItem.OnAction = "打开9月份生产日报表"
Set Menu = Nothing
Set MenuItem = Nothing
Set MenuObject = Nothing
End Sub
Sub 删除菜单()
On Error Resume Next
Application.CommandBars(1).Controls("泰星账务(&X)").Delete
On Error GoTo 0
End Sub
这是我在用的实例
直接写过程名或用Call 过程名 都可以引用子SUB。
2.如何在Excel中启动Visual Basic程序
1.在工作表标签右键菜单在弹出的菜单选择“查看代码”,就可以打开“查看代码”窗口。
2.在“工具”菜单选择“宏”下的“VB编辑器”。
3.控件在编辑设计状态的下,双击控件可以打开“VB编辑器”。
4.快捷键盘的方法是:ALT+F11,如果你已经打开“VB编辑器”,在当前状态在工作表状态的话,可以用ALT+TAB快捷切换。
5.当然也可以用WIN+TAB键进行快速切换。当然效果没有用ALT+TAB快捷切换好。