我正在尝试创建一个下拉列表,该列表将为每个选项选择运行一个宏。下拉列表将包含“ Google”和“ New Businesses”。选择Google后,我需要运行某个宏。我准备好了宏代码,只是想知道自从我使用Macbook以来是否有可能
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F4")) Is Nothing Then
Select Case Range("F4")
Case "Google": Google
Case "New Businesses": New_Businesses
End Select
End If
End Sub
上面的代码位于第一张工作表中,其中“工作表”和“更改”为下拉选项。以下代码位于Module1中:
Sub Google()
'First Macro
Call GoogleManagementFee
'Second Macro
Call HideTermsAndConditions
End Sub
Sub GoogleManagementFee()
Sheets("THIRD-PARTY").Range("C26").Value = 0
End Sub
Sub HideTermsAndConditions()
Worksheet("SOW").Range("54:110").Rows.Hidden = True
End Sub
Sub New_Businesses()
Call UnhideTermsAndConditions
Call ManagementFee10
End Sub
Sub UnhideTermsAndConditions()
Range("54:110").Rows.Hidden = False
End Sub
Sub ManagementFee10()
Sheets("THIRD-PARTY").Range("C26").Value = 0.10
End Sub
我相信,当我从创建的下拉菜单中选择Google或“新业务”时,这些代码应能使宏运行。我想知道是否需要下载ActiveX,或者我只是在代码方面做错了什么。