←か淡定☆ ヾ 的博客

VBA Regex 正则表达式与 RegEx 应用示例

一个提取数字小数部分的 VBA 自定义函数

本文提供两种从数组中删除重复项的方法（自定义函数）供同学参考！

当我们想要在 **Range** 或 **Sheet** 中搜索内容时，一般会选择 `For...Next` 循环。好吧，`For...Next` 循环没有任何问题，但前提是搜索的范围非常小。一旦搜索的范围变大，就不再建议使用 `For...Next` 循环，因为它会花费更多的时间。既然这样说，那么有替代方案吗？答案是肯定的！在 Excel 中，转到“编辑” > “搜索” 或按`CTRL + F`。看到熟悉的弹出窗口了吗？！我们不仅可以手动使用此搜索工具，还可以通过编程方式使用此搜索工具。本文中，将

将活动工作表生成 PDF，并通过电子邮件发送，两种方案。方案一：通过浏览、选择文件夹方案二：固定位置

附加路径中的所有文件并通过电子邮件发送

查询（或匹配）是程序设计中最重要的功能之一，只有用好查询功能，才能从纷繁复杂的数据中找到符合要求的数据子集，提高工作效率。查询分为模糊查询和精确查询，只匹配一个字符串中的部分字符串就是模糊查询，完全一致则是精确批量，本贴总结了10 种 VBA 查询方法，分享给大家，以博大方之家一笑，或者给初学者提供一点入门知识。

Recordset 对象（记录集）转数组

利用API 测试计算机网络连通性

目录1. 执行多个字符串替换2. 退出当前程序并让 VBA 代码等待该外部应用程序完成3. 加、解密码字符串1. 执行多个字符串替换如何轻松执行多个字符串替换？当用唯一的字符串去替换一个或多个字符串时的，VBA 替换功能非常好用。但是，如果您有一个包含多个特定字符的字符串实例，且每个实例都必须由不同的字符串替换，那么就不好办了。一个典型的例子是针对一个 ADO 连接字符串，需要动态替换特定的服务器、数据库、用户名和/或密码。请看下面的函数，它能快速轻松帮您执行这种基于标记的字符串替换。.

作为开发人员，流畅运行的程序是我们的最终目标。 如果我们可以编写一个宏，使程序以最少的输入运行并处理自己的错误，那么我们就成功了一个常见的错误是没有捕捉到容易预料的错误，比如一个空变量被传递到一个函数中并抛出一个错误或输出意外的结果。

十六进制、RGB 与 VBA颜色值对照表

用 Excel+VBA 与 SQL Server 数据库交互

对有多个隐藏页面，每页都有一堆控件的 MultiPage 进行循环。以确定下一个页面的状态

本文提供的代码，将允许隐藏 VBA inputbox 输入框中输入的字符，即输入的字符将显示为 * （星号）或您设置其它特殊符号

本文将引导您了解如何制作一个漂亮的VBA进度条。以及如何在您的项目中实现它！当您的程序需要几分钟才能完成时，展示进度是一项非常有用的功能。 如果没有定期状态更新，您的用户会怀疑程序是否仍在运行。 按照此分步指南了解如何将进度条整合到您自己的电子表格中。

通过一段宏，查找两个 excel 列之间的差异。 遍历未知长度和未知顺序的列，将较长的列表与较短的列表进行比较；同时，利用另一个能自动绘制箭头的宏，来突出显示差异并指向匹配单元格的“`Key`”。

一定有不少玩 VBA 的同学都不希望自己辛辛苦苦写的 VBA 代码，被别人拿去商业用途。对任何一门编程语言，代码的安全都是相对的，有编译就会有反编译。只能保证代码的相对安全，可以让大多数拿来主义的小白望而却步。针对 Excel 文档的保护可以从单元格、工作表和工作簿等层面加以保护；那么针对 VBA 代码可以又从哪些方面加以保护呢？这里简单介绍两种方法加以保护

目录1 厘米&英寸&像素&Point 的转换1 厘米&英寸&像素&Point 的转换英寸（inch）转换为 PointVinchs = 10 ' inchVPoints = Application.InchesToPoints(Vinchs)Debug.Print Vpoints厘米（cm）转换为 PointVCentimeter= 1 ' cmVPoints = Application.CentimetersToPoi...

本文详细介绍了一款国外小哥用 VBA 自制的 TreeView 树视图组件以及用法，用于替代 Excel 中自带的 TreeView，该组件全部由 TextBox 以及 Frame 制成，从而彻底解决了移植兼容性问题。貌似目前国内尚无人开发此类作品。经本人加以研究并使用测试后，在此撰文推荐给国人，彻底解决附加控件 TreeView 的痛点。

Excel 表单控件之 CheckBox 集合事件响应

目录1. 关于 Erase() 函数1.1 作用1.2 语法1.3 说明1.4 示例1.4.1 示例一1.4.2 示例二1. 关于 Erase() 函数1.1 作用重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。它的行为取决于数组的类型（见 1.3 ）。1.2 语法Erase arraylist所需的 arraylist 参数是一个或多个用逗号隔开的需要清除的数组变量。1.3 说明Erase 根据数组是固定大小的还是动态的，来采取完全不同的行为。Erase 无需...

在VBA 中用 Environ 获取系统环境变量

VBA中 GetOpenFilename 方法

目录一. FSO-文件系统对象1.1 FSO的用途1.2 FSO 对象模型所包含的对象1.3 FSO对象的创建1.4 FSO对象属性示例二 FSO 中的方法和属性2.1 属性2.2 方法2.2.1 BuildPath 方法2.2.2 FileExists 方法2.2.3 GetFile 方法2.2.4 GetFileName 方法2.2.5 GetFileVersion 方法2.2.6 CopyFile 方法2.2.7 CreateTextFile 方法2.2.8 MoveFile 方法2.2.9 De..

自制EXCEL颜色选择器，利用VBA 实现自己制作一个兼容 WPS 和 EXCEL的窗体式颜色选择（拾取）器

Excel VBA 处理图形图表详解

Access中编写VBA代码时，如何区分、使用“.”和“！”

目录1. 单元格对象与方法1.1 End 方法1.2 SpecialCells 方法1. 单元格对象与方法1.1 End 方法【应用】：查找最后一行标准写法（不是63336 ，也不是1048576）：Cells( Rows.Count, 1).End ( xlUp ) Cells( Columns.Count, 1).End ( xlToLeft ) 这样，不管是Excel 2003 版本（最大65536行）还是Excel 2007 及以后版本（最大1048576行），都不会报错。

工作中，经常是在打开了一个EXCEL进行必要的编辑后，会忘记关闭，如果该工作簿是共享的，会妨碍其他人的使用。那么，有没有办法让工作薄长时间无动作时自动关闭呢？即在这个工作薄打开后过了3分钟或者10分钟没有编辑的情况下，可以自动关闭呢。本文就给大家介绍一下一种VBA方案，~

VBA 有很多用于文件操作的语句和函数，能满足绝大多数场景下的文件操作要求。本文将按操作目的一一进行介绍。

目录1 VBA中的字符串2 VBA中处理字符串的函数2.1 比较字符串2.1.1 比较运算符2.1.2 StrComp函数2.2 转换字符串2.2.1 StrConv函数2.2.2 Str函数2.2.3 CStr函数2.3 创建字符串2.3.1 Space函数2.3.2 String函数2.4 获取字符串的长度2.5 格式化字符串2.6 查找字符串2.6.1 InStr函数2.6.2 InStrRev函数2.7 提取字符/字符串2.7.1 Left函数2.7.2 Right函数2.7.3 Mid函数2.7.

目录1. 按接收日期批量不重复编号2. 用字典实现3个ComboBox关联的三级下拉3. 填表4. 字典统计不重复计次1. 按接收日期批量不重复编号问题：以接收日期为主分项编号，同一天接收到的不同“大项目号”和“文件编号”给予序列编号，同一天“大项目号和文件编号重复”的编为一个号，同一天编号不重复。比如2011-10-14只有1-2两个编号，2011-10-11有1-6共六个编号，其它按接收日期依此类推。       &n

凡是上过学校的人都使用过字典，从新华字典、成语词典，到英汉字典以及各种各样数不胜数的专业字典，字典是上学必备的、经常查阅的工具书。有了它们，我们可以很方便的通过查找某个关键字，进而查到这个关键字的种种解释，非常快捷实用。

关于【VBA 网抓】的那些事，最近，由于我的一个VBA工程项目，需要做到与网页里的特定数据进行比对，由于在此之前，也没有对VBA网抓有过多的了解，因此就凭着一股猛劲，边做边学，并最终达到了预期目的。 对于此过程中涉及网抓的一些方法、过程和遇到的问题，谨记于此，留待日后翻阅，及给有需要的朋友提供一些参考。

主要介绍Excel与Access数据库的互连，及sql语句中的增、删、改的语法构造

文章目录1. 自定义函数1.1 去除空格1. 自定义函数1.1 去除空格Function DStrim(KeyInstr As String) Dim n As Integer For n = 1 To Len(KeyInstr) If Asc(Mid(KeyInstr, n, 1)) <> 32 Then DStrim = DStrim & Mid(KeyInstr, n, 1) end if NextEnd

AppAccess.DoCmd.TransferSpreadsheet 方法1. 报错原因2. 解决方案1. 报错原因本文针对Excel VBA工程中对Access对象采用后期绑定出现的报告，经调试解决后，现记录如下：报错原因：由于没有像前期绑定那样事先引用 Microsoft Access 12.0 Object Library，而后期绑定时，DoCmd.TransferSpreadsheet方法中的参数类型不符导致运行时报错。'后期绑定数据库对象Dim AppAccess As Object

撤销工作表密码保护有时工作簿太长时间没用，可能会忘掉工作表的保护密码以致无法编辑，本代码能快速有效解决此问题有时工作簿太长时间没用，可能会忘掉工作表的保护密码以致无法编辑，本代码能快速有效解决此问题Option ExplicitPublic Sub AllInternalPasswords() ' 中断工作表和工作簿结构密码 ' 算法创始人Bob McCormick ' Norman Harker / JE McGimpsey 2002年12月27日（1.1版） '

目录1.函数（一）1.1 功能说明及代码1.2 自定义函数调用实例2 函数（二）2.1 功能说明及代码2.2 自定义函数调用3 ADO数据类型在Access、SQL Server、Oracle之间的对应关系1.函数（一）1.1 功能说明及代码场景：在需要对表中字段的类型进行识别判断时，当用Field.type获取字段类型时，只能获得表示该类型的一个数字，不直观；函数功能：用于将数据类型整数值转换为类型字符串，如：20 → "adBigInt“ 或 20 →”整数“函数名称：IntToString