我对 Word 和 Excel 中的 Marco 并不陌生。我通过使用录制来做简单的宏。但我想加强我的一些任务，让它变得尽可能简单。
我的问题是查找和替换一些文本字符。我的屏幕上有这个便笺，然后手动将其复制并粘贴到查找和替换“Ctrl + H”中。
我想要的是最小化它，因为我得到了很多需要运行这个特定的查找和替换任务的报告。
但我在如何制作弹出消息框时遇到了麻烦，该消息框上会有一个复选框，因此我可以运行所有查找和替换。
我附上了一个图像文件以供参考，我希望它在 Excel 和 Word 中制作。
【问题讨论】：
MsgBox 用于复选框，请查看用户表单！ ;)
这是使用 VBA 替换单词的想法。我提供的示例代码采用您要替换的单词数组，并用第二个数组的单词替换它们。这使您可以一次查找多个单词并同时替换它们。你也可以更进一步，做一个输入框或表单来加载数组。
Sub Example1()
Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long
fndList = Array("hi", "United States", "Mexico")
rplcList = Array("hello", "USA", "MEX")
'Loop through each item in Array lists
For x = LBound(fndList) To UBound(fndList)
'Loop through each worksheet in ActiveWorkbook
For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sht
Next x
End Sub
【讨论】：
如果你想创建一个带有复选框的用户表单，创建一个用户表单与添加模块的方式相同 -> 项目窗口，右键单击，添加用户表单。然后点击“工具箱”图标并选择一个复选框，您可以在用户表单中找到它。
加上一些 youtube 视频： https://www.youtube.com/watch?v=5oXcct1mOUw
编辑，假设您在用户表单中有一个按钮和一个复选框。这是用户表单中的代码。
按钮的名称是 cmd_Calculator； 复选框的名称是 chb_new
Private Sub cmd_Calculator_Click()
If Me.chb_new Then
MsgBox "Checkbox is selected."
Else
MsgBox "Checkbox is not selected."
End If
End Sub
【讨论】：