大神们，在原VBA代码基础上修改代码，看懂代码的请回复

刷卡机电脑监控

在原来“平手”这字另外加上，“平手/平半”，"受让平手/平半"

zxsea_7426

猜一下是不是这个意思:
If drr(a, 4) <> "平手" Then

ElseIf drr(a, 4) <> "平手/平半" Then
   
ElseIf drr(a, 4) <> "受让平手/平半" Then
   
End If

刷卡机电脑监控

zxsea_7426 发表于 2023-7-25 17:20
猜一下是不是这个意思:
If drr(a, 4)  "平手" Then

原码是这样。
                                    If a > 0 Then
                                        If drr(a, 4) <> "平手" Then
                                            drr(a, 7) = IIf(drr(a, 4) = drr(a - 1, 4) And drr(a, 2) = drr(a - 1, 2), Val(drr(a, 3)) - Val(drr(a - 1, 3)), "")
                                            If drr(a, 4) = drr(a - 1, 4) And drr(a, 2) = drr(a - 1, 2) And InStr(drr(a, 4), "受") > 0 Then drr(a, 7) = Val(drr(a, 5)) - Val(drr(a - 1, 5))
                                        End If
                                    End If
''                                    drr(a, 8) = IIf(drr(a, 7) = "", "", IIf(drr(a, 7) > 0.11, "急速", "")))
                                    drr(a, 8) = IIf(drr(a, 7) = "", "", IIf(drr(a, 7) >= gg, "急速", ""))
                                End If

zxsea_7426

也不知道是不是这个意思：

刷卡机电脑监控

zxsea_7426 发表于 2023-7-25 17:37
也不知道是不是这个意思：

有大神修改这样做。  

If a > 0 Then
                                        If drr(a, 4) <> "平手" and drr(a, 4) <> "平手2" and drr(a, 4) <> "平手3" Then
                                            drr(a, 7) = IIf(drr(a, 4) = drr(a - 1, 4) And drr(a, 2) = drr(a - 1, 2), Val(drr(a, 3)) - Val(drr(a - 1, 3)), "")
                                            If drr(a, 4) = drr(a - 1, 4) And drr(a, 2) = drr(a - 1, 2) And InStr(drr(a, 4), "受") > 0 Then drr(a, 7) = Val(drr(a, 5)) - Val(drr(a - 1, 5))
                                        End If
                                    End If
''                                    drr(a, 8) = IIf(drr(a, 7) = "", "", IIf(drr(a, 7) > 0.11, "急速", "")))
                                    drr(a, 8) = IIf(drr(a, 7) = "", "", IIf(drr(a, 7) >= gg, "急速", ""))
                                End If

zxsea_7426

刷卡机电脑监控 发表于 2023-7-25 17:39
有大神修改这样做。  

If a > 0 Then

光看文字不明所以，不能确切知道具体的作用：
还有一种可能根据文字使用不同公式：



    If drr(a, 4) = "平手" Then
        drr(a, 7) = Val(drr(a, 5)) - Val(drr(a - 1, 5))
        
    ElseIf drr(a, 4) = "受让平手/平半" Then
'        此公式自行根据实际修改
'        drr(a, 7) = IIf(drr(a, 4) = drr(a - 1, 4) And drr(a, 2) = drr(a - 1, 2), Val(drr(a, 3)) - Val(drr(a - 1, 3)), "")
   
    ElseIf drr(a, 4) = "平手/平半" Then
'        此公式自行根据实际修改
'        drr(a, 7) = IIf(drr(a, 4) = drr(a - 1, 4) And drr(a, 2) = drr(a - 1, 2), Val(drr(a, 3)) - Val(drr(a - 1, 3)), "")

    End If

刷卡机电脑监控

zxsea_7426 发表于 2023-7-25 17:37
也不知道是不是这个意思：

If drr(a, 4) <> "平手" and drr(a, 4) <> "平手2" and drr(a, 4) <> "平手3" Then
这样才可以，问题已解决

zxsea_7426

刷卡机电脑监控 发表于 2023-7-25 17:57
If drr(a, 4)  "平手" and drr(a, 4)  "平手2" and drr(a, 4)  "平手3" Then
这样才可以，问题已解决

问题解决就OK了。