如何在Excel中根据单元格值运行宏？

网友投稿 308 2024-01-15

如何在Excel中根据单元格值运行宏？

假设我的工作簿中有多个宏代码，现在，我想基于单元格值运行这些代码。本文，我将讨论在使用Excel的日常工作中可能遇到的几种情况。

如果单元格值大于或小于VBA代码中的特定值，则运行或触发宏

如果单元格值等于带有VBA代码的特定文本，则运行或触发宏

如果单元格值大于或小于VBA代码中的特定值，则运行或触发宏

例如，如果单元格A1中的值在10到50之间，请运行macro1，如果该值大于50，则运行macro2。要在Excel中解决此任务，请应用以下VBA代码。

1。右键单击要基于单元格值执行宏的工作表选项卡，然后选择 查看代码 从上下文菜单中，然后在打开的 适用于应用程序的Microsoft Visual Basic 窗口，将以下代码复制并粘贴到空白模块中：

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

Copy

备注：在上面的代码中：

A1 是包含要基于其运行宏的特定值的单元格；

情况10至50：Macro1：表示该值在10到50之间，运行Macro1；

案例> 50：Macro2：这意味着如果该值大于50，请运行Macro2。

请根据需要更改这些宏名称和条件，并且您还可以在案例脚本。

2。然后保存并关闭此代码窗口，现在，当您在单元格A10中输入的值介于50到1之间时，将触发Macro1，如果输入的值大于50，则将执行Macro2。

如果单元格值等于带有VBA代码的特定文本，则运行或触发宏

例如，如果要基于单元格中的特定文本触发宏，则在输入文本“ Delete”的情况下运行macro1，而在键入文本“ Insert”的情况下运行macro2。以下代码可以帮您一个忙。

1。右键单击要基于单元格值执行宏的工作表，然后选择 查看代码 从上下文菜单中，然后在打开的 适用于应用程序的Microsoft Visual Basic 窗口，将以下代码复制并粘贴到空白模块中：

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

Copy

备注：在上面的代码中，“删除“和”插页”是您要基于其运行宏的单元格文本，并且 Macro1 和 Macro2 是您要基于文本执行的宏。请根据需要更改它们。

2。然后保存此代码并关闭窗口，现在，当在单元格A1中输入文本“ Delete”时，将触发macro1，如果输入文本“ Insert”，则将执行macro2。

相关文章：

Excel中单元格值更改时如何运行宏？

如何在Excel中打印之前自动运行宏？

如何基于从Excel的下拉列表中选择的值运行宏？

如何通过单击Excel中的超链接运行宏？

从工作簿中选择工作表时如何运行宏？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel