Excel 从另一个userform中多次调用userform-日历日期选择器

Excel 从另一个userform中多次调用userform-日历日期选择器,excel,vba,userform,Excel,Vba,Userform,我正在使用Siddharth Rout创建的日历,可在此处找到: 我有一个userform,它位于一个基本数据库的顶部,该数据库有许多日期字段 我想多次使用一个日历表单,即在userform上有一个调用日历并将日期放入label1的cmdbutton1,然后是一个调用相同日历表单以填充label2的cmdbutton2。很明显,这些将有不同的日期 我尝试过对变量进行各种形式的临时绑定,但没有任何效果。任何帮助都将不胜感激 您可以创建用户表单的实例,在需要时设置这些实例,并在需要时显示这些实例。从

我正在使用Siddharth Rout创建的日历,可在此处找到: 我有一个userform,它位于一个基本数据库的顶部,该数据库有许多日期字段

我想多次使用一个日历表单,即在userform上有一个调用日历并将日期放入label1的cmdbutton1,然后是一个调用相同日历表单以填充label2的cmdbutton2。很明显,这些将有不同的日期


我尝试过对变量进行各种形式的临时绑定,但没有任何效果。任何帮助都将不胜感激

您可以创建
用户表单的实例,在需要时设置这些实例,并在需要时显示这些实例。从这些实例中,您可以修改子用户表单

Private Sub CommandButton1_Click()
    Dim ufrm2 As UserForm2

    Set ufrm2 = New UserForm2

    ufrm2.Label1.Caption = Me.CommandButton1.Caption

    ufrm2.Show
End Sub

Private Sub CommandButton2_Click()
    Dim ufrm2 As UserForm2
    Set ufrm2 = New UserForm2

    ufrm2.Label1.Caption = Me.CommandButton2.Caption

    ufrm2.Show
End Sub
给予:


嗨,欢迎来到SO。由于我们不是一个代码编写服务,您必须向我们提供您所尝试的内容(即您的代码),并提供有关您所面临问题的详细信息。然后,我们可以帮助指导您如何解决问题。读一读:嗨,扎克,谢谢你的欢迎可能会有帮助。我读了《如何提问》,但是Sid日历中的代码很难解压成一个简洁的问题!我不希望有人为我编写代码,因为我正在努力学习,但我不知道如何在这种情况下临时设置值。我不知道去哪里找!我将尝试模拟我所追求的,但同样简单的指导会更好;你启动了希德的日历了吗?或者这就是你想要做的吗?嗨,扎克,谢谢你的时间,启动Sid的日历并将其集成到一个用户表单中,我用它来编辑一个锁定的数据库是完全可以的。我可以使用cmdbutton1启动日历,并将
MsgBox Label6.标题、vbInformation、“选定日期”编辑为
userform1.label1.text=calendar.Label6.text
或某些变体。在这个问题上,我希望有多个CMD按钮(1、2、3等),分别调用日历和填充用户表单(1、2、3等)。我试图梳理出下面的Toms解决方案。为了澄清,我有一个userform1和userform1.cmdbutton1调用日历,结果是返回userform1.label1,userform1.cmdbutton2结果进入userform1.label2等,而不是重复相同的代码,可能值得拥有一个UDF,它启动表单并显示表单,并从每个表单调用UDFclick@Zac同意-我这么做更多的是为了证明我可以使用相同的
UserForm
并以不同的方式进行定制。票价点。不过我确实喜欢这个演示!我必须安装其中一个应用程序soon@Zac我用屏风吹口琴。无法在工作机器上安装,但可以在我的笔记本电脑上安装。。非常方便