设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 9029|回复: 28

[查询] 自定义函数查询

[复制链接]
发表于 2010-12-16 10:25:17 | 显示全部楼层 |阅读模式
不知道大家是否会使用一些自定义函数来查询呢?其实在这之前我也写过一个,只是当时有些东西没理解,用不了。现在根据一个网友要求,写了一个自定义函数来执行查询:

看附图知道,要求很简单,就是要根据成绩和组别来分组。——这个用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组)。
游客,如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2010-12-16 10:38:22 | 显示全部楼层
你好,谢谢。
发表于 2010-12-16 12:11:08 | 显示全部楼层
,谢谢。
发表于 2010-12-17 00:32:39 | 显示全部楼层
谢谢
发表于 2010-12-17 08:05:55 | 显示全部楼层
谢谢
发表于 2010-12-17 22:04:08 | 显示全部楼层
瞄瞄
发表于 2010-12-19 12:28:56 | 显示全部楼层
谢谢分享,看看
发表于 2010-12-19 16:26:36 | 显示全部楼层
例子很好,值得借鉴
发表于 2010-12-19 17:28:28 | 显示全部楼层
rwerwer
发表于 2010-12-20 09:02:38 | 显示全部楼层
学习学习
瞧瞧
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 14:19 , Processed in 0.102124 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表