Sub 数码打印计价()
Dim x
For x = 150 To 155
If Cells(x, 3) = "生产" Then
End If
Next
For x = 150 To 155
If Cells(x, 15) = "" Then
Cells(x, 16) = 0
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 10
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 18
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 25
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 30
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 45
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 50
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 9
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 17
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 23
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 26
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 40
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 45
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 12
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 20
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 30
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 35
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 50
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 55
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 9
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 17
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 23
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 26
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 40
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 40
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 9
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 17
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 23
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 28
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 43
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 48
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 8
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 16
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 21
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 24
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 38
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 43
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 11
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 19
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 28
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 33
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 48
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 53
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 10
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 18
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 26
ElseIf Cells(x, 7) > 300 And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 28
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 43
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 48
Dim x
For x = 150 To 155
If Cells(x, 3) = "生产" Then
End If
Next
For x = 150 To 155
If Cells(x, 15) = "" Then
Cells(x, 16) = 0
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 10
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 18
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 25
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 30
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 45
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 50
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 9
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 17
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 23
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 26
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 40
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 45
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 12
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 20
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 30
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 35
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 50
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 55
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 9
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 17
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 23
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 26
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 40
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" Then
Cells(x, 16) = 40
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 9
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 17
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 23
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 28
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 43
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 48
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 8
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 16
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 21
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 24
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 38
ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 43
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 11
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 19
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 28
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 33
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 48
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) <= 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 53
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 10
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 18
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 26
ElseIf Cells(x, 7) > 300 And Cells(x, 8) > 5 And Cells(x, 11) <= 0.5 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 28
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) <= 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 43
ElseIf Cells(x, 7) = ">300g" And Cells(x, 8) > 5 And Cells(x, 11) > 0.85 And Cells(x, 15) = "四色" And Cells(x, 31) = "自带纸" Then
Cells(x, 16) = 48