算法函数_API_系统

在编写vba代码时,经常会因为连接字符串的符号太多,没有组成一对导致错误。 这里版主粉丝写了一个函数方便串接SQL字符串,可以让串接变得更直观,特别是有单引号的情况下,类似C#中的String.Format方法 函数用途:可以方便串接S...
在调用IE对象时,多次调用会出现错误,防止多次调用IE对象,可以把把IE浏览器对象彻底地关闭 添加一个IE_Sledgehammer函数确保IE浏览器完全关闭 Sub IE_Sledgehammer() Dim objWMI As ...
为了突出信息的重要性,我们希望信息能高亮显示,甚至一直闪烁让更多的人注意消息通知。 可以通过计时器的时间间隔设置不同的闪烁颜色,以毫秒为单位使标签控件闪烁。 设置1秒钟改变一下颜色,颜色通过rnd函数随机生成新的RGB颜色 ' 计时...
很多用过access的人都知道,access有个非常不好的毛病,就是容易崩溃。然后数据库损坏 我们可以做的就是常常备份,避免数据丢失带来巨大的影响 一般备份我们可以直接复制文件,按指定的要求在指定文件夹创建备份文件。 这里我们用dos批处...
在 Visual Basic中可以通过HWnd属性获取UserForms 的句柄,HWnd属性提供对窗体的窗口句柄的访问。 在使用与窗口相关的Windows API时,需要窗口句柄。 但是和 Visual Ba...
Excel自带 Asin Acos函数,但Access没有,可以自己用VBA来实现 一个 Access实现 Asin Acos函数(自定义函数) Const PI As Double = 3.1415926535...
不同的颜色给我们不同的感觉。所以生活中有不同的颜色选择,比如衣物,生活用品等 而颜色有它的反色,又叫补色。比如有黑就有白,红对应青。 下面函数用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...
1/8