Excel VBA组合框列表

Question

我想设置组合框列表中的可用值，以显示从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

Answer 1

使用Year（）和Date（）获取当前年份，然后循环添加项目

CurrentYear = Year(Date)

With Sheet1.YearCombo
     .clear
    For yr = 2010 To CurrentYear
        .AddItem yr
    Next yr
End With