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

사용 년() 및 날짜() 현재 연도 얻기 위해 다음 루프 항목

CurrentYear = Year(Date) 

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