首页 文章

Excel VBA组合框列表

提问于
浏览
1

我想设置组合框列表中的可用值,以显示从2010年到当前年份的年份列表 . 所以现在将是2010年,2011年,2012年,2013年和2014年 . 明年它将显示2010年,2011年,2012年,2013年,2014年和2015年 . 2016年将显示2010年,2011年,2012年,2013年,2014年,2015年和2016年 .

当前打开工作簿时,使用以下设置值 . 如何对其进行编码以便从2010年到当前年份构建列表?

With Sheet1.YearCombo
     .AddItem "2012"
     .AddItem "2013"
     .AddItem "2014"
End With

1 回答

  • 1

    使用Year()和Date()获取当前年份,然后循环以添加项目

    CurrentYear = Year(Date)
    
    With Sheet1.YearCombo
         .clear
        For yr = 2010 To CurrentYear
            .AddItem yr
        Next yr
    End With
    

相关问题