自动生成就地电控箱BOM表

为了节省选型的时间，很多时候，我们交给非电气人员下单，为此抛砖引玉的设计了一个自动配置就地控制箱的清单表（一控一），为此电气人员可设计一个通用的图纸，然后就通过填写设备的基本信息生成清单表。

标准图纸可以如下：

以上没有设计综合保护器。

我们通过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/