在Excel中，根据当前年份使用VBA编写动态下拉菜单

在Excel中，可以使用VBA编写动态下拉菜单，根据当前年份来更新下拉菜单的选项。以下是一个示例代码：

Sub UpdateDropdown()
    Dim currentYear As Integer
    Dim dropdownRange As Range
    Dim dropdownList As String
    Dim i As Integer
    ' 获取当前年份
    currentYear = Year(Date)
    ' 设置下拉菜单的范围
    Set dropdownRange = Sheet1.Range("A1:A10")
    ' 清除原有的下拉菜单选项
    With dropdownRange.Validation
        .Delete
    End With
    ' 生成新的下拉菜单选项
    dropdownList = ""
    For i = currentYear - 5 To currentYear + 5
        dropdownList = dropdownList & "," & i
    Next i
    ' 更新下拉菜单的选项
    With dropdownRange.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=dropdownList
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub
在上面的代码中，首先获取当前年份，然后设置下拉菜单的范围，清除原有的下拉菜单选项，然后根据当前年份生成新的下拉菜单选项。最后，更新下拉菜单的选项。你可以将这段代码放在VBA编辑器中的一个模块中，然后在Excel中运行它来更新下拉菜单。