Access VBA自定义求平均值函数MyAvg （适用于Excel VBA, VB6）
- 2020-04-15 08:00:00
- zstmtony 原创
- 8674
Access自带了DAvg聚合函数求平均值，但只能对表中字段求平均值，无法对提供的多个数字参数求平均值
所以自己做了一个求平均值的自定义函数，同样适用于Access VBA, Excel VBA, VB6
'MyAvg 求平均值
Public Function MyAvg(Optional dblNum1 As Variant, Optional dblNum2 As Variant, Optional dblNum3 As Variant, Optional dblNum4 As Variant, Optional dblNum5 As Variant) As Double
Dim i As Integer
Dim dblSum As Double
If Not IsMissing(dblNum1) Then
i = i + 1
dblSum = dblSum + Val(dblNum1)
End If
If Not IsMissing(dblNum2) Then
i = i + 1
dblSum = dblSum + Val(dblNum2)
End If
If Not IsMissing(dblNum3) Then
i = i + 1
dblSum = dblSum + Val(dblNum3)
End If
If Not IsMissing(dblNum4) Then
i = i + 1
dblSum = dblSum + Val(dblNum4)
End If
If Not IsMissing(dblNum5) Then
i = i + 1
dblSum = dblSum + Val(dblNum5)
End If
If i > 0 Then
MyAvg = dblSum / i
Else
MyAvg = 0
End If
End Function
Access数据库自身
- office课程播放地址及课程明细
- Excel Word PPT Access VBA等Office技巧学习平台
- 将( .accdb) 文件格式数据库转换为早期版本(.mdb)的文件格式
- 将早期的数据库文件格式（.mdb）转换为 （.accdb） 文件格式
- KB5002984：配置 Jet Red Database Engine 数据库引擎和访问连接引擎以阻止对远程数据库的访问（remote table)
- Access 365 /Access 2019 数据库中哪些函数功能和属性被沙箱模式阻止（如未启动宏时）
- Access Runtime(运行时)最全的下载(2007 2010 2013 2016 2019 Access 365)
Access Activex第三方控件
- Activex控件或Dll 在某些电脑无法正常注册的解决办法(regsvr32注册时卡住）
- office使用部分控件时提示“您没有使用该ActiveX控件许可的问题”的解决方法
- RTF文件（富文本格式）的一些解析
- Access树控件（treeview) 64位Office下出现横向滚动条不会自动定位的解决办法
- Access中国树控件 在win10电脑 节点行间距太小的解决办法
- EXCEL 2019 64位版（Office 2019 64位）早就支持64位Treeview 树控件 ListView列表等64位MSCOMMCTL.OCX控件下载
- VBA或VB6调用WebService（直接Post方式）并解析返回的XML
Access ADP Sql Server等
- 早期PB程序连接Sqlserver出现错误
- MMC 不能打开文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在，不是一个MMC控制台，或者用后来的MMC版
- sql server连接不了的解决办法
- localhost与127.0.0.1区别
- Roych的浅谈数据库开发系列（Sql Server)
- sqlserver 自动备份对备份目录没有存取权限的解决办法
- 安装Sql server 2005 express 和SQLServer2005 Express版企业管理器 SQLServer2005_SSMSEE
文章分类
联系我们
| 联系人： | 王先生 |
|---|---|
| Email： | 18449932@qq.com |
| QQ： | 18449932 |
| 微博： | officecn01 |
