[计算机]利用EXCEL自带VB编辑器进行拉丝配模计投.docVIP

利用EXCEL自带VB编辑功能进行拉丝配模计算 郭佩民 （宇宙钢丝绳有限公司，贵州 贵阳 550017） 摘 要 介绍钢丝在连续拉拔加工时常用的6种配模工艺，利用EXCEL软件自带的VB编辑功能，以第1道次部分压缩率稍小、第2道最大、以后依次减小的配模工艺为例，编制出拉丝配模工艺计算表。给出编制的配模程序，并以进线Ф3.3 mm,出线Ф1.2 mm，拉拔10道次为例，说明软件的使用方法和计算结果。应用表明，采用该方法可以快捷、直观、方便地计算出拉丝配模结果，适应性强，稍作改动就可以应用到各种拉拔工艺上。 关键词 EXCEL表格；VB编辑器；配模计算；拉拔工艺 中图分类号 TG352 1 拉丝配模的计算 在钢丝的连续拉拔生产过程中，进行拉丝配模的计算是一项极为重要的工作，钢丝生产企业技术人员很早就进行过探讨，[1-4]文献[5]就用EXCEL表格对水箱拉丝机的配模计算 图1 6种拉拔工艺的拉丝模部分压缩率分配方式 在实际生产中，常常采用曲线5的拉丝配模方式进行生产，这种方式可以使拉拔后的成品钢丝获得良好的综合性能，因此，笔者以曲线5的拉拔配模工艺为例进行程序编制。 2 拉丝配模计算程序的编制 2.1 编制过程 根据拉拔工艺曲线5的配模方式，先依据平均压缩率确定第1道次的部分压缩率，再确定第2道次与第1道次的比值，然后利用计算机强大的计算功能，在预设的基准系数上使用循环计算得出各道次的部分压缩率。当其计算出的部分压缩率之和与压缩率总和基本相等时，计算结束，并将计算的参数值返回到预设的表格内。 在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 压缩率总和 183.17 输入第一道次压缩率（%） 17.50 输入第二道次压缩率比值 1.15 拉拔道次 1 2 3 4 5 6 7 8 9 10 总压缩率（%） 配模直径（mm） 3.00 2.68 2.40 2.16 1.95 1.76 1.59 1.44 1.31 1.20 配模偏差（mm） ±0.03 ±0.03 ±0.03 ±0.03 ±0.03 ±0.03 ±0.02 ±0.02 ±0.02 ±0.02 部份压缩率（%） 17.36 20.20 19.80 19.00 18.50 18.54 18.39 17.98 17.24 16.09 86.8% 图2 拉丝配模工艺计算表 2.2 程序输入 在EXCEL表格自带的VB编辑器中，输入以下语句。 Sheet1.Cells(12, 2) = Sheet1.Cells(6, 3) Sheet1.Cells(12, 3) = Sheet1.Cells(7, 3) * Sheet1.Cells(6, 3) 部分压缩率循环计算 a = 0.85 a 设定为基准系数 b = 0 b 设定为循环次数 Do b = b + 1 c = Sheet1.Cells(12, 2) + Sheet1.Cells(12, 3) For n = 3 To Sheet1.Cells(5, 3) Sheet1.Cells(12, n + 1) = Sheet1.Cells(12, n) * a c = c + Sheet1.Cells(12, n + 1) Next n a = a + 0.001 If b 1000 Then Exit Do Loop Until Abs(Sheet1.Cells(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) For m= 3 To Sheet1.Cells(5, 3) Sheet1.