excel - [VBA][Excel] 表单列表视图 - 获取选定列

Question

我正在尝试在 Excel 表单中创建一个简单的日期选择器，但事实证明它比我要复杂一些。

我有一个带有简单列表视图的小表格，上面填写了下面的代码（稍后我将努力获取第一个和最后一个日期）。如何获得选定的子项？我只想得到用户点击的那一天，我只找到了项目的触发器，而不是子项目的触发器。

另外，有没有办法只选择被点击的子项目，或者我需要fullRowSelect，并格式化选定的子项目以以不同的方式突出显示它，就像日历一样。

Private Sub loadListView_days()
    Dim R, C, LI As ListItem, LIs As ListSubItem
    
    With Me.ListView1
        .View = lvwReport
        With .ColumnHeaders
            .Clear
            .Add , , "Week", "30"
            For C = 1 To 7
                .Add , , WeekdayName(C, True), "25"
            Next
        End With
        For R = 1 To 4
            Set LI = .ListItems.Add
            LI.Text = "Week " & R
            For C = 1 To 7
                Set LIs = LI.ListSubItems.Add
                LIs.Text = R * C
            Next C
        Next R
    End With
End Sub

标签： excelvbaformslistview