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

故我在 · 发表于 2009-6-2 21:54

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

乐少 · 发表于 2009-6-8 17:42

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

wwq7356315 · 发表于 2009-6-8 19:59

原帖由 随心而动 于 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 · 发表于 2009-6-9 09:56

谢谢LZ，学习学习。

z1970t · 发表于 2009-6-9 17:59

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

tjx77 · 发表于 2009-6-13 16:52

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

hejiatong · 发表于 2009-6-18 23:02

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

随心而动 · 发表于 2009-6-18 23:07

原帖由 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

偶滴也没看到，需要安装

随心而动 · 发表于 2009-6-28 23:44

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

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

		自动登录	找回密码
密码			免费注册