nianfen的博客

用户窗体-Sub CkbTitleElseEnd IfEnd Sub代码解析：插入标题，点击勾选则显示文本框，再点击取消勾选，隐藏文本框。用户窗体-Sub CmbFilterColumnExit ForEnd IfNextExit ForEnd IfNextElseEnd IfEnd IfNextEnd Sub代码解析：其他筛选，改变筛选字段，重新设置其下两个复合框的List用户窗体-Sub CmbSplit_ChangeEnd IfEnd IfEnd If。

2.自定保存文件名、选择待合并文件所在文件夹Me.TxbTitle = "请输入保存的文件名"ElseEnd IfEnd SubElseExit SubEnd IfEnd WithEnd Sub'StopDoEventsLoopEnd If'确认继续函数Ans = MsgBox(Msg & Chr(10) & Chr(10) & "是(Y)继续?" & Chr(10) & Chr(10) & "否(N)退出！", Config)

先把一些公共变量值清空，然后选择文件，根据文件后缀判断，是PDF的，我们运行ReadPDFInvoiceInfo过程，是OFD的，我们运行ReadOFDInvoiceInfo过程，这两个过程都是用来读取发票信息的，读取到的信息存到变量中，完成后，回到本过程再把发票信息写入工作表，并添加发票文件链接。（E）开头是旧式的电子发票，有密码区的，后面的最近的数电发票，两者的结构是不一样的，有兴趣的朋友可以找来这样的发票解压后分析。这里建立了一个删除文件夹的过程，看看代码就知道是ChatGPT生成的，基本没改。

2、读取OFD格式的发票，Sub ReadOFDInvoiceInfo()1、读取PDF格式的发票，Sub ReadPDFInvoiceInfo()

如果最终找到一条符合条件的记录，我们把它存到arrSelected（）数组里，这里我们采用Redim preserve方法，动态扩展数组，不断地写入符合条件的记录，同时把记录数记入k，作为判断arrSelected是否有记录的依据，在程序结尾的MsgBox也引用到k。（3）从1-5循环，动态添加控件，科目标签（语文~总分）、标准标签（各科分数）、差值文本框、方式选项按钮，并设置控件的各种属性。这里，差值可以修改，总分差值是单独的数字，跟前面的各科差没有关系。方式，根据查询需要点选，默认是总差。

1、在Sheets("Main")中，设置单元格A1行高为250，列宽为80，增加命令按钮“CmdShowMain”，显示主菜单的意思，Caption改为“收费管理系统”；（4）Usf_Login窗体的“登录”按钮：删除把用户信息写入Sheets（“Main”）的代码，改为写入Sheets(“Settings”）的对应单元格。主界面设置比较简单，我们打开【收费管理系统】EXCEL文档，输入用户名密码，进入VBA编辑器，设有密码的必须输入密码才能进入，这里密码是0。

line 6~18：判断用户输入的“用户ID”，如果为空，则提示输入，否则就到数据库“tb用户”表中查询“用户ID=TxbUserID”的记录的数量，如果为0，则表明数据库中没有此用户ID，给出提示信息，退出过程，之所以要预先查询用户ID是否存在，是为了避免后面查询“密码、用户姓名”出现错误。窗体激活代码，这里暂时可以什么都不用做，所以我把过程中的代码都给注释掉了，等后续再视情况添加代码。

，文中提及数据存储在Access中的情况，今天我们准备把数据表移到Access中，这里我们一步一步地带领大家创建一个带密码保护的Access数据库，已经会操作的朋友可以略过。2、点开文件名旁边的打开按钮，更改文件保存路径，修改文件名为“收费管理系统数据库.accdb”。4、自动创建一个表，我们可以立即添加字段，类型均为短文本，添加用户记录。5、点击左上的保存按钮，在弹出的对话框中，修改表名为“tb用户”7、保存、关闭数据库文件，至此，Access数据库文件创建完成。3、点击确定，进入数据库。

用户登录成功后，LoginStatus的值为1，在用户窗体退出代码中用到此变量，如果为1，则窗体退出时仅仅是退出窗体，EXCEL文件正常打开，包括后续点击重新登录时，再点击“退出”按钮，程序不会退出。如果找到用户ID，则比较密码，如果密码相符，则登录成功，退出窗体，如果密码不符，则不能登录，清空已输入的密码，并把焦点放到TxtPassWord，以便再次输入；如果用户正常登录，此时LoginStatus的值应为1，如果为0，则表明用户非正常进入，我们就退出EXCEL文件。8、给VBA工程添加密码，保护工程。

收款基本流程：录入客户姓名，依次点选收费项目各个明细项目，核对单价，如果与实收不符则进行修改，输入数量，点选收款方式，然后点添加，向下面的收费详情增加一条明细记录，可再次添加收费项目，最多6条（受打印单据条目限制），核对无误后点结算。于是，我就开动脑筋，以我使用各种ERP系统的经验，开始着手开发这个所谓的中医诊所收费系统，前后大概得有一两个月吧，具体记不清了，总算完工交付使用。其实，本文分享的应用还在此之前，后续经过了升级，后来也改成EXCEL+ACCESS版了，这是后话，暂且不表）3、设计窗体收款界面。

正则表达式（Regular Expression），又称为“正则式”、“规则表达式”、“常规表示法”，是一种用来匹配、查找、替换字符串的工具。它通过一定的符号、元字符和操作符的组合来表达一个特定的模式，从而匹配符合该模式的字符串。4、D列用GetNum函数，取A列字符串中的数字，第一个参数表示取第几个匹配结果，第二个参数表示连续数字的长度，联合起来表示符合指定长度的第几个数字。如果第二个参数省略，则表示匹配第几个数字，不管长度。3、C列用GetNum函数，取A列字符串中的数字，不带参数，表示提取所有数字。

总之，正则表达式在VBA中是非常有用的工具，可以帮助我们快速实现各种字符串操作。需要注意的是，正则表达式的语法比较复杂，需要经过一定的学习和实践才能熟练掌握。正则表达式在VBA环境下的应用非常广泛，可以用来快速地实现字符串的匹配、查找、替换等操作。我们还可以采用另一种方法，叫后期绑定，这样就不用勾选也能运行，但不能象上面那样使用方法和属性了，必须手工输入。对象，该对象包含了有关匹配结果的详细信息，例如匹配的字符串、位置等。在上述代码中，循环遍历了所有匹配结果，输出了它们的字符串表示。

您先别急，就说到今天的重点了。我们前面分享过好几期“财务记账模板”相关内容，通过这么一个实例，向大家介绍Excel公式函数、VBA在财务管理中的运用，感兴趣的小伙伴可以翻翻前面的文章，这里我就不贴链接了。2、数据安全性极低，表现在两个方面，一是Excel文件有时候会莫名其妙地打不开了，你就哭吧，二是在操作的时候，非常容易误操作把一些数据给改了、删了，造成极大的麻烦。于是我就下定决心，一定要搞一个“像样”的“财务管理系统”，以Excel为操作端，Access为数据存储端，以提高数据的安全性，操作的便利性。

数据导入核心代码，CmdImport_Click()，代码可能有一些无效语句，没有来得及整理，大家将就着看吧，关键是思路。

由于原来的过程中，有On Error Resume Next语句，在运行的时候就没有报错，后来在新的UpdateData过程中，没有加这条语句，它就报错了。这里我觉得值得注意的是，我们要善于发现数据的规律，而且我们在设计数据的时候，要保持相对一致性，比如科目编码和科目名称的连接，我们中间统一用“_"，诸如此类，我就不多啰嗦了，大家自己摸索、体会吧。添加了一个CheckBox复选框控件CkbLevelOne，Caption改为“一级科目"，如果勾选了，则查询一级科目汇总，否则查询明细科目汇总。

通过循环，如果找到了匹配的字段，则退出循环，使得t=1，表示找到了，函数的值就是当前k的值，如果最后t的值为0，则表示没有找到，函数的值为0。我们在做科目汇总表的时候，采用字典的方法把明细账中出现的科目列出来，但顺序是科目在明细账中首次出现的顺序，这样显然是不行的，所以要排个序。arrType，定位方式，跟数组的类型有关，默认为0，针对一维数组，1表示二维数组按行定位，2表示二维数组按列定位。），今天在继续完成科目汇总的功能，但由于代码搞得有点复杂，arr()，就是要定位字段的数组。

添加表头：可以按一个个具体的名称去添加，它有个文本对齐的属性lvwColumnCenter，lvwColumnLeft,lvwColumnRight,看我们的if过程，两条分支语句是一样的，这里暂时留个活口，待有时间再慢慢设置，可以根据不同的表头，通过if语句来分别设置它的宽度，对齐方式等。首先说明一下，我们准备做一个“科目汇总表"，但今天由于时间与篇幅的关系，我们只做了一点点，只是搭了一个框架，科目汇总还没有做，展示的是明细数据，请不要感到奇怪。方法将其添加到列表视图控件中，并设置列的宽度为 80。

当点击一个科目单元格时，把科目列表存入数组arr，显示TextBox1和ListBox1，当单元格有内容时，把当前单元格的内容赋值给TextBox1，同时触发TextBox1的Change事件，当单元格内容为空时，则TextBox1亦为空，不触发它的Change事件，则把arr所有记录显示在ListBox1中。当我们选中第4列（科目）、第5列（现金辅助项）的时候，就显示TextBox1、ListBox1，并根据当前选中的单元格（Target，Selection）的位置、高、宽来设置它们的位置。

今天分享内容：在VBA中写代码时常用的一些快捷键，可以提高编程效率。3、代码窗口定位键​​​​​​​。4、UserForm 窗口键。

如果指定区域在数据透视表中，本方法将对该区域内的项取消分组。PointsToScreenPixelsX 方法：将横向度量值由以点（文档坐标）为单位转换为以屏幕像素（屏幕坐标）为单位，以Long值的形式返回转换的度量值。RangeFromPoint 方法：返回位于指定的一对屏幕坐标处的形状或Range对象，如果没有形状位于指定的坐标处，则此方法返回Nothing。ScrollIntoView 方法：滚动文档窗口，使指定矩形区域的内容显示在文档窗口或窗格的左上角或右下角（具体取决于_Start_参数的值）。

MD5加密解密|完整代码。

D:\艾罗工作文件\网站测速自动化\screenshots\２０２４０８０６\。根据此段地址在D盘下创建多层文件夹。快速创建和他人一样的文件夹结构。

代码中涉及到新建表格并插入行写入数据的地方，这里给一个简单的例子作为参考。（这个代码直接在Word VBA中运行，如果需要在Excel中操作Word插入表格，需要新建Word程序对象，这属于前面的基础知识）下面代码将当前光标移到文档的开头。如果光标在表格中，则将光标移至表格第一个单元格。在Excel中若要操作Word，需要将参数换成数值。作用：将所选内容移动或扩展到指定单位的开头。运行指定的查找操作。下例查找并选择出现的下一个"hi"单词。数据的对应关系如下图截图中所示。，这里说个实际代工遇到的案例。

这里使用后期绑定的方式创建Word主程序，并且新建一个word文档。向Word文档中写入内容123，最后另存为本工作簿路径下的一个文档。所以，我们循环文档的所有段落，如果包含【物业管理清册】关键字，则获取他的下两行数据，并且提取关键字。想弹出对话框，打开某些特定后缀的文件，就用GetOpenFilename。具体用法可参见之前的文章。一个文档中，有多个这样的缴费清单，我们要提取的是一些固定关键字之后的数据。关于Split函数，可以看之前的两篇文章，都有详细的讲解。'只允许选择一个文件。

pthsht = Application.GetOpenFilename("excel Files(*.xl*),*.xl*", , "请选择文件", ,pthsht = Application.GetOpenFilename("excel Files(*.xl*),*.xl*", , "请打开文件", ,如果省略该参数，或者该参数的值大于可用筛选条件数，则使用第一个文件筛选条件。好了，这节课就分享到这里，稍后还会分享获取文件全路径的另外两种方法。可选参数，代表指定文件筛选条件的字符串。

我们在使用Split函数之前，把其他的标点符号，全部替换为空格即可。这样子，可以一次性实现分以空格作为分隔符分割字符串。里面除了数组转置自定义函数可以借鉴，其他的都是上面编程逻辑的体现，理解了上面说的，下面的东西很简单。首先就想到用Split函数，以空格作为分隔符号把英文句子分割开。最近做了一个批处理小程序，Split函数立了大功劳。通俗的说：Split 函数给他一个分隔符，能把字符串分割开，并返回一个。仿佛可以解决问题了，但是还有一个条件：句子中除了空格，符号分割开，单独列为1行。

面对杂乱成堆的进货单数据，如果想从中分开在一行的商品信息会是很麻烦的一件事。然而一般都有规律可循。下面这个例子就可以用vba中的split函数解决问题的经典例子。如果还要细分，将商品和数量分开。count, 一个可选的参数。要返回子串的数目，并且如果指定为-1，那么所有的子串被返回。delimiter, 一个可选的参数。compare, 一个可选的参数。下面就用vba中的Split函数配合循环来快速解决这个问题。▶如下图，如果手动分开商品会很麻烦，复制粘贴多次才能解决。expression, 必需的参数。

实际中，也就这几种应用了，简单的例子只是为了有个初步的了解，关键还是自己的不断积累经验。遇到其他好的例子再放上来写第三篇。

还是前面说的，有了VBA基础，学习Word VBA很快，着重熟悉Word VBA的属性对象和方法。代码不会的可在Word中录制宏解决，再移植到Excel中。这样就可以以Excel为遥控器，操控Word进行各种数据交互。下篇文章说下Word 中的表格Table对象，来总结下如何操控Word的表格数据。

表格中的天气部分，需要根据Excel表格内部的信息判断，如果是【晴天】，则Word表格中的晴天那一列要打两个√。这个是知乎上一个朋友的付费提问内容，因为需求很简单，我把程序直接写好了，在这里把代码分享给大家。诸如【日期】、【巡查项目点】等这些信息，代码采用替换的方式解决。这个文档看着也很简单，有一些特别需要注意的地方，我这里说一下。Word文档作为一个模板存在，后期会单独另存一份新的文档。Word表格内部直接按位置写入数据。

在当前工作表列A中有一系列数据，用户在单元格C2中输入值，将列A中包含单元格C2的值的数据复制到列E中，如下图1所示。

运行代码后，会弹出一个输入框，选择要复制的单元格区域B2:B10，单击“确定”；又会弹出一个输入框，选择要粘贴的单元格区域的第一个单元格，示例中是单元格E2，单击“确定”，结果如下图5所示。正如我们所看到的，与上图3不同，所复制的可见单元格按照原结构完全粘贴。复制单元格区域B2:B10，然后粘贴到以单元格E2开始的区域，结果如下图所示。正如所见，我们只能看到部分数据，其它数据被隐藏行所隐藏了。在筛选数据中复制数据时，可以按原结构粘贴所复制的数据。如果展开隐藏行，实际的粘贴结果如下图所示。

下面的函数返回指定年月的指定周的指定天的日期，例如，Y=2021，M=6，N=2，DOW=3，将返回2021年6月第2周第3天的日期，即2021年6月8日。默认情况下，星期日=1，星期六=7。由于Excel是以系列号数值来保存日期的，因此使用Find方法查找日期需要一些技巧。下面的函数在指定年是闰年时返回TRUE，否则返回FALSE。下面的函数计算年龄，其中Date1代表出生日期。下面的函数返回指定年的第一个星期一的日期。下面的函数返回指定年指定周的星期一的日期。注意，本文下面的程序将会使用这个函数。

实际上也可以将这些属性组合在一起，例如要选择数据底部的下一个新行，可以使用Range(“A1”).End(xlDown).Offset(1,0)，首先转到A1，向下到数据的底部，然后将结果向下偏移一行，以选择下一个空白行。引用连续单元格区域中最底部的单元格（即该单元格下方的单元格为空）。引用目标单元格的所有相关单元格，包括相关单元格的相关单元格。引用目标单元格的所有从属单元格，包括从属单元格的从属单元格。在VBA中，可以通过多种不同的方式来引用工作表中的单元格/单元格区域。引用目标单元格的从属单元格。

这段代码很直观，基本上根据三个工作表的特点，采用了“硬编码”，可以根据具体工作表的情况对上述代码进行修改。如下图1所示，有3个工作表，需要将工作表“新数据#1”和“新数据#2”中的数据复制到工作表“汇总”中。今天演示一个简单的例子，也是经常看到网友问的问题，将一个工作表中的数据复制到另一个工作表。表示从所选单元格开始，向下至该列数据末尾，向右至行数据末尾的区域。工作表“新数据#1”中的数据如下图2所示。工作表“新数据#2”中的数据如下图3所示。运行代码后，结果如下图4所示。

这是在ozgrid.com论坛上看到的一个贴子，很有意思，本来使用公式是可以很方便在工作表中实现日历显示的，但提问者因其需要，想使用VBA实现动态显示日历，即根据输入的年份和月份在工作表中显示日历。下面是实现该效果的VBA程序，我稍微进行了一些调整和注释，供学习参考。技术交流，软件开发，欢迎加微信xwlink1996。

File System Object（FSO）是一个单独的操作库，我们可以在VBA代码中使用它。为了确保这些代码可以处理任意数量的子文件夹，宏实际上会调用自身（一种称为递归的技术）。很多时候，我们都想要遍历文件夹中的每个文件，例如在工作表中列出所有文件名、对每个文件进行修改。下面的示例代码将文件名打印到立即窗口，很容易修改这些代码以更适合你的具体情况。后期绑定不需要任何特定操作来启用FSO库，确保在VBA代码中需要时打开库。Dir函数是一个内置的VBA函数，可用于可使用VBA的任何应用程序。

7.单元格A10包含公式=SUM($A$1:$A$9)，如果将此公式复制到单元格F20，它将更改为什么？4.假定单元格区域R指向单元格A1:D6，则R.Cells（6）指向哪个单元格？当一个单元格中的公式引用另一个单元格时，该单元格直接或间接引用第一个单元格。8.公式包含单元格引用A$10，将此公式复制到另一个单元格会怎样？20.调用哪种方法来在单元格区域内查找要指定字符串的所有实例？3.你的程序在列B位置插入一个新列，原来的列B会怎样？9.一个工作表中的公式如何引用另一个工作表中的单元格？

代码先查找桌面上指定的文本文件，使用Environ函数提取默认的路径，可将将文本文件所在文件夹追加到该路径后面以创建完整的路径。thespreadsheetguru.com展示了一种简单的方法，能够在运行时将用户名和密码带入VBA，而不会在VBA代码或Excel工作表中暴露这些敏感信息。经常看到很多人会将他们的登录名/密码直接存储在VBA代码中甚至工作表中，这是很不安全的一种处理方式。首先，将自已的用户名和密码保存在个人计算机上，可以将它们保存到文本文件中，如下图1所示。

但需要说明的是，一旦使用VBA代码，Excel将会丧失“后悔”功能，也就是说Ctrl+Z的撤销功能会失去效果了。在需要制作聚光的工作簿，按组合键，打开VBE编辑器。如果你只是需要对某个工作表制作聚光灯，可以换用工作表事件，将以上代码修改为如下，并复制粘贴到相关工作表模块代码窗口即可。除此之外，该代码还会取消单元格原有设置的填充色，不过不会取消【条件格式】以及【表】功能设置的单元格填充色。当然，代码还有很多优化空间，比如，调整聚光灯的范围，仅限数据区域，参考代码如下▼。