如何将日期选择器添加到 VBA 用户窗体

Question

I am looking for a control to add to userForm to enable a user to pick the date. I found a good one at this address

Formatting MM/DD/YYYY dates in textbox in VBA

from Siddharth Rout which is perfect but it generates invisible sheets which is not necessary for my application. I tried to stop creating sheets but I couldn't figure it out.

Can you please let me know how I can properly modify the Siddharth Rout code or point me to another application like that?

Thanks for your time

Answer 1

OFFICE 2013 INSTRUCTIONS :

(For Windows 7 (x64) | MS Office 32-Bit )

Option 1 | Check if ability already exists | 2 minutes

1. Open VB Editor
2. Tools -> Additional Controls
3. Select "Microsoft Monthview Control 6.0 (SP6)" (if applicable)
4. Use 'DatePicker' control for VBA Userform

Option 2 | The "Monthview" Control doesn't currently exist | 5 minutes

1. Close Excel
2. Download MSCOMCT2.cab (it's a cabinet file which extracts into two useful files)
3. Extract Both Files | the .inf file and the .ocx file
4. Install | right-click the .inf file | hit "Install"
5. Move .ocx file | Move from "C:\\Windows\\system32" to "C:\\Windows\\sysWOW64"
6. Run CMD | Start Menu -> Search -> "CMD.exe" | right-click the icon | Select "Run as administrator"
7. Register Active-X File | Type "regsvr32 c:\\windows\\sysWOW64\\MSCOMCT2.ocx"
8. Open Excel | Open VB Editor
9. Activate Control | Tools->References | Select "Microsoft Windows Common Controls 2-6.0 (SP6)"
10. Userform Controls | Select any userform in VB project | Tools->Additional Controls
11. Select "Microsoft Monthview Control 6.0 (SP6)"
12. Use 'DatePicker' control for VBA UserForm

Okay, either of these two steps should work for you if you have Office 2013 (32-Bit) on Windows 7 (x64). Some of the steps may be different if you have a different combo of Windows 7 & Office 2013.

The "Monthview" control will be your fully fleshed out 'DatePicker'. It comes equipped with its own properties and image. It works very well. Good luck.

Site: "bonCodigo" from above (this is an updated extension of his work)
Site: "AMM" from above (this is just an exension of his addition)
Site: Various Microsoft Support webpages

Answer 2

You could try the "Microsoft Date and Time Picker Control". To use it, in the Toolbox, you right-click and choose "Additional Controls...". Then you check "Microsoft Date and Time Picker Control 6.0" and OK. You will have a new control in the Toolbox to do what you need.

I just found some printscreen of this on : http://www.logicwurks.com/CodeExamplePages/EDatePickerControl.html Forget the procedures, just check the printscreens.

Answer 3

In Access 2013. Drop a "Text Box" control onto your form. On the Property Sheet for the control under the Format tab find the Format property. Set this to one of the date format options. Job's done.

Answer 4

Just throw some light in to some issues related to this control.

Date picker is not a standard control that comes with office package. So developers encountered issues like missing date picker controls when application deployed in some other machiens/versions of office. In order to use it you have to activate the reference to the .dll, .ocx file that contains it.

In the event of a missing date picker, you have to replace MSCOMCT2.OCX file in System or System32 directory and register it properly. Try this link to do the proper replacement of the file.

In the VBA editor menu bar-> select tools-> references and then find the date picker reference and check it.

If you need the file, download MSCOMCT2.OCX from here .

Answer 5

A calendar form can be used as an alternative to the date picker. On a userform example, I used this calendar form to add dates to text boxes. When double-clicked on the textbox, the calendar form is displayed :

Private Sub txtDOTDate_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call GetCalendar
End Sub

Sub GetCalendar()
    dateVariable = CalendarForm.GetDate(DateFontSize:=11, _
        BackgroundColor:=RGB(242, 248, 238), _
        HeaderColor:=RGB(84, 130, 53), _
        HeaderFontColor:=RGB(255, 255, 255), _
        SubHeaderColor:=RGB(226, 239, 218), _
        SubHeaderFontColor:=RGB(55, 86, 35), _
        DateColor:=RGB(242, 248, 238), _
        DateFontColor:=RGB(55, 86, 35), _
        TrailingMonthFontColor:=RGB(106, 163, 67), _
        DateHoverColor:=RGB(198, 224, 180), _
        DateSelectedColor:=RGB(169, 208, 142), _
        TodayFontColor:=RGB(255, 0, 0))
If dateVariable <> 0 Then frmflightstats.txtDOTDate = dateVariable
End Sub

Source of template