Question

EXCEL中通过VBA修改下拉框的列表值

假如excel中有两列都是下拉框单元格（A1列和C1列），A1下拉框可选择（A、B），C1可选择（1、2、3），现在我想在选择A1单元格值为B时，C1单元格的下拉选择项变成（4、5、6），这个该如何实现？
就是和更加某个单元格的值的变化，改变下拉列表，请高手指教！！

Answer 1

数据有效性里显示的内容修改。

如果允许来源是来自表格内的内容，修改来源的值即可。

例如下图情况，修改A列的值即可。

如果允许来源是输入的值，由英文逗号分开的方式，把其中的值进行修改即可。

Answer 2

　　代码如下，需要使用VBAworksheet事件。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "B" Then

  
    With Range("B1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="E,F,G"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With


End If

End Sub

Answer 3

数据有效性就行