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代码的作用，并详细分析每一行代码的作用
时间: 2024-01-24 14:19:33 浏览: 26
这段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"
这一行显示一个消息框，表示成功完成了子程序。
最新推荐
模板059.pptx
论文答辩ppt模板
全国各地电信铁通DNS服务器地址.doc
服务器
最新服务器双机热备解决方案.docx
服务器、电脑、
服务器及存储高性能双机热备方案.docx
服务器
hiprint 自定义打印模版框架
hiprint 自定义打印模版框架
VMP技术解析：Handle块优化与壳模板初始化
"这篇学习笔记主要探讨了VMP（Virtual Machine Protect，虚拟机保护）技术在Handle块优化和壳模板初始化方面的应用。作者参考了看雪论坛上的多个资源，包括关于VMP还原、汇编指令的OpCode快速入门以及X86指令编码内幕的相关文章，深入理解VMP的工作原理和技巧。"
在VMP技术中，Handle块是虚拟机执行的关键部分，它包含了用于执行被保护程序的指令序列。在本篇笔记中，作者详细介绍了Handle块的优化过程，包括如何删除不使用的代码段以及如何通过指令变形和等价替换来提高壳模板的安全性。例如，常见的指令优化可能将`jmp`指令替换为`push+retn`或者`lea+jmp`，或者将`lodsbyteptrds:[esi]`优化为`moval,[esi]+addesi,1`等，这些变换旨在混淆原始代码，增加反逆向工程的难度。
在壳模板初始化阶段，作者提到了1.10和1.21两个版本的区别，其中1.21版本增加了`Encodingofap-code`保护，增强了加密效果。在未加密时，代码可能呈现出特定的模式，而加密后，这些模式会被混淆，使分析更加困难。
笔记中还提到，VMP会使用一个名为`ESIResults`的数组来标记Handle块中的指令是否被使用，值为0表示未使用，1表示使用。这为删除不必要的代码提供了依据。此外，通过循环遍历特定的Handle块，并依据某种规律（如`v227&0xFFFFFF00==0xFACE0000`）进行匹配，可以找到需要处理的指令，如`push0xFACE0002`和`movedi,0xFACE0003`，然后将其替换为安全的重定位值或虚拟机上下文。
在结构体使用方面，笔记指出壳模板和用户代码都会通过`Vmp_AllDisassembly`函数进行解析，而且0x8和0x10字段通常都指向相同的结构体。作者还提到了根据`pNtHeader_OptionalHeader.Magic`筛选`ESI_Matching_Array`数组的步骤，这可能是为了进一步确定虚拟机上下文的设置。
这篇笔记深入解析了VMP技术在代码保护中的应用，涉及汇编指令的优化、Handle块的处理以及壳模板的初始化，对于理解反逆向工程技术以及软件保护策略有着重要的参考价值。
管理建模和仿真的文件
管理Boualem Benatallah引用此版本：布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学，1996年。法语。NNT：电话：00345357HAL ID：电话：00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆，用于存放和传播科学研究论文，无论它们是否被公开。论文可以来自法国或国外的教学和研究机构，也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
【进阶】音频处理基础：使用Librosa
# 2.1 Librosa库的安装和导入
Librosa库是一个用于音频处理的Python库。要安装Librosa库，请在命令行中输入以下命令：
```
pip install librosa
```
安装完成后，可以通过以下方式导入Librosa库：
```python
import librosa
```
导入Librosa库后，就可以使用其提供的各种函数
python中字典转换成json
在Python中，你可以使用`json`模块将字典转换为JSON格式的字符串。下面是一个简单的示例：
```python
import json
# 假设我们有一个字典
dict_data = {
"name": "John",
"age": 30,
"city": "New York"
}
# 使用json.dumps()函数将字典转换为JSON
json_string = json.dumps(dict_data)
print(json_string) # 输出：{"name": "John", "age": 30, "city": "New York"}
C++ Primer 第四版更新：现代编程风格与标准库
"Cpp Primer第四版中文版(电子版)1"
本书《Cpp Primer》第四版是一本深入浅出介绍C++编程语言的教程，旨在帮助初学者和有经验的程序员掌握现代C++编程技巧。作者在这一版中进行了重大更新，以适应C++语言的发展趋势，特别是强调使用标准库来提高编程效率。书中不再过于关注底层编程技术，而是将重点放在了标准库的运用上。
第四版的主要改动包括：
1. 内容重组：为了反映现代C++编程的最佳实践，书中对语言主题的顺序进行了调整，使得学习路径更加顺畅。
2. 添加辅助学习工具：每章增设了“小结”和“术语”部分，帮助读者回顾和巩固关键概念。此外，重要术语以黑体突出，已熟悉的术语以楷体呈现，以便读者识别。
3. 特殊标注：用特定版式标注关键信息，提醒读者注意语言特性，避免常见错误，强调良好编程习惯，同时提供通用的使用技巧。
4. 前后交叉引用：增加引用以帮助读者理解概念之间的联系。
5. 额外讨论和解释：针对复杂概念和初学者常遇到的问题，进行深入解析。
6. 大量示例：提供丰富的代码示例，所有源代码都可以在线获取，便于读者实践和学习。
本书保留了前几版的核心特色，即以实例教学，通过解释和展示语言特性来帮助读者掌握C++。作者的目标是创作一本清晰、全面、准确的教程，让读者在编写程序的过程中学习C++，同时也展示了如何有效地利用这门语言。
《Cpp Primer》第四版不仅适合C++初学者，也适合想要更新C++知识的老手，它全面覆盖了C++语言的各个方面，包括基础语法、类、模板、STL（Standard Template Library）等，同时引入了现代C++的特性，如智能指针、RAII（Resource Acquisition Is Initialization）、lambda表达式等，使读者能够跟上C++语言的发展步伐，提升编程技能。