vba实现自定义二级下拉菜单

VBA（Visual Basic for Applications）是一种用于编写Excel宏的编程语言，可以用于实现自定义二级下拉菜单。要实现这样的功能，首先需要在Excel中创建两个不同的数据源，一个用于一级下拉菜单，另一个用于二级下拉菜单。然后使用VBA代码来实现二级下拉菜单的动态变化。

首先，在Excel中添加一个一级下拉菜单，例如在单元格A1中选择水果类型（如苹果、橙子、香蕉）。然后在另一个单元格B1中添加一个二级下拉菜单，这个下拉菜单将根据A1单元格中选择的水果类型来动态变化。接下来，需要用VBA代码实现这个动态变化的功能。

首先，在Excel中按下Alt + F11组合键进入VBA编辑器，在这里可以编写VBA代码。首先需要编写一个Worksheet_Change事件来监控A1单元格的变化，当A1单元格的值发生变化时，自动更新B1单元格的下拉菜单选项。具体代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Me.Range("A1")) Is Nothing Then
Me.Range("B1").ClearContents
Select Case Me.Range("A1").Value
Case "苹果"
With Me.Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="苹果-1,苹果-2,苹果-3"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Case "橙子"
'类似的代码
Case "香蕉"
'类似的代码
End Select
End If
End Sub

上面的代码实现了当A1单元格的值发生变化时，B1单元格的下拉菜单选项会相应地发生变化。根据A1单元格的值，通过Select Case语句来设置B1单元格的下拉菜单选项。这样就实现了自定义二级下拉菜单的功能。