双击某个单元格，弹出日历，选择日期

hear_rain

好像这个控件在2010中是没的？

cnwall

留个足印，谢谢

xuweibeibei

非常感谢您这么晚了还在帮我弄！真的太谢谢了！但是如果我要在第五行和第六行每例都有显示改怎么办？

zh2783458

请在E列和F列中单击单元格

佛山小老鼠

这是第5行和6行出现控件日期

1. Option Explicit
   
2. Private Sub DTPicker1_Change()
   
3.     ActiveCell.Value = DTPicker1.Value
   
4.     DTPicker1.Visible = False
   
5. End Sub
   
6. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
7.     With Me.DTPicker1
   
8.         If Target.Row = 5 Or Target.Row = 6 And Target.Count = 1 Then
   
9.             .Visible = True
   
10.             .Width = Target.Width + 15
    
11.             .Left = Target.Left
    
12.             .Top = Target.Top
    
13.             .Height = Target.Height
    
14.         Else
    
15.             .Visible = False
    
16.         End If
    
17.     End With
    
18. End Sub
    

复制代码

[ 本帖最后由 佛山小老鼠 于 2011-6-23 18:42 编辑 ]

blackttea1

留个足印，谢谢

boation

原帖由 佛山小老鼠 于 2011-6-23 00:52 发表
呵呵，终于搞定了，请楼主验证，效果在附件里

我用在2003中，好像还是不行

wgw628

一直在找的东西，很好。。。。。。。。。。。。

佛山小老鼠

原帖由 boation 于 2011-6-23 18:52 发表


我用在2003中，好像还是不行

呵呵，这个我没有说清楚，先要下载附件，复制附件里的MSCOMCT2.OCX到C:\WINDOWS\system32那个文件夹里，然后开始菜单，运下，运行一下语句regsvr32 MSCOMCT2.OCX，注册成功后即可

xl6403

原帖由 佛山小老鼠 于 2011-6-23 00:52 发表
呵呵，终于搞定了，请楼主验证，效果在附件里

我下载附件，试验的结果还是不能运行。出现对话框提示“编译错误：方法和数据成员未找到”。我用的是07版。
另外，今晚我的电脑不能上传照片附件（用了几种EH支持的格式都不行，很是郁闷）