1

我没有使用 vba 的经验，非常感谢您在实施弹出式日历用户表单方面的帮助。此链接将引导您到我试图在我的工作簿中引入的日历的来源：

http://www.ozgrid.com/forum/showthread.php?t=142603

我已将类模块、用户表单和模块复制到我的工作簿中。当我启动宏时，这会打开一个用户表单，我可以在其中选择日历上希望的日期。我想念的是能够将日历中选择的日期发送到我工作簿中的特定单元格。如果有人能指导我编写几行代码，将用户表单中选择的日期发送到我工作簿中的特定单元格，我将不胜感激！同样，我对此很陌生，所以如果我的解释中有任何不清楚的地方，请告诉我。我在这方面花了很多时间，所以非常感谢任何支持！对你来说可能只需要几分钟，但对我来说意义重大！

4

2 回答 2

1

试试这个帖子。似乎可以提供更好的使用指南datepicker control。但是，它显示了制作插件的编码。

因此，对你来说最基本的方法是，

  • 添加表单
  • 添加日期选择器控件
  • 那里的代码

根据这篇文章。

但请记住 Excel/Access 中的日历控件有时会因为我的帖子中提到的这个原因而消失。

如果您打算使用date picker控件，这里是将值从表单传递到您想要的任何地方的代码；）

Private Sub myDtPicker_Change()
Dim dtDateSelected as Date
   dtDateSelected = myDtPicker.Value
   '-- do anything else
End Sub
于 2012-12-18T14:41:06.067 回答
0

该类将选定的日期写入文本框。选择日期后，您可以使用文本框的值来设置单元格的值。

Private Sub UserForm_Initialize()
    Set clsCal = New clsCalendar           'Initialize the Class'
    Set clsCal.Form(Me.TextBoxDate) = Me   'Tells the class to write the Selected date'
                                           '  into the textbox "Me.TextBoxDate"'
End Sub

因此，在该示例中，每当您选择日期时，该类都会自动将所选日期存储在文本框中。

选择日期后，您可以使用以下代码将值添加到单元格：

 Range("A1").value=TextBoxDate.Value
于 2012-12-18T15:11:30.057 回答