作者:乔山办公网日期:
返回目录:excel表格制作
权当A1为占636f70797a686964616f335有率、B1为重量、折扣输出到C1单元格
Sub test()
Dim L, T, X
L = Range("A1")
T = Range("B1")
If L < 0.035 Then
If T <= 15 Then
X = 0
ElseIf L < 30 Then
X = 0
Else
X = 0
End If
ElseIf L < 0.04 Then
If T <= 15 Then
X = 0.8
ElseIf L < 30 Then
X = 1.2
Else
X = 1.5
End If
ElseIf L < 0.045 Then
If T <= 15 Then
X = 1
ElseIf L < 30 Then
X = 1.5
Else
X = 2
End If
ElseIf L < 0.055 Then
If T <= 15 Then
X = 1.5
ElseIf L < 30 Then
X = 2.5
Else
X = 3.5
End If
ElseIf L < 0.065 Then
If T <= 15 Then
X = 2
ElseIf L < 30 Then
X = 3
Else
X = 4
End If
ElseIf L < 0.08 Then
If T <= 15 Then
X = 2.5
ElseIf L < 30 Then
X = 3.5
Else
X = 4.5
End If
Else
If T <= 15 Then
X = 3
ElseIf L < 30 Then
X = 4
Else
X = 5
End If
End If
Range("C1") = X
End Sub