文档介绍：利用EXCEL自带VB编辑功能进行拉丝配模计算
郭佩民
（宇宙钢丝绳有限公司，贵州 贵阳 550017）
摘 要 介绍钢丝在连续拉拔加工时常用的 6 种配模工艺，利用 EXCEL 软件自带的 VB 编辑功能，以第 1 道次部分压缩率稍缩率总和基本相等时，计算结束，并将计算的参数值返回到预设的表格内。
在 EXCEL 表格内制定出恰当的格式，如图 2 所示。 采用 EXCEL 表格自带的 VB 工具箱设置一个“输入后点击” 按钮，在 EXCEL 表格右侧单元格 （3, 9） 、（4, 9）、 （5, 9）内分别将总 压缩率、平均压缩率、压缩率总和的计算值预置在单元格内。
拉丝配模工艺计算
输入后点击
输入半成品直径（mm）
总压缩率（ %）
输入成品直径（ mm）
平均压缩率（ %）
输入实际拉拔道次
10
压缩率总和
输入第一道次压缩率（ %）
输入第二道次压缩率比值
拉拔道次
1
2
3
4
5
6
7
8
9
10
总压缩 率（％）
配模直径（mm）
配模偏差（mm）
±
±
±
±
±
±
±
±
±
±
部份压缩率（%）
%
图 2 拉丝配模工艺计算表
程序输入
在 EXCEL 表格自带的 VB 编辑器中，输入以下语句。
(12, 2) = (6, 3)
(12, 3) = (7, 3) * (6, 3)
'部分压缩率循环计算
a = 'a 设定为基准系数
b = 0 'b 设定为循环次数
Do
b = b + 1
c = (12, 2) + (12, 3)
For n = 3 To (5, 3)
(12, n + 1) = (12, n) * a
c = c + (12, n + 1)
Next n
a = a +
If b > 1000 Then Exit Do
Loop Until Abs((5, 9) - c) <
'模径确定
(10, 2) = Format$((3, 3) * ((1 -(12, 2) / 100) " (1/2)), "")
Sheet1 .Cells(10,