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