VBA excel，如何在2种不同的用户窗体上从日期选择器（monthview）到文本框获取日期单击值

Question

我试图在单击文本框时从日期选择器中获取日期。 在日期选择器（monthview）中单击日期后，monthview不会保持单击日期。 样品已附上。 请帮忙。

1）带来Monthview的点击值，不起作用。

Private Sub TextBox1_Enter()

DATEpicker.Show
ActiveControl.ActiveControl.Value = DATEpicker.MonthView1.Value

End Sub

2）将单击的值发送到TextBox，但是monthview的代码必须定义用户窗体名称（Projecta），如何传递用户窗体名称（位于Textbox）和控件。

Public Sub TextBox1_Enter()

Set oCtl = ActiveControl.ActiveControl
DATEpicker.Show

End Sub

Public Sub MonthView1_DateClick(ByVal DateClicked As Date)

PROJECTa.oCtl.Value = Me.MonthView1.Value

Unload Me
End Sub