在Excel中使用日期控件方法详解

故我在

这个不错 多谢楼主 弄个实物就更好了

乐少

怎么我需要在B列设置日历控件，然后
If Target.Column = 1 And Target.Count = 1 Then 改成  If Target.Column = 2 And Target.Count = 2 Then
控件就不生效了呢？

wwq7356315

原帖由 随心而动 于 2009-4-16 17:12 发表
在Excel中使用日期控件方法详解，供大家分享

楼主辛苦了，你提供的编码只能在一列中显示：而我想让它在多列中显示，代码不知如何写，请楼主指教
Option Explicit
Private Sub DTPicker1_Change()
    ActiveCell.Value = DTPicker1.Value
    DTPicker1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.DTPicker1
        If Target.Column = 1 And Target.Count = 1 Then
            .Visible = True
            .Width = Target.Width + 15
            .Left = Target.Left
            .Top = Target.Top
            .Height = Target.Height
        Else
            .Visible = False
        End If
    End With
End Sub

xbq

谢谢LZ，学习学习。

z1970t

谢谢楼主，我想在其中几个单元格中设置日期控件，而不是整列或者整行，行吗。如附件中的B5-B9,C5-C9单元格。

tjx77

控件和窗体有何区别,我是菜鸟,大家见笑了

hejiatong

有没有在单独单元格输入日期的示例呢，我找了好久都没有找到。在一张表里的一个单元格输入日期，其它单元格不能输入的那种

随心而动

原帖由 hejiatong 于 2009-6-18 23:02 发表
有没有在单独单元格输入日期的示例呢，我找了好久都没有找到。在一张表里的一个单元格输入日期，其它单元格不能输入的那种

Private Sub DTPicker1_Change()
          Sheet1.Cells(1, 1) = CStr(DTPicker1)
  End Sub
   Private Sub DTPicker1_Click()
          Sheet1.Cells(1, 1) = CStr(DTPicker1)
  End Sub
(1, 1) 内修改为自己想要的行列号

孤独裘剑

偶滴也没看到，需要安装

随心而动

原帖由 孤独裘剑 于 2009-6-28 22:42 发表
偶滴也没看到，需要安装

下载安装即可
http://club.excelhome.net/thread-422798-1-1.html