自定义函数查询

roych

不知道大家是否会使用一些自定义函数来查询呢？其实在这之前我也写过一个，只是当时有些东西没理解，用不了。现在根据一个网友要求，写了一个自定义函数来执行查询：

看附图知道，要求很简单，就是要根据成绩和组别来分组。——这个用Excel来处理简直太简单了，lookup函数或者使用一个数组公式基本就可以解决了，这里就不献丑了。有兴趣的朋友可以试试，不懂的话问问小妖姐姐。
先把自定义函数代码贴上来：

1. Function Level(Perf As Double, Grade As Double) As String
   
2. Select Case Grade
   
3. Case 1
   
4. If Perf >= 10 Then
   
5. Level = "C"
   
6. ElseIf Per >= 2 Then
   
7. Level = "B"
   
8. Else
   
9. Level = "A"
   
10. End If
    
11. Case 2
    
12. If Perf >= 15 Then
    
13. Level = "C"
    
14. ElseIf Per >= 12 Then
    
15. Level = "B"
    
16. Else
    
17. Level = "A"
    
18. End If
    
19. Case Else
    
20. Level = ""
    
21. End Select
    
22. End Function
    

复制代码

说明:
Level:最终显示结果
Perf:成绩
Grade:组别（也就是附图中的1、2组）。

游客，如果您要查看本帖隐藏内容请回复