在初始化和更改其他组合框时设置组合框值

Question

（编辑：为了澄清，我正在运行Excel 2013，因此微软的日期选择器不可用。）

我正在尝试编写一个简单的日期选择器 - 当它完成时它会更整洁，它只是为了简单而我构建它 - 并且一切都按照它应该填充：

Me.Combo_Year.List = wsLU.Range("Date_Years").Value
Me.Combo_Month.List = wsLU.Range("Date_Months").Value
Me.Combo_Day.List = wsLU.Range("Date_Days31").Value

但是，有两种情况我想为年，月，日组合框设置默认值。我正在使用旋转按钮，其中一个简单的.Value语句将它们设置为_Initialize中午12点。但.Value和.Text都不适用于组合框：

Me.Combo_Year.Text = Year(Now())  ' Doesn't work
Me.Combo_Month.Text = Month(Now())  ' Doesn't work
Me.Combo_Day.Text = Day(Now())  ' Doesn't work
Me.Spin_Hour.Value = 12  ' Works fine
Me.Spin_Minute.Value = 0  ' Works fine

同样，当我尝试将日期设置为较低的值时，选择一个月较少的月份（例如，为了避免返回2月31日），.Value和.Text都证明了再次无益：

有没有办法可靠地设置默认值，然后在代码中更改组合框的值？我错过了一些非常明显的东西吗？

编辑：作为参考，表格相关部分的完整代码（UpdatePreview只是更新OK按钮上方的预览日期）：

--------------------------------------------------------------------------------

Option Explicit

--------------------------------------------------------------------------------

Private Sub UserForm_Initialize()
Dim wsLU As Worksheet, wbV As Workbook
Set wbV = ActiveWorkbook
Set wsLU = wbV.Worksheets("General Lookups")

Me.Combo_Year.List = wsLU.Range("Date_Years").Value
Me.Combo_Month.List = wsLU.Range("Date_Months").Value
Me.Combo_Day.List = wsLU.Range("Date_Days31").Value
Me.Combo_Minute.AddItem 0
Me.Combo_Minute.AddItem 30

' Tried putting the date numbers via variables instead of direct, with various data types
Dim TestYear As String, TestMonth As String, TestDay As String
TestYear = Year(Now())
TestMonth = Month(Now())
TestDay = Day(Now())
Lab_T_Year.Caption = TestYear
Lab_T_Month.Caption = TestMonth
Lab_T_Day.Caption = TestDay
'Me.Combo_Year.Text = TestYear    ' If these lines are commented out the form will load, though without the comboboxes prepopulated
'Me.Combo_Month.Text = TestMonth  ' If these lines are commented out the form will load, though without the comboboxes prepopulated
'Me.Combo_Day.Text = TestDay      ' If these lines are commented out the form will load, though without the comboboxes prepopulated

' Original code; tried this both with and without various Format types.
'Me.Combo_Year.Value = Format(Year(Now()), "0000")
'Me.Combo_Month.Value = Format(Month(Now()), "00")
'Me.Combo_Day.Value = Format(Day(Now()), "00")
Me.Spin_Hour.Value = 12
Me.Combo_Minute.Value = 0  ' Switched the minute spinner to a combobox as the client wanted to just pick half hours (00/30) instead of minutes

UpdatePreview  ' Updates date and time preview, works fine.
End Sub

--------------------------------------------------------------------------------

Private Sub Combo_Year_Change()  ' Combo_Month_Change has an equivalent sub that essentially mirrors this one
Dim wsLU As Worksheet, wbV As Workbook
Set wbV = ActiveWorkbook
Set wsLU = wbV.Worksheets("General Lookups")

Dim iMonthNo As Integer, iYearNo As Long, iMaxDate As Integer

' Set number of days based on month
iMonthNo = Me.Combo_Month.ListIndex + 1
iYearNo = Me.Combo_Year.Value
If iMonthNo = 1 Or iMonthNo = 3 Or iMonthNo = 5 Or iMonthNo = 7 Or iMonthNo = 8 Or iMonthNo = 10 Or iMonthNo = 12 Then
    Me.Combo_Day.List = wsLU.Range("Date_Days31").Value
    iMaxDate = 31
ElseIf iMonthNo = 4 Or iMonthNo = 6 Or iMonthNo = 9 Or iMonthNo = 11 Then
    Me.Combo_Day.List = wsLU.Range("Date_Days30").Value
    iMaxDate = 30
ElseIf iMonthNo = 2 Then
    Me.Combo_Day.List = wsLU.Range("Date_Days28").Value
    iMaxDate = 28
    ' Leap year div by 4
        If iYearNo / 4 = Int(iYearNo / 4) And Not (iYearNo / 100 = Int(iYearNo / 100)) Then Me.Combo_Day.List = wsLU.Range("Date_Days29").Value
        If iYearNo / 4 = Int(iYearNo / 4) And Not (iYearNo / 100 = Int(iYearNo / 100)) Then iMaxDate = 29
    ' Leap year div by 400
        If iYearNo / 4 = Int(iYearNo / 4) And iYearNo / 400 = Int(iYearNo / 400) Then Me.Combo_Day.List = wsLU.Range("Date_Days29").Value
        If iYearNo / 4 = Int(iYearNo / 4) And iYearNo / 400 = Int(iYearNo / 400) Then iMaxDate = 29
End If

' Code to attempt to change the date down if Month is switched to one with fewer days. It doesn't work.
If Me.Combo_Day.Value > iMaxDate And iMonthNo > 0 And Not Me.Combo_Day.Value = "" Then Me.Combo_Day.Value = iMaxDate

UpdatePreview  ' Updates date and time preview, works fine.
End Sub

他们没有工作的事情：

• 添加Microsoft自己的日期选择器（Excel 2013中不可用）
• 按照Microsoft的建议安装补充日期选择器（不能假设它可以在用户的​​计算机上使用）
• 尝试通过VBA直接设置组合框'.Text或.Value属性，无论使用何种数据类型。
• 直接尝试日期（=Month(Now())），变量（=sNowMonth）或列表索引（Me.Combo_Month.Text=Me.Combo_Month.List(Month(Now())-1)）。

自上周以来，我一直在寻找解决方案。我发现的每一种可能性都适用于旧版本的Office。有人可以帮忙吗？

Answer 1

要直接回答您的问题，您可以创建一个日期变量，然后将其转换为文本字符串：

Dim txtNowYear As String
Dim txtNowMonth As String
Dim txtNowDay As String

txtNowYear = Year(Now())
txtNowMonth = Month(Now())
txtNowDay = Day(Now())

Me.Combo_Year.Text = txtNowYear
Me.Combo_Month.Text = txtNowMonth
Me.Combo_Day.Text = txtNowDay  

但是根据您打算使用它的方式，将输入格式更改为.Date

可能更为明智。

转到“工具”，“其他控件”，选择“Microsoft Monthview Control 6.0”（SP6）并在表单中插入日期选择器。

PS：类似的方法应该能够处理你的第二个问题。