Excel 用戶表單中所有組合框的一個日期選擇器

Question

我想完成的事情：

1. 在用戶窗體上有單獨的組合框，這樣當單擊單個下拉按鈕時，加載一個帶有日歷控件的全局用戶窗體。 由於我將有多個組合框，因此繼續添加帶有日歷控件的新單獨用戶表單是不可行的。 取而代之的是，只有一個帶有日歷控件的主用戶窗體可以為我的所有組合框完成所有工作。

2. 從全局日期選擇器日歷控件中選擇日期時，將所選日期插入到單擊的組合框中。

我找到了一些碎片，但我無法理解它們，因為我是新手。

Answer 1

想想這個，我能想到一個解決辦法。 添加標簽。

單擊組合框時，標簽將具有組合框名稱，然后從那里開始，當您單擊日歷控件中的日期時，它會將日期發送到標簽中的組合框名稱。

我只是抓住了工具箱中可用的任何日歷控件，您的可能會有所不同。

Private Sub ComboBox1_DropButtonClick()
    Me.Label1 = Me.ComboBox1.Name
End Sub
Private Sub ComboBox2_DropButtonClick()
    Me.Label1 = Me.ComboBox2.Name
End Sub
Private Sub ComboBox3_DropButtonClick()
    Me.Label1 = Me.ComboBox3.Name
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    s = Me.Label1.Caption
    Me.Controls(s) = Me.MonthView1.Value
End Sub

正如@MathieuGuindon 指出的那樣，單擊組合框時，您可以將標簽分配給 Calendar 控件，然后您就不必放置標簽方法了。

謝謝馬修...

Private Sub ComboBox1_DropButtonClick()
    Me.MonthView1.Tag = Me.ComboBox1.Name
End Sub
Private Sub ComboBox2_DropButtonClick()
    Me.MonthView1.Tag = Me.ComboBox2.Name
End Sub
Private Sub ComboBox3_DropButtonClick()
    Me.MonthView1.Tag = Me.ComboBox3.Name
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    s = Me.MonthView1.Tag
    Me.Controls(s) = Me.MonthView1
End Sub