Excel VBA组合框列表

Question

在Excel中，我不知道如何在组合框中指定默认选择。

在下图中，我在一个用户表单中有一个ComboBox，它是一个来自命名范围的月份(ComboBox1.Value = Format(ComboBox1.Value, "mmm-yy")的列表。

Rowsource: Months可以追溯一年或两年，但为了用户健全，我希望默认选择是当前月份之前的月份，例如如果当前月份为January 2016，那么我希望默认突出显示在单击组合框时跳转到December 2016，而不是用户需要滚动到它。

我试图以下列方式强迫：

ComboBox1.Text = Text(EoMonth(TODAY(), -1), "MMM-YY")，应该已经足够了，但在下面的ComboBox1_Change() / ComboBox1_Click()私有子广告中不起作用。

Private Sub ComboBox1_Change()
    ComboBox1.Value = Format(ComboBox1.Value, "mmm-yy")

End Sub