表格中根据不同规格计算单价的VBA程序

congrong-83

求教： 表格中根据不同规格计算单价的VBA程序 由于数据太多附件中只截取了一部分， 目的：“单位单价”需要根据不同的“规格型号”和“铜价”使用里面的公式进行计算。 例如：所有规格0.19/19芯的，“单位单价”自动按照单元格内的公式（=((J1+8000)*0.000005+(2.8*0.15))*1.03）进行计算结果           所有规格0.18/33芯的，“单位单价”自动按照单元格内的公式（=(J1+4000)*0.000008*1.03+0.28）进行计算结果..... J1单元格值得输入可以更改为控件的形式进行输入。

lisai66111

Sub 材料()
Dim i As Integer
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 7).Value = "0.19/19芯" Then
Cells(i, 9).Value = ((Cells(1, 10).Value + 8000) * 0.000005 + (2.8 * 0.15)) * 1.03
End If
If Cells(i, 7).Value = "0.18/33芯*220mm" Then
Cells(i, 9).Value = (Cells(1, 10).Value + 4000) * 0.000008 * 1.03 + 0.28
End If
Next
End

End Sub