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

excelflower · 发表于 2011-3-2 13:38

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

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

puresway · 发表于 2011-3-2 13:45

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

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

puresway · 发表于 2011-3-2 13:48

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

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

excelflower · 发表于 2011-3-2 14:08

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

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

代码有问题，我再看看。

excelflower · 发表于 2011-3-2 14:16

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

zhaogang1960 · 发表于 2011-3-2 14:43

原帖由 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 · 发表于 2011-3-2 14:44

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

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

zhaogang1960 · 发表于 2011-3-2 14:45

附件

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

excelflower · 发表于 2011-3-2 15:19

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

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

excelflower · 发表于 2011-3-2 15:33

楼主想法挺多的，呵呵

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

		自动登录	找回密码
密码			免费注册

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