Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pop Calendar in User Form
I have created a calendar (frmCalendar) as shown below coding:
Private Sub Calendar1_Click() ActiveCell.Value = Calendar1.Value Unload Me End Sub Private Sub cmdClose_Click() Unload Me End Sub And I have the problem when I try to use this calendar to enter the date in a text box (StartDate) of another Userform: Private Sub StartDate_Change() ActiveCell.Value = frmCalendar.Show End Sub The calendar pop up but when I click at the selected date, there is no input into the text box. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pop Calendar in User Form
Hello Ed,
Thanks for using Microsoft Newsgroup Support Service, my name is Colbert Zhou [MSFT] and I will be working on this issue with you. If we want to make your selected data appear in the textbox, we need to set the TextBox.Value instead of the ActiveCell.Value in your codes. Another place to be modified is that we need to handle the textbox's KeyPress event, instead of the Change event. The reason is setting value will also cause the change event fire. So we are trapped in a dead loop. Please try the following codes which work in my side. If you have any future questions or concerns, please do not hesitate to let me know, I will be happy to provide future assistance. In the formCalendar, Public MainForm As MainForm Private Sub Calendar1_Click() MainForm.TextBox1.Value = Calendar1.Value Unload Me End Sub Private Sub cmdClose_Click() Unload Me End Sub In the MainForm, Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Set frmCalendar.MainForm = Me frmCalendar.Show KeyAscii = 32 End Sub I also upload a Marco Enabled workbook that implements this demand in my Sky Driver, please feel free to download it and have a test, http://cid-c2e0d62e8a095a30.skydrive...blic/Test.xlsm Have a good day! Best regards, Colbert Zhou (colbertz @online.microsoft.com, remove 'online.') Microsoft Online Community Support Delighting our customers is our #1 priority. We welcome your comments and suggestions about how we can improve the support we provide to you. Please feel free to let my manager know what you think of the level of service provided. You can send feedback directly to my manager at: . ================================================== Get notification to my posts through email? Please refer to http://msdn.microsoft.com/en-us/subs...#notifications. Note: The MSDN Managed Newsgroup support offering is for non-urgent issues where an initial response from the community or a Microsoft Support Engineer within 1 business day is acceptable. Please note that each follow up response may take approximately 2 business days as the support professional working with you may need further investigation to reach the most efficient resolution. The offering is not appropriate for situations that require urgent, real-time or phone-based interactions or complex project analysis and dump analysis issues. Issues of this nature are best handled working with a dedicated Microsoft Support Engineer by contacting Microsoft Customer Support Services (CSS) at http://support.microsoft.com/select/...tance&ln=en-us. ================================================== This posting is provided "AS IS" with no warranties, and confers no rights. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pop Calendar in User Form
Hello Ed,
I am writing to check the status of the issue on your side. Could you please let me know if the sample works for you or not? If you have any questions or concerns, please feel free to let me know. I will be more than happy to be of assistance. Have a great day! Best regards, Colbert Zhou , remove 'online.') Microsoft Online Community Support ================================================= Delighting our customers is our #1 priority. We welcome your comments and suggestions about how we can improve the support we provide to you. Please feel free to let my manager know what you think of the level of service provided. You can send feedback directly to my manager at: . This posting is provided "AS IS" with no warranties, and confers no rights. ================================================= |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Add calendar to VBA User Form | Excel Discussion (Misc queries) | |||
Date field in user form & Loading a user form on opening workbook | Excel Programming | |||
adding date from user form with calendar to next row | Excel Programming | |||
How do I format a cell, so the user must use a user calendar? | Excel Discussion (Misc queries) | |||
Loading a calendar (user form) from another project (personal.xls) | Excel Programming |