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

HHAAMM · 发表于 2011-3-1 22:21

楼主，这个貌似不是纯技术问题了
实现你设计的某个功能，言简意赅些或许有人有时间帮你

excelflower · 发表于 2011-3-1 22:22

原帖由 puresway 于 2011-3-1 22:09 发表
原谅小弟再顶一下，希望各位老师帮忙，急啊，数据量大的可拍，手工折腾了很久了，嘿嘿，谢谢各位老师

收到短消息。这个可以解！明天行不？呵呵
没有降级的情况吗？

excelflower · 发表于 2011-3-1 22:51

原帖由 puresway 于 2011-3-1 22:45 发表

有降级的情况，降级也是最多降两级，主要依靠维持指标考察，小弟也是刚接触这些考核的，还望前辈多多指点，谢谢前辈!太感谢您了！嘿嘿

不客气，就是条件判断多了点，能解。明天中午前给你吧。晚安。

puresway · 发表于 2011-3-1 22:45

原帖由 excelflower 于 2011-3-1 22:22 发表

收到短消息。这个可以解！明天行不？呵呵
没有降级的情况吗？

有降级的情况，降级也是最多降两级，主要依靠维持指标考察，小弟也是刚接触这些考核的，还望前辈多多指点，谢谢前辈!太感谢您了！嘿嘿

puresway · 发表于 2011-3-1 23:00

谢谢前辈，真是太感谢您了！嘿嘿！晚安！

puresway · 发表于 2011-3-2 10:54

真是麻烦前辈了，条件太多了，多的很不好意思，嘿嘿

zhaogang1960 · 发表于 2011-3-2 11:29

短信收到，我阅读困难，只看懂一点点，先从6列中的最后一列(备注)开始吧：
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 - 2, 3)) And brr(i, 3) >= Val(arr(r - 2, 4)) Then
                  If r >= 6 Then
                     crr(i, 6) = "晋升两级"
                  Else
                     crr(i, 6) = "维持"
                  End If
            ElseIf 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) = "维持"
                  End If
            Else
                  crr(i, 6) = "维持待晋"
            End If
         Else
            crr(i, 6) = "待维持"
         End If
      End If
Next
Range("f3").Resize(i - 1, 6) = crr
End Sub

zhaogang1960 · 发表于 2011-3-2 11:31

附件

求助.rar (16.01 KB, 下载次数: 51)

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

谢谢赵老师，前面的几列就是要写入他的达成指标与他职级对应最近的考核标准的差额，如果总指标没有达到维持，就在维持差额列写入距离维持的差额，达到了维持，就看他是否满足晋升一级所需的两个指标，如果不满足，就算出与晋升指标的两个差额写入晋升一级差额列。如果又满足了，则判断他职级上一级的对应的晋升指标，不满足就在晋升两级差额列写入他与晋升两级的两个指标差额（可能一正一负，可能全负），满足了就说明他可以晋升两级。直接在备注栏写入晋升两级。前面的差额列不用写入了。另外，赵老师，您帮忙做的表中，晋升一级的备注好像不对啊，比如17行的，晋升一级但不够晋升两级，但后面写的是维持待晋。能不能改一下啊，谢谢您！

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

不知道excelflower前辈在不嘿嘿

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

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