vba "(1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30)\b"是什么意思
时间: 2023-10-13 17:04:50 浏览: 39
vba中的正则表达式 "(1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30)\b" 表示匹配数字 1 到 30。其中,"\b" 是单词边界,用于确保只匹配独立的数字,不会匹配到其他数字的一部分。这个正则表达式可以用于检查或提取文本中出现的数字是否在指定的范围内。
相关问题
Sub Macro1() Dim erow As Integer, Fsbill As String, r As Variant erow = Sheets("汇总").[a65536].End(xlUp).Row + 1 Fsbill = Range("i7") If Application.CountIf(Sheets("汇总").Range("c:c"), Fsbill) > 0 Then MsgBox "采购单号" & Fsbill & " was already exists !!!!" Exit Sub End If For r = 19 To 24 If Cells(r, 2) <> "" Then Sheets("汇总").Cells(erow, 1) = Month(Cells(8, 9)) Sheets("汇总").Cells(erow, 2) = Cells(8, 9) Sheets("汇总").Cells(erow, 3) = Cells(7, 9) Sheets("汇总").Cells(erow, 4) = Cells(7, 3) Sheets("汇总").Cells(erow, 5) = Cells(9, 9) Sheets("汇总").Cells(erow, 6) = Cells(10, 9) Sheets("汇总").Cells(erow, 7) = Cells(r, 2) Sheets("汇总").Cells(erow, 8) = Cells(r, 4) Sheets("汇总").Cells(erow, 9) = Cells(r, 5) Sheets("汇总").Cells(erow, 10) = Cells(r, 6) Sheets("汇总").Cells(erow, 11) = Cells(r, 7) Sheets("汇总").Cells(erow, 12) = Cells(r, 8) erow = erow + 1 End If Next Sheets("汇总").Select MsgBox "OK" End Sub这段VBA代码的作用,并详细分析每一行代码的作用
这段VBA代码的作用是将一个采购单的信息汇总到一个名为“汇总”的工作表中。具体来说,它首先检查采购单号是否已经存在于汇总工作表中,如果是,则弹出消息框并退出子程序。否则,它将从原始采购单中提取必要的信息,并将其写入汇总工作表中。
现在,我们逐行分析每一行代码的作用:
1. Dim erow As Integer, Fsbill As String, r As Variant
这一行定义了三个变量,“erow”表示下一个要写入的行号,“Fsbill”表示采购单号,“r”表示原始采购单中的行号。
2. erow = Sheets("汇总").[a65536].End(xlUp).Row + 1
这一行确定了下一个要写入的行号。它首先找到最后一个非空单元格的行号,然后将其加一。
3. Fsbill = Range("i7")
这一行将采购单号保存为一个字符串变量。
4. If Application.CountIf(Sheets("汇总").Range("c:c"), Fsbill) > 0 Then
这一行使用CountIf函数检查汇总工作表中是否已经存在具有相同采购单号的记录。
5. MsgBox "采购单号" & Fsbill & " was already exists !!!!" Exit Sub
如果存在具有相同采购单号的记录,则显示一个消息框并退出子程序。
6. For r = 19 To 24
这一行循环遍历原始采购单中的行号,这些行包含必要的信息。
7. If Cells(r, 2) <> "" Then
这一行检查原始采购单中当前行是否包含必要的信息。
8. Sheets("汇总").Cells(erow, 1) = Month(Cells(8, 9))
这一行将汇总表中的“月份”列设置为采购单中的月份。
9. Sheets("汇总").Cells(erow, 2) = Cells(8, 9)
这一行将汇总表中的“日期”列设置为采购单中的日期。
10. Sheets("汇总").Cells(erow, 3) = Cells(7, 9)
这一行将汇总表中的“供应商”列设置为采购单中的供应商。
11. Sheets("汇总").Cells(erow, 4) = Cells(7, 3)
这一行将汇总表中的“采购员”列设置为采购单中的采购员。
12. Sheets("汇总").Cells(erow, 5) = Cells(9, 9)
这一行将汇总表中的“部门”列设置为采购单中的部门。
13. Sheets("汇总").Cells(erow, 6) = Cells(10, 9)
这一行将汇总表中的“项目”列设置为采购单中的项目。
14. Sheets("汇总").Cells(erow, 7) = Cells(r, 2)
这一行将汇总表中的“物料名称”列设置为采购单中的物料名称。
15. Sheets("汇总").Cells(erow, 8) = Cells(r, 4)
这一行将汇总表中的“单位”列设置为采购单中的单位。
16. Sheets("汇总").Cells(erow, 9) = Cells(r, 5)
这一行将汇总表中的“数量”列设置为采购单中的数量。
17. Sheets("汇总").Cells(erow, 10) = Cells(r, 6)
这一行将汇总表中的“单价”列设置为采购单中的单价。
18. Sheets("汇总").Cells(erow, 11) = Cells(r, 7)
这一行将汇总表中的“总价”列设置为采购单中的总价。
19. Sheets("汇总").Cells(erow, 12) = Cells(r, 8)
这一行将汇总表中的“备注”列设置为采购单中的备注。
20. erow = erow + 1
这一行将下一个要写入的行号加一,以准备写入下一条记录。
21. End If
这一行结束了if语句块,表示完成了当前行的处理。
22. Next
这一行结束了for循环,表示已经处理完原始采购单中的所有行。
23. Sheets("汇总").Select
这一行将汇总工作表设置为当前激活的工作表。
24. MsgBox "OK"
这一行显示一个消息框,表示成功完成了子程序。
vba xlam实用模块下载
要下载VBA XLAM实用模块,你可以按照以下步骤进行操作:
1. 在你的浏览器中打开一个搜索引擎,如Google或百度。
2. 在搜索引擎中输入“VBA XLAM实用模块下载”并点击搜索按钮。
3. 浏览搜索结果,找到一个可靠的源网站提供下载。
4. 点击相关链接进入下载页面。
5. 在下载页面,查找一个适用于你的VBA版本的模块,并确认其兼容性。
6. 点击下载按钮或链接,开始下载VBA XLAM实用模块。
7. 选择保存的位置,通常可以选择保存到指定文件夹或桌面上。
8. 等待下载完成,下载速度取决于你的网络连接和文件大小。
9. 下载完成后,你可以打开所保存的位置,找到下载的VBA XLAM实用模块文件。
10. 将XLAM文件复制到你希望使用该模块的Excel工作簿中。
11. 在Excel中,打开需要使用该模块的工作簿。
12. 点击“开发工具”选项卡,然后选择“加载项”。
13. 在加载项对话框中,点击“浏览”,然后选择刚才复制到工作簿的XLAM文件。
14. 确认选择后,点击“确定”按钮以加载该模块。
15. 现在,你可以使用VBA XLAM实用模块中提供的功能和方法来增强你的Excel工作簿。
16. 根据需要,你可以根据下载的模块文件使用特定的代码来调用相应的功能。
希望以上回答能够帮助到你下载VBA XLAM实用模块。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)