【完美解决】超多条件判断（特别感谢zhaogang1960、excelflower两位大师）

excelflower

在49楼更新最新文件http://club.excelhome.net/viewth ... =1255635#pid4679222

[ 本帖最后由 excelflower 于 2011-3-2 23:40 编辑 ]

puresway

原帖由 excelflower 于 2011-3-2 13:38 发表
881016

前辈，太感谢您了，小弟不知道该说什么好了，感激涕零!嘿嘿！太麻烦您了。

puresway

原帖由 excelflower 于 2011-3-2 13:38 发表
881016

前辈，高级以上的判断该如何写呢，还有如果降级的话能不能加上与维持的的差额啊，谢谢您！看到那么长的代码，小弟真的都无法表达感激之情了，谢谢您，前辈！

excelflower

原帖由 puresway 于 2011-3-2 13:48 发表

前辈，高级以上的判断该如何写呢，还有如果降级的话能不能加上与维持的的差额啊，谢谢您！看到那么长的代码，小弟真的都无法表达感激之情了，谢谢您，前辈！

代码有问题，我再看看。

excelflower

晋升：总指标和AC指标、同时大于相应标准才升级，还是有一项大于相应指标就升级？
降级：总指标和AC指标、同时小于相应标准才降级，还是有一项小于相应指标就降级？

zhaogang1960

原帖由 puresway 于 2011-3-2 13:09 发表
谢谢赵老师，前面的几列就是要写入他的达成指标与他职级对应最近的考核标准的差额，如果总指标没有达到维持，就在维持差额列写入距离维持的差额，达到了维持，就看他是否满足晋升一级所需的两个指标，如果不满足，就 ...

理解有偏差，修改如下：
Sub Macro1()
    Dim d As Object, arr, brr, crr(), i&, r&
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("考核标准").Range("A1").CurrentRegion
    For i = 3 To UBound(arr)
        d(arr(i, 1)) = i
    Next
    brr = Range("C3:E" & Range("C65536").End(xlUp).Row)
    ReDim crr(1 To UBound(brr), 1 To 6)
    For i = 1 To UBound(brr)
        If d.Exists(brr(i, 1)) Then
            r = d(brr(i, 1))
            If brr(i, 2) >= arr(r, 2) Then
                If brr(i, 2) >= Val(arr(r - 1, 3)) And brr(i, 3) >= Val(arr(r - 1, 4)) Then
                    If r >= 5 Then
                        crr(i, 6) = "晋升两级"
                    Else
                        crr(i, 6) = "维持" & Left(brr(i, 1), 2)
                    End If
                ElseIf brr(i, 2) >= Val(arr(r, 3)) And brr(i, 3) >= Val(arr(r, 4)) Then
                    If r >= 4 Then
                        crr(i, 6) = "晋升一级"
                        crr(i, 4) = brr(i, 2) - arr(r - 1, 3)
                        crr(i, 5) = brr(i, 3) - arr(r - 1, 4)
                    Else
                        crr(i, 6) = "维持" & Left(arr(i, 1), 2)
                    End If
                Else
                    crr(i, 6) = "维持待晋"
                    crr(i, 2) = brr(i, 2) - arr(r, 3)
                    crr(i, 3) = brr(i, 3) - arr(r, 4)
                End If
            Else
                crr(i, 6) = "待维持"
                crr(i, 1) = brr(i, 2) - arr(r, 2)
            End If
        End If
    Next
    Range("f3").Resize(i - 1, 6) = crr
End Sub

puresway

原帖由 excelflower 于 2011-3-2 14:16 发表
晋升：总指标和AC指标、同时大于相应标准才升级，还是有一项大于相应指标就升级？
降级：总指标和AC指标、同时小于相应标准才降级，还是有一项小于相应指标就降级？

晋升的话必须同时满足两个标准，降级的话只考虑维持标准，只要低于维持标准，就降级，能连续降两级。并且在表中职级那一列前辈好像设的是可以更新的吧，计算一次之后好像职级就变了，能不能原有职级那列不变，然后在备注后加一列写上达到的职级。谢谢前辈！

zhaogang1960

附件
求助.rar (17.65 KB, 下载次数: 23)

2011-3-2 14:45 上传

点击文件名下载附件

excelflower

修正附件在49楼http://club.excelhome.net/viewth ... =1255635#pid4679222

[ 本帖最后由 excelflower 于 2011-3-2 23:40 编辑 ]

excelflower

楼主想法挺多的，呵呵

[ 本帖最后由 excelflower 于 2011-3-2 23:41 编辑 ]