excel进行模具管理之VBA菜单编程

建立Excel模具管理系统菜单

管理系统都有一个菜单入口，VBA是excel中二次开发的语言，在WPS中如果没有安装高级版可能没有VBA编程，在Excel中按键Alt+F11将进入编程界面，或者在工作表右键点击“查看代码”也可以进入。

步骤一、建立菜单的配置表

菜单表建立后，菜单即可按菜单，ID为不可重复的，FID代表父级菜单，为父级菜单时，类型为10，是否分组代表有横线的分组栏，执行过程地址则为程序的入口。

 

步骤二：建立“附件工具.xla”主入口文件。文件的建立方法是新建的文件，在VBA编程界面中保存为.xla文件即可。
1、在左边树形中双击选择ThisWorkbook对象，建立workbook.open的函数段，代码如下：
Private Sub Workbook_Open()
Call mademenu
End Sub

2、点击菜单插入模块，模块中写入函数段如下：

Dim menulen As Integer
Dim menuobj() As Object
Dim menuid() As String

Sub mademenu()
Dim found, foundflag As Boolean
Dim cb, mybar, bar1, bar2, bar3
Dim file01, file02, filename01 As String
Dim myblank As Object
Dim i, k, tol As Integer
foundflag = False
file01 = Workbooks("附加工具.xla").path & "\"