请Excel 的高手帮我解决一个 控件问题！

我在Excel中 有一个日历表， 我怎样这个功能：
我随意点击一个日期，在旁边控件上， 都能相应的显示
上面表达有问题！
我的意思是 在旁边的 那个单元格里， 怎么和这个日历表关联起来啊？ 使得我每点击一个日期，该单元格都会做出相应的显示

楼主，您好. 依我看您这个日历不要随意点，因为随意的意思是任意单元格。

您不可能每个单元格都要求输入日期的，对吧？ 我认为应该是移动到某列时才会出现日历，当输入完成后日历就该消失。 再选中该列的单元格日历再出来。我这样理解，对否？如果您认同请看下边代码

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 4 Then
Calendar1.Visible = False
Else
Calendar1.Top = Target.Top
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True
End If
End Sub

==================================
上边是两个事件处理.
第一个做的是，当在日历上选择一个日期，单元格放入日期后，日历就消失不见
第二个做的是, 当选择的单元格是在第4列的时候，日历就出来，显示位置会在当前单元格的右侧(会随行位置不同，位置也会随之变化的)

注. 这里我用的是第4列，如果您不是4列。请将上边代码中的4改成你想要的.

上述代码使用方法，是在Alt + F11 中添加的.

解释完毕, 如若不明请Hi 我~~

回答者： lxlzmh2002 - 魔导师 十级 2009-9-8 07:34
=====================================================================