为了节省选型的时间，很多时候，我们交给非电气人员下单，为此抛砖引玉的设计了一个自动配置就地控制箱的清单表（一控一），为此电气人员可设计一个通用的图纸，然后就通过填写设备的基本信息生成清单表。标准图纸可以如下：以上没有设计综合保护器。我们通过EXCEL表格来设计清单表。同时也设计了简单的打印功能。
为了节省选型的时间，很多时候，我们交给非电气人员下单，为此抛砖引玉的设计了一个自动配置就地控制箱的清单表（一控一），为此电气人员可设计一个通用的图纸，然后就通过填写设备的基本信息生成清单表。
标准图纸可以如下：
以上没有设计综合保护器。
我们通过EXCEL表格来设计清单表。
1、建立一个excel工作薄文件xlsm（就地控制箱BOM清单.xlsm）如下图：
2、利用VBA设计代码。
在菜单视图找到“开发工具”--“设计模式”，建立一个ActiveX控件，CommandButton
定义为“一控一直接启动清单”
双击进行代码设计：
设计完成后，测试：
选择电机功率、设定电机电流，选择保护参数、选择元器件品牌
单击，按钮就即刻生成清单表。
同时也设计了简单的打印功能。
打印代码如下：
Sub print_sub() '设置打印范围
M = [A65535].End(xlUp).Row
N = [iv1].End(xlToLeft).Column
With ActiveSheet.PageSetup
.PrintArea = ActiveSheet.Range(Cells(1, 19), Cells(M, N)).Address
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterHorizontally = True '打印页面水平居中
.CenterVertically = False
.RightFooter = "打印时间：" & Format(Now, "yyyy年mm月dd日 hh:mm:ss")
PrintPreview
End With
End Sub
Private Sub CommandButton1_Click()
print_sub
End Sub
锁定工作单元，可以控制按钮不变形，锁定方式如下：
全选工作区域：
取消单元格锁定
审阅--保护工作表 --输入密码即可
模板文件可以在下面链接获得：
http://honeytree.ysepan.com/
