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控件查看对应日期我们应当做的事情啦！

• 点赞
• 收藏
• 分享
• 文章举报