21、Excel VBA：多工作表与工作簿搜索及评论样式优化

Excel VBA：多工作表与工作簿搜索及评论样式优化

1. 多工作表与工作簿搜索功能

1.1 背景与需求

Excel 自带的搜索功能只能搜索当前工作表，即便选择一组工作表进行搜索，也需手动先做选择，且无法跨所有工作簿搜索。利用 Excel 对象模型的灵活性，我们可以编写代码实现跨多个工作表或工作簿的搜索功能。

1.2 用户界面设计

首先，需要创建一个用户界面表单（UserForm），其功能应与现有搜索功能相近。表单包含以下元素：
- 四个命令按钮：“Find Next”、“Close”、“Replace”、“Replace All”。
- 两个文本框：分别用于输入“Find what”和“Replace with”的内容。
- 两个组合框：用于选择搜索类型（如按行或按列搜索、搜索公式、值或注释）。
- 两个复选框：用于设置匹配大小写和查找整个单元格。

将这些控件从工具箱拖到表单上，若不确定控件类型，可使用工具箱中每个控件的工具提示文本进行识别。通过点击表单标题并在属性窗口中编辑标题属性来更改表单标题。

1.3 代码实现

全局变量设置

在模块的声明部分设置全局变量 canc 以记录用户操作：

Global canc As Integer

用户界面表单代码

Private Sub CommandButton1