Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar Control - Display Issue
[Excel2000-WIn98SE and Excel2002SP2-Win2000]
I am having a display quirk with a template using the following code (credit to Ron De Bruin) in that the Calendar Control 8 is very slow to hide once the cell is selected (it displays very quickly). I have tested different video resolutions and video drivers from 5 of our ~800 computers to no avail). If this is a Excel issue, given that I only need three cells with a specific date format (for calculations and rate formats), one option would be to duplicate the macro 3 times and paste each value independently from a macro button. I would appreciate any help on the code to paste the value in the cell as I have not been successful. Option Explicit Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ' ActiveCell.NumberFormat = "dd-mmmm-yyyy" ActiveCell.Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("AN6,AT6"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width - Calendar1.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date Else: Calendar1.Visible = False End If End Sub Thanks, KC |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
need to display the excel atcive control calendar to enter dates | Excel Discussion (Misc queries) | |||
Using Calendar control to display dates | Excel Discussion (Misc queries) | |||
Calendar Control in Excel 2000 can't display date in Excel 2003? | Excel Discussion (Misc queries) | |||
Calendar issue | Excel Discussion (Misc queries) | |||
Calendar Control: Can't exit design mode because control can't be created | Excel Programming |