[计算机]利用excel自带vb编辑器进行拉丝配模计投

《[计算机]利用excel自带vb编辑器进行拉丝配模计投》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、利用EXCEL自带VB编辑功能进行拉丝配模计算郭佩民（宇宙钢丝绳有限公司，贵州贵阳550017）摘要介绍钢丝在连续拉拔加工时常用的6种配模工艺，利用EXCEL软件自带的VB编辑功能，以第1道次部分压缩率稍小、第2道最大、以后依次减小的配模工艺为例，编制出拉丝配模工艺计算表。给出编制的配模程序，并以进线Ф3.3mm,出线Ф1.2mm，拉拔10道次为例，说明软件的使用方法和计算结果。应用表明，采用该方法可以快捷、直观、方便地计算出拉丝配模结果，适应性强，稍作改动就可以应用到各种拉拔工艺上。关键词EXCEL表格；VB编辑器；配模计算；拉拔工艺中图分类号TG3521拉丝配模的计算在钢丝的连续拉

2、拔生产过程中，进行拉丝配模的计算是一项极为重要的工作，钢丝生产企业技术人员很早就进行过探讨，[1-4]文献[5]就用EXCEL表格对水箱拉丝机的配模进行了计算，用EXCEL软件自带的VB编辑功能可以更简捷、快速地制定出拉拔工艺要求的配模参数。在钢丝生产过程中，确定钢丝拉拔道次以后，在总压缩率相同的条件下通常有6种各道次部分压缩率的分配方式，[6]如图1所示。在图1中，曲线1表示拉拔中各道次部分压缩率平均分配；曲线2表示拉拔中第一道次部分压缩率最大，以后依次减小；曲线3表示拉拔中第1道次部分压缩率最大，中间平，以后依次减小；曲线4表示拉拔中第1道次部分压缩率最小，第3、4道最大，以后依次

3、减小；曲线5表示拉拔中第1道次部分压缩率稍小，第2道最大，以后依次减小；曲线6表示拉拔中各道次部分率交替变化，形成“波浪”式分配。0510152025303512345678拉拔道次部分压缩率（%）164523图16种拉拔工艺的拉丝模部分压缩率分配方式在实际生产中，常常采用曲线5的拉丝配模方式进行生产，这种方式可以使拉拔后的成品钢丝获得良好的综合性能，因此，笔者以曲线5的拉拔配模工艺为例进行程序编制。2拉丝配模计算程序的编制2.1编制过程根据拉拔工艺曲线5的配模方式，先依据平均压缩率确定第1道次的部分压缩率，再确定第2道次与第1道次的比值，然后利用计算机强大的计算功能，在预设的基准系数

4、上使用循环计算得出各道次的部分压缩率。当其计算出的部分压缩率之和与压缩率总和基本相等时，计算结束，并将计算的参数值返回到预设的表格内。在EXCEL表格内制定出恰当的格式，如图2所示。采用EXCEL表格自带的VB工具箱设置一个“输入后点击”按钮，在EXCEL表格右侧单元格Sheet1.Cells(3,9)、Sheet1.Cells(4,9)、Sheet1.Cells(5,9)内分别将总压缩率、平均压缩率、压缩率总和的计算值预置在单元格内。拉丝配模工艺计算输入半成品直径（mm）3.30总压缩率（%）86.78输入成品直径（mm）1.20平均压缩率（%）18.32输入实际拉拔道次10压缩率总

5、和183.17输入第一道次压缩率（%）17.50输入第二道次压缩率比值1.15拉拔道次12345678910总压缩率（%）配模直径（mm）3.002.682.402.161.951.761.591.441.311.20配模偏差（mm）±0.03±0.03±0.03±0.03±0.03±0.03±0.02±0.02±0.02±0.02部份压缩率（%）17.3620.2019.8019.0018.5018.5418.3917.9817.2416.0986.8%图2拉丝配模工艺计算表2.2程序输入在EXCEL表格自带的VB编辑器中，输入以下语句。Sheet1.Cells(12,2)=Shee

6、t1.Cells(6,3)Sheet1.Cells(12,3)=Sheet1.Cells(7,3)*Sheet1.Cells(6,3)'部分压缩率循环计算a=0.85'a设定为基准系数b=0'b设定为循环次数Dob=b+1c=Sheet1.Cells(12,2)+Sheet1.Cells(12,3)Forn=3ToSheet1.Cells(5,3)Sheet1.Cells(12,n+1)=Sheet1.Cells(12,n)*ac=c+Sheet1.Cells(12,n+1)Nextna=a+0.001Ifb>1000ThenExitDoLoopUntilAbs(Sheet1.Cell

7、s(5,9)-c)<0.5'模径确定Sheet1.Cells(10,2)=Format$(Sheet1.Cells(3,3)*((1-Sheet1.Cells(12,2)/100)^(1/2)),"0.00")Sheet1.Cells(10,3)=Format$(Sheet1.Cells(10,2)*((1-Sheet1.Cells(12,3)/100)^(1/2)),"0.00")Form=3ToSheet1.Cells(5,3)Sheet1