[求助]日历控件不见了

EXCEL2003，目的是当我选中A列某一单元格出现日历控件，选择日期后会将该日期赋值到该单元格。操作方法是先插入日历控件，然后在 VISUAL BASIC编辑器里写下如下代码：
Private Sub Calendar1_Click()
With Calendar1
    ActiveCell = .Value
    .Visible = False
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = 1 Then
    With Calendar1
        .Visible = True
        .Left = T.Width
        .Top = T.Top
    End With
Else
    Calendar1.Visible = False
End If
End Sub
做完这些操作，刚开始确实可实现想要的效果，但后来在我继续编辑非A列单元格的过程中不知道什么时候就变了。再点击A列单元格不会出现日历控件了。不知道是什么原因，望达人解惑下。谢谢。

jLpaoL5z.rar (10.47 KB)
[求助]日历控件不见了
下载次数: 5

2008-7-11 19:20

[此贴子已经被作者于2008-7-11 19:20:44编辑过]