寻找一种使用代码生成用户表单的方法

Question

我有一个小型企业的大型电子表格数据（2600行），订单可追溯到2009年。我编写了代码以提取给定年份和月份的数据并将其用于图表，但是使用了2个输入框似乎很笨拙，我想简化界面，以便输入一年可以显示一个可供选择月份的用户表单（某些月份没有数据，因为直到2012年才定期输入订单。

这是我当前正在执行的操作的相关代码，但是无法知道在输入之前，给定月份是否会有数据：

y = InputBox("input the year you want to look at")
m = InputBox("input the number of the month you want to look at (ie 12 for december)")

For i = 2 To LastRow("Report Data")
    If RptSheet.Cells(i, index("Duration")).Value <> "—" And RptSheet.Cells(i, index("Duration")).Value > 0 And RptSheet.Cells(i, index("Duration")).Value < 125 Then
        If Year(RptSheet.Cells(i, index("Del.Date WKU"))) = y And Month(RptSheet.Cells(i, index("Del.Date WKU"))) = m Then
            ReDim Preserve arr(1 To j)
            arr(j) = RptSheet.Cells(i, index("Serial Number")).Value
            ReDim Preserve dur(1 To j)
            dur(j) = RptSheet.Cells(i, index("Duration")).Value
            j = j + 1
        End If
    End If
Next i

我觉得必须有一个更好的方法来做到这一点。任何帮助将不胜感激。