在Excel中动态创建下拉菜单？

Question

我正在尝试创建两个下拉菜单，其中第一个将具有Years，第二个将具有几个月。 如果我选择2015年，则第二个下拉列表应仅显示从1月到9月的月份。如果我选​​择2014年，则第二个下拉列表应显示所有月份。 你们中的任何人都可以帮助我在excel中解决这个问题吗？

Answer 1

试试这个简短的宏：

Sub DVSetup()
    Range("A1:B1").Clear
    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="2014,2015"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

    For i = 1 To 12
      Range("C" & i).Value = Format(DateSerial(2000, i, 1), "mmm")
    Next i

    With Range("B1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=IF(A1=2014,C1:C12,C1:C9)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub

它在A1单元格中设置DV ，以允许在2014年至2015年之间进行选择。它还在B1单元格中设置DV ，以为A1中选择的每年提供正确的月份范围。