信息安全汇总

Sub huizong()
s1 = 0: s2 = 0: s3 = 0: s4 = 0: s5 = 0
For i = 3 To 13
If Left(Cells(i, 3), 2) = "彩电" Then s1 = s1 + Cells(i, 6)
·
·
·
Next i
Range("f15") = s1
·
·
·
End Sub
Function danjia(x) 用VBA计算单价
If x = "彩电V1" Then danjia = 3200
·
·
·
End Function