跪求各位大仙：怎么根据多个能率奖条件，设置函数公式计算能率奖金。

淡距离

跪求各位大仙：
    怎么根据多个能率奖条件，设置函数公式计算能率奖金，有劳大仙们了，非常感谢！

dujunming

Sub ceshi()
Dim i%, j%, mh1%, mh2%
Dim sht1 As Worksheet, sht2 As Worksheet
Set sht1 = Sheets("明细表")
Set sht2 = Sheets("标准")
mh1 = sht1.[a65535].End(xlUp).Row
mh2 = sht2.[a65535].End(xlUp).Row
sht1.Range("f4:f" & mh1 - 1).ClearContents
sht2.Select
Range("h1:l" & mh2 + 1).ClearContents
For j = 1 To 5
    mh2 = mh2 - IIf(j = 5, 2, 0)
    For i = 3 To mh2
        If i = 3 Then
            Cells(i, 7 + j) = 0
        Else
            Cells(i, 7 + j) = Left(Cells(i, j), 2)
        End If
    Next
Next
sht1.Select
Range("g3") = "类": Range("h3") = "位": Range("i3") = "小位"
Range("g4") = "=IF(D4=""检验"",2,1)"
Range("h4") = "=MATCH($D4,标准!$A$2:$F$2,0)"
Range("i4") = "=MATCH(E4*100,OFFSET(标准!$H$2:$H$9,0,H4-1),1)"
Range("f4") = "=INDEX(OFFSET(标准!$D$2:$D$9,0,IF(G4=1,0,2)),I4)"
Range("f4:i" & mh1).FillDown
Range("f4:i" & mh1) = Range("f4:i" & mh1).Value
Range("g3:i" & mh1).ClearContents
sht2.Range("h1:l" & mh2 + 9).ClearContents
Range("h1") = "技术支持：(QQ)4857066,(微信)dujm312"
MsgBox "执行完毕！"
End Sub

淡距离

dujunming 发表于 2019-9-2 19:43
Sub ceshi()
Dim i%, j%, mh1%, mh2%
Dim sht1 As Worksheet, sht2 As Worksheet

大仙，您好！
     非常感谢您的指导！
     但想麻烦您，我下载附件后打开没有公式，是数据，不知是不是我的版本（Office2013）不行，能麻烦您再遍吗，不胜感激！

dujunming

用ＶＢＡ代码，点击按钮执行，加微信dujm312