如何根据 Excel 单元格的值来运行宏?
作者:互联网
2026-04-13
假设您的工作簿中包含多个宏代码,现在希望根据单元格的值来运行相应的宏。本文将为您介绍在日常使用 Excel 时可能遇到的几种典型场景。
使用 VBA 代码在单元格值大于或小于特定值时运行或触发宏
使用 VBA 代码在单元格值等于特定文本时运行或触发宏
使用 VBA 代码在单元格值大于或小于特定值时运行或触发宏
例如,若单元格 A1 中的值介于 10 到 50 之间,则运行 macro 1;若值大于 50,则运行 macro 2. 要在 Excel 中实现此功能,请使用以下 VBA 代码。
1. 右键单击您要根据单元格值运行宏的工作表标签,然后从上下文菜单中选择查看代码。在打开的 Microsoft Visual Basic for Applications 窗口中,将以下代码复制并粘贴到空白模块中:
VBA 代码:在单元格值大于或小于时运行宏:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub

注意:在上述代码中:
A1 是包含您要基于其运行宏的特定值的单元格;
Case 10 To 50: Macro 1:表示如果值介于 10 和 50 之间,则运行 Macro 1;
Case Is > 50: Macro 2:表示当值大于 50 时,将运行 Macro 2.
请根据需要修改这些宏名称和条件,您也可以参照 Case 脚本添加更多条件。
2. 然后保存并关闭此代码窗口。现在,当您在单元格 A1 中输入的值介于 10 和 50 之间时,将触发 Macro 1;若输入值大于 50,则执行 Macro 2.

借助 KUTOOLS AI 解锁 Excel 的神奇功能
- 智能执行:只需输入简单命令,即可执行单元格操作、分析数据并创建图表。
- 自定义公式:生成量身定制的公式,助您优化工作流程!
- VBA 编码:轻松编写并运行 VBA 代码。
- 公式解析:轻松掌握复杂公式,一目了然!
- 文本翻译:轻松打破电子表格中的语言障碍!
使用 VBA 代码在单元格值等于特定文本时运行或触发宏
如果您希望根据单元格中的特定文本自动触发宏——例如,输入“Delete”时运行 macro 1,输入“Insert”时运行 macro 2——以下代码将为您提供帮助。
1. 右键单击您要根据单元格值运行宏的工作表,然后从上下文菜单中选择查看代码。在打开的 Microsoft Visual Basic for Applications 窗口中,将以下代码复制并粘贴到空白模块中:
VBA 代码:在单元格值为特定文本时运行宏
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub

注意:在上述代码中,“Delete”和“Insert”是用于触发宏的单元格文本,而 Macro 1 和 Macro 2 则是对应要执行的宏。请根据实际需求进行修改。
2. 保存此代码并关闭窗口,现在只要在单元格 A1 中输入“Delete”,就会触发 macro 1;输入“Insert”则会执行 macro 2.
相关标签:
相关推荐
专题
+ 收藏
+ 收藏
+ 收藏
+ 收藏
+ 收藏
+ 收藏
最新数据
相关文章
如何在 Excel 中将行快速转换为列?
在 Excel 中重命名工作表的简单方法
如何在 Excel 中导入纯文本文件或工作表?
如何在 Excel 中更新数据透视表的数据范围?
如何在 Excel 中计算债券价格?
如何在 Excel 中快速将 mm/dd/yyyy 日期格式转换为 yyyymmdd?
如何在 Excel 中判断某个值是否存在于指定范围内,并返回对应的值?
如何在 Excel 中将数据复制并粘贴到多个工作表?
获取并在单元格中插入创建时间和修改日期时间
如何在 Excel 工作表中插入可自由移动的浮动表格或文本框?
AI精选
