(在线等)懂EXCEL中VBA程序设计的请进
发布网友
发布时间：2023-05-24 23:57
共3个回答
热心网友
时间：2024-11-07 17:00
YeXiangLiuSu = 2 '液相流速=2
Phi = 3.142 'π=3.142
With Sheet = "物料" 'With语句,作用于对象:"物料"表
QiShiLie = 19 '起始列=19
Dim i As Integer '定义变量i为整数
For i = 2 To 10 'FOR...NEXT循环语句,i从2到10
QiXiangFenLv = Cells(5, i) '气相分率=5行i列单元格的值
LiuLiang = Cells(8, i) '流量=8行i列单元格的值
If QiXiangFenLv = 0 Then 'IF条件判断语句,如果气相分率为零(即只有液相,没有气相)
JiSuanZhi = Sqr((LiuLiang * 4 / (Phi * 3600)) / YeXiangLiuSu) * 1000 '计算值=开平方(流量×4/(π×3600))
ElseIf QiXiangFenLv = 1 Then '否则,如果气相分率为1(即全部为气相,没有液相)
JiSuanZhi = Sqr((LiuLiang * 4 / (Phi * 3600)) / QiXiangLiuSu) * 1000 '计算值=开平方(流量×4/(π×3600)/气相分率)×1000
Else '否则,气液两相
JiSuanZhi = Sqr((LiuLiang * 4 / (Phi * 3600)) / ((QiXiangLiuSu - YeXiangLiuSu) * QiXiangFenLv + YeXiangLiuSu)) * 1000 '计算值=开平方(流量×4/(π×3600)/((气相分率-液相分离)×气相分率+液相分率))×1000
End If '结束IF语句
If JiSuanZhi <= 18 Then 'IF条件判断语句,如果计算值小于或等于18
RuanZhen = 15 '圆整=15
......
End If '结束IF语句
Cells(QiShiLie, i) = JiSuanZhi '起始列行i列单元格的值=计算值
Cells(QiShiLie + 1, i) = RuanZhen '起始列+1行i列单元格的值=圆整
Cells(QiShiLie + 2, i) = (LiuLiang * 4 / (Phi * 3600)) * 10 ^ 6 / RuanZhen ^ 2 '起始列+2行i列单元格的值=(流量×4/(π×3600)×10的6次方/圆整的平方
Next i 'FOR...NEXT循环语句,i自动累加1(默认步长值为1)
End With 'WITH语句结束
End Sub '本程序结束
热心网友
时间：2024-11-07 17:01
这东西不是每一个都解释出来也能有什么用的
热心网友
时间：2024-11-07 17:01
