VBA自学应用（15）——Monthview控件查看日期对应事件

首先我们需要在VBE窗口工具栏下找到我们所需要的控件MonthView。


然后画出如下窗体

在Monthview控件对应事件中写入如下代码

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    Dim i As Integer
    Dim arr()
    ListBox1.Clear
    arr = Range("c1").CurrentRegion.Value
    For i = 2 To UBound(arr)
        If arr(i, 1) = Me.MonthView1.Value Then
            Me.ListBox1.AddItem arr(i, 2)
        End If
    Next
End Sub

这样我们就可以通过MonthView控件查看对应日期我们应当做的事情啦！