不同的颜色给我们不同的感觉。所以生活中有不同的颜色选择，比如衣物，生活用品等 而颜色有它的反色，又叫补色。比如有黑就有白，红对应青。 下面函数用RGB取颜色的反色 对比色 Public Function GetRevColor...

VBA读写文本文件,一般使用下面的方法，即打开文件标识符号句柄 建议使用Freefile dim i as Integer i=FreeFile Open FileName For Input As #i Open FileName...

Article: Q154517 Product(s): Microsoft Visual Basic for Windows Version(s): WINDOWS:4.0 Operating System(s):  Keywo...

Access自带了DStdevp 聚合函数求标准差，但只能对表中字段求标准差，无法对提供的多个数字参数求标准差 所以自己做了一个求标准差的自定义函数，同样适用于Access VBA, Excel VBA, VB6 'MyStdevp 求标...

Access自带了DAvg聚合函数求平均值，但只能对表中字段求平均值，无法对提供的多个数字参数求平均值 所以自己做了一个求平均值的自定义函数，同样适用于Access VBA, Excel VBA, VB6 'MyAvg 求平均值 Pub...

STDEVP 是用来计算标准差的函数,STDEV是样本标准差的函数,STDEVP是总体标准差的函数。 在Sql语句中 access可使用 STDEVP标准差的函数 但在VBA代码中，如果对一组数字求标准差，则没有一个自定义的函数，...

在数据查询中，我们有时需要找出一组数据中出现次数最多的数字。这个也是我们常说的众数了。 如在数组{2，3，2，5，8，2，16，17} ，众数即是 2了 这个我们如果用SQL语句，是很容易求出来的。用count 统计，用order by 排...

Access Excel VBA通过API修改硬盘卷标(Disk Label) 俗称硬盘标签 或硬盘别名--Change the Drive Volume Label 调用了: Windows 系统 A...

Public Function GetDeptCodeLen(Optional rintLv As Integer = 0) As Integer     Dim strTmp As String   &nbs...

在Excel中我们可以使用Rank函数对数据进行排名操作。 而Access是没有Rank函数的，所以不能直接用此函数排名操作。 下面介绍使用VBA代码和建立SQL查询来完成排序操作。 一、排名的种类跟算法 1、非连续排名 逻辑算法...

access不能像Excel一样，用Min（）和Max（）函数直接选择任意列表中的最小/最大值。 access一般都是在一列数据中找出最值。不能跨字段获取 下面函数，可以直接找出多个值（包括货币和日期）的最小值，如果列表中没有数值，则它们返...

在access vba中，因为要对表中数据的操作，编写代码经常需要调用SQL语句。 我们通常不会在VBA代码中键入复杂的查询语句，而是在查询的设计视图中创建一个查询，将其切换到SQL视图，复制并粘贴到VBA中。 但是如果sql语句太长，我们...

本文介绍如何在VBA中递归列出文件，在列表框中显示文件路径和文件名 前面的我们讲过类似的实例《Access获取文件夹内的文件名及路径》，下面函数的功能更加完整 Public Function ListFiles(strPath As S...

在access数据库中，由于数据增加，数据库会膨胀，我们希望存档备份数据。 在不需要的旧数据情况下，例如数十万条记录，并且不断添加新记录。我们会把旧的不需要数据单独的保存在另外的数据库中。 执行过程包括以下步骤： 1. 开始一个事务。 ...

Access内置的DAvg（）函数可以选择指定条件，获取表中字段的平均值 下面分享一个名为EAvg（）函数，该函数是DAvg函数的扩展，可以从该字段中获取TOP（或百分比）的平均值。 甚至可以指定其他字段进行排序 Public Func...