如何从 Excel 中的 UserControl 日历中选择多个日期？

Question

我在 Excel 中有一个 userForm 日历控件，它适用于单个日期。代码如下：

 If Range("C4").Value = "" Then
    ' do nothing'
 Else
    If IsDate(Range("C4").Value) = True Then
       Load frmCustomCalendarControl
       frmCustomCalendarControl.SelectedDayNumber = Day(Range("C4").Value)
       frmCustomCalendarControl.SelectedMonthNumber = Month(Range("C4").Value)
       frmCustomCalendarControl.SelectedYearNumber = Year(Range("C4").Value)
    End If
 End If
 frmCustomCalendarControl.Show
 If frmCustomCalendarControl.SelectedDayNumber = 0 And _
  frmCustomCalendarControl.SelectedMonthNumber = 0 And _
  frmCustomCalendarControl.SelectedYearNumber = 0 Then
    ' user click on the cancel button in the calendar control therefore do nothing '
 Else
    Range("C4").Value = DateSerial(frmCustomCalendarControl.SelectedYearNumber, _
     frmCustomCalendarControl.SelectedMonthNumber, _
     frmCustomCalendarControl.SelectedDayNumber)
    ' the following properties are also available from the customer control if you need them
    Debug.Print "frmCustomCalendarControl.SelectedDateDDMMYYYY = " & frmCustomCalendarControl.SelectedDateDDMMYYYY
    Debug.Print "frmCustomCalendarControl.SelectedDayString = " & frmCustomCalendarControl.SelectedDayString
    Debug.Print "frmCustomCalendarControl.SelectedMonthString = " & frmCustomCalendarControl.SelectedMonthString
    Debug.Print "frmCustomCalendarControl.SelectedYearString = " & frmCustomCalendarControl.SelectedYearString
 End If
 Unload frmCustomCalendarControl

这是运行日历用户窗体并选择日期的代码。 现在我想使用同一个用户 Control 选择多个日期。

Answer 1

不清楚您使用的是什么日历控件。我找不到任何具有在您的代码中看到的属性的日历控件。出于测试目的，我创建了一个 MonthView 控件。在 MonthView 的属性中可以看到：

• MaxSelCount，代表最多可以选择的天数；
• MultiSelect - 如果是 True，您可以选择超过 1 个日期。