自定义函数查询

roych · 发表于 2010-12-16 10:25:17

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

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

Function Level(Perf As Double, Grade As Double) As String
Select Case Grade
Case 1
If Perf >= 10 Then
Level = "C"
ElseIf Per >= 2 Then
Level = "B"
Else
Level = "A"
End If
Case 2
If Perf >= 15 Then
Level = "C"
ElseIf Per >= 12 Then
Level = "B"
Else
Level = "A"
End If
Case Else
Level = ""
End Select
End Function

复制代码

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

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

yyxtj · 发表于 2010-12-16 10:38:22

你好，谢谢。

yanwei82123300 · 发表于 2010-12-16 12:11:08

，谢谢。

studypm · 发表于 2010-12-17 00:32:39

谢谢

khmkhm · 发表于 2010-12-17 08:05:55

谢谢

goto2008 · 发表于 2010-12-17 22:04:08

瞄瞄

gm2wie · 发表于 2010-12-19 12:28:56

谢谢分享，看看

huangyz_xy · 发表于 2010-12-19 16:26:36

例子很好，值得借鉴

qxqjdy · 发表于 2010-12-19 17:28:28

rwerwer

xuwenning · 发表于 2010-12-20 09:02:38

学习学习
瞧瞧

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[查询] 自定义函数查询

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)