大神出来吧。多重标准选择定位

wxlw

这个有点难度，大神现身吧。
根据团队、级别、销售总额直接返回考核结果，且考核标准不一样。

wxlw

求解答啊，怎么都没人理我

策天小君

1. Sub 结果()
   
2. Dim m, i As Integer
   
3. For i = 1 To 12
   
4.     a = Cells(i + 1, 4).Value
   
5.     For m = 1 To 6
   
6.     Select Case a
   
7.         Case Is >= Worksheets("销售考核标准").Cells(i + 1, 9)
   
8.             Cells(i + 1, 5) = Worksheets("销售考核标准").Cells(1, 9)
   
9.     Exit For
   
10.         Case Worksheets("销售考核标准").Cells(i + 1, 9 - m) To Worksheets("销售考核标准").Cells(i + 1, 10 - m) - 1
    
11.             Cells(i + 1, 5) = Worksheets("销售考核标准").Cells(1, 9 - m)
    
12.     End Select
    
13.     Next
    
14.     If Cells(i + 1, 5) = "" Then
    
15.         Cells(i + 1, 5) = "低于评级标准"
    
16.     End If
    
17. Next
    
18. End Sub

复制代码

wxlw

策天小君 发表于 2015-5-23 21:15

谢谢。。。

03510225

函数好像很难解决

卡萨布兰卡123

逻辑没写清楚啊
比方说C1        1         张1        27,000     这个介于不及格和差之间  应该算哪个？

jiangmingsong

函数可以解决，但是需要修改一下你的查找标准的格式。由于公司文件加密，需要的话，可以回复我，提醒我回家帮你解决一下！