在Excel进行变压器优化设计.ppt

《在Excel进行变压器优化设计.ppt》由会员分享，可在线阅读，更多相关《在Excel进行变压器优化设计.ppt（21页珍藏版）》请在三一办公上搜索。

1、变压器优化设计,目 录一）Excel“宏”VB编辑器二）工作表与VBA程序间数据传递三）VBA程序的编写方法五）公共变量与局部变量 六）控件窗体七）控件工具箱八）工作表起始运算 九）优化设计和人工调整十）程序的验证,在Excel上进行变压器优化设计,变压器优化设计,一）Excel“宏”VB编辑器在Excel用“宏”中的Visual Basic编辑器编写程序比在单元格中编写公式要直观、明晰、方便得多。不需要很多的Visual Basic知识就可以编写出应用很方便的程序来。Visual Basic编辑器具有VB 的大部分功能。一般用VB编写的程序拷贝到Excel来只需修改一下与界面的传递方式即可运

2、行。它也可像VB一样，通过“引用”导入其它驱动程序与其它Excel工作簿及各种数据库、AutoCAD等其它语言连接。控件工具箱也很丰富。,变压器优化设计,二）工作表与VBA程序间数据传递1.使用单元格传递界面传递给程序UN=Range(G3).ValueC1=Range(G11).Value G列，11行T$=Range(“N”&BBH).Value“N”列，BBH行（变量）程序传递给界面Range(E5).Value=U1Range(H5).Value=XNWorksheets(单1).Range(AJ35).Value=GZ,变压器优化设计,2.使用控件传递“窗体”控件,YHLX=Rang

3、e(R10).Value If YHLX=优化设计 Then CL=0 Range(N14).Value=正在进行优化计算，请等待。Range(N15).Value=0 End If,变压器优化设计,“控件工具箱”控件,变压器优化设计,变压器优化设计,三）VBA程序的编写方法在“宏”中的“Visual Basica编辑器”编写VBA语句可以将VB程序拷贝过来稍加修改，也可另行编写。它可使用VB程序中InputBox和MsgBox输入、输出框，也可像VB程序那样读、存.TXT文件，还可通过ADO对象或ADO控件读、存数据库数据。,变压器优化设计,变压器优化设计,从“录制新宏”获得VBA语句首先通

4、过“工具”菜单的“宏”命令“录制新宏”，实际上也是用Visual Basic语句存放在模块表中。这些语句可以被复制到编写的程序中。下面的语句就是这样得到的。例：“录制新宏”以超文本方式保存计算单,变压器优化设计,Sub 宏1()宏1 Macro fhq 记录的宏 2004-2-21 快捷键:Ctrl+Shift+X Range(B1:R47).Select With ActiveWorkbook.PublishObjects(SOJ-01三相自耦调压变压器计算-矩形铁芯_30170).HtmlType=xlHtmlStatic.Filename=G:SOJ-01.htm.Publish(Fal

5、se)End WithEnd Sub,变压器优化设计,五）公共变量与局部变量公共变量用于整个工作表（对象模块）中的变量。如：Public N1,MSG注意：常数、固定长度字符串、数组、自定义类型与 Declare 语句不能是对象模块中的 Public 成员。局部变量用于过程（事件）中的变量。如：Dim S$,A1$,PC(11)字符串、数组等只可以成为局部变量。,变压器优化设计,六）控件窗体由“窗体”制作组合框单击视图工具栏窗体，选中组合框。击右键选中，设置控件格式（如用控件工具箱的组合框，它要在程序中设置控件格式）。在B40：B41区域输入数据源，B46作为单元格连接，在另外指定的单元格如：

6、B47中输入=INDEX(B40:B41,B46)，在程序中它将数据源传递给字符：YS$=Range(B47).Value,变压器优化设计,由“单元格”制作组合框单击数据有效性选中序列，在来源处输入内容如下图,变压器优化设计,七）控件工具箱由“控件工具箱”制作组合框单击视图工具栏控件工具箱，选中组合框。在程序中设置控件格式：例：Private Sub Worksheet_SelectionChange(ByVal Target As Range)With ComboBox1.AddItem 彩色图形.AddItem 黑白图形 End WithEnd Sub在程序中它就数据源传递给字符：YS$=

7、ComboBox1.Value,变压器优化设计,八）工作表起始运算如要求打开工作表，就先进行计算，可在Worksheet中选择SelectionChange事件。如：要求首先计算I2的值。Private Sub Worksheet_SelectionChange(ByVal Target As Range)P=Range(D4).Value U2=Range(J4).ValueI2=Int(P/(1.732*U2)*10000+0.5)*0.1 Range(L4).Value=I2End Sub,变压器优化设计,九）优化设计和人工调整,变压器优化设计,优化设计框图,铁心尺寸循环,磁密循环,电抗

8、高度循环,低压线宽循环,高压线厚循环,低压线厚循环,绕组计算,UK判断,PK判断,温升判断,PO判断,高压线宽循环,材料成本计算,方案比较排队,下一个循环,显示十个最优,选择方案,人工调整,保存方案,保存计算单,绘制铁心图,结束,输入数据,No,No,No,No,Yes,Yes,Yes,Yes,变压器优化设计,七）在Excel上使用优化设计 通过Excel的“宏”只需少许修改就可将VB程序移植到Excel上，如下图：,变压器优化设计,变压器优化设计,九）程序的验证 在程序投入使用之前，必须对程序的可靠性和准确性进行验证。验证的方法是人工对计算结果进行重新计算审核，且对不同容量多个产品进行反复验证，才推广使用。,变压器优化设计,参考资料：解答程序无法运行的一些问题层间绝缘计算变压器设计步骤 全文完,