动态更改下拉列表 Visual Basic - VBA

动态更改下拉列表是指在运行时根据程序需求动态更改下拉列表的选项。在Visual Basic - VBA中，我们可以通过以下步骤实现动态更改下拉列表：

1. 打开Visual Basic - VBA编辑器，选中需要操作的下拉列表所在的表单或画布。

2. 右键点击下拉列表，选择“属性窗口”。在“数据”属性下，可见“行源”和“列源”这两个属性。如果是基于单元格的下拉列表，还需看到“输入范围”属性。

3. 根据需要，更改行源和列源属性，来指定下拉列表中所显示的单元格范围。也可以更改输入范围属性，来指定可以输入的单元格范围。

4. 双击下拉列表，在其“下拉列表”事件中编写代码。本例中，我们使用了Worksheet_Change事件，其在表单中的任何单元格内容发生更改时都会被触发。代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DropDownList As Range
    Set DropDownList = Range("A1:A10") '设置下拉列表范围'
 
    If Intersect(Target, DropDownList) Is Nothing Then Exit Sub
 
    '根据选择项，更改其他单元格的内容'
    Select Case Target.Value
        Case "Option 1"
            Range("B1").Value = "You selected Option 1"
        Case "Option 2"
            Range("B1").Value = "You selected Option 2"
        Case "Option 3"
            Range("B1").Value = "You selected Option 3"
    End Select
 
End Sub

在本例中，下拉列表的选项是单元格A1到A10。在事件代码中，我们首先检查所更改的单元格是否是下拉列表范围内的单元格，如果不是，则退出。然后，根据所选择的下拉列表项，更改单元格B1中的内容。

这样，当用户在下拉列表中选择某个选项时，单元格B1中的内容会相应地更改。

以上就是动态更改下拉列表的Visual Basic - VBA实现方法。