如何用VBA完成当条件满足时自动相乘

天天天亮

11.zip (11.87 KB, 下载次数: 6)

2019-6-11 20:18 上传

点击文件名下载附件

各位大神，如附件，当BOM表中描述一栏为原材料时，对应的报废率一栏等于1－工艺流程表中的所有良率相乘的结果，工艺流程中所有良率从G2开始相乘，直到碰到空值时退出，如果没有空值，一直相乘到G13时退出。例如附件中C15=原材料，则K15=(1-G2*G3*G4*G5)  G6为空，则乘到G5时退出。如G2到G13都是非空值，则乘到G13时退出，用VBA怎么写，谢谢大家帮忙

719404338

1. Sub t()
   
2. Dim i%, s
   
3. s = 1
   
4. For i = 2 To 13
   
5. If Range("g" & i) <> "" Then
   
6. s = s * Range("g" & i)
   
7. Else
   
8. Exit For
   
9. End If
   
10. Next i
    
11. MsgBox s
    
12. End Sub

复制代码

天天天亮

719404338 发表于 2019-6-11 20:55

老师，还有做一个循环，就是C15到C26有出现原材料时，它对应的报废率的那一栏等于1-S(您上面循环得出来的S)