设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 9199|回复: 28
打印 上一主题 下一主题

[查询] 自定义函数查询

[复制链接]
跳转到指定楼层
1#
发表于 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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享1 分享淘帖 订阅订阅
28#
发表于 2020-4-19 11:22:18 | 只看该作者
你好,谢谢
回复

使用道具 举报

27#
发表于 2018-12-8 23:04:58 | 只看该作者
哦哦哦哦哦哦噢噢噢噢哦哦哦哦哦哦哦哦哦
26#
发表于 2018-12-8 10:43:18 | 只看该作者
学习思路
回复

使用道具 举报

25#
发表于 2016-3-20 05:07:47 来自手机 | 只看该作者
顶看看
回复

使用道具 举报

24#
发表于 2016-3-15 16:26:16 | 只看该作者
完全看不懂啊,想学习,怎么办

点评

先把VBA入门基础学会,自定义函数查询就不在话下啦,  发表于 2016-3-15 16:35
23#
发表于 2016-3-14 17:06:13 | 只看该作者
好!
回复

使用道具 举报

22#
发表于 2015-12-6 10:33:22 | 只看该作者
自定义函数查询
21#
发表于 2015-8-31 19:34:05 | 只看该作者
呵呵

回复

使用道具 举报

20#
发表于 2014-11-6 08:43:46 | 只看该作者
谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-4 06:18 , Processed in 0.094509 second(s), 40 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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