如何在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

備註：在上面的代碼中：

A1 是包含要基於其運行宏的特定值的單元格；

情況10至50：Macro1：表示該值在10到50之間，運行Macro1；

案例> 50：Macro2：這意味著如果該值大於50，請運行Macro2。

請根據需要更改這些宏名稱和條件，並且您還可以在 Case 外殻 腳本。

2。 然後保存並關閉此代碼窗口，現在，當您在單元格A10中輸入的值介於50到1之間時，將觸發Macro1，如果輸入的值大於50，則將執行Macro2。

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！

如果單元格值等於帶有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 

備註：在上面的代碼中，“刪除“和”插入”是您要基於其運行宏的單元格文本，並且 Macro1 Macro2 是您要基於文本執行的宏。 請根據需要更改它們。

2。 然後保存此代碼並關閉窗口，現在，當在單元格A1中輸入文本“ Delete”時，將觸發macro1，如果輸入文本“ Insert”，則將執行macro2。

相關文章：

Excel中單元格值更改時如何運行宏？

如何在Excel中打印之前自動運行宏？

如何基於從Excel的下拉列表中選擇的值運行宏？

如何通過單擊Excel中的超鏈接運行宏？

從工作簿中選擇工作表時如何運行宏？