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

佛山小老鼠

2010不行，原因我也找不到，我在10楼已经提到了，至于2007和2010差不多吧

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

opel-wong

用15楼的代码测试了下,在第5行,第6行,可以弹出日期选框,也能选择.

CTFuture

楼主，您好，你的代码没错，可能是的电脑中缺少日历控件11.0或12.0，只要注册期中一个就行了，控件名是：MSCAL.OCX （2003版用的是DTP控件，控件名为：
MSCOMCT2.OCX，两种控件的代码有差异），论坛里好象没有，我上传一个，复制这个控件到 C:\WINDOWS\system32 文件夹下，在运行里输入：regsvr32 mscal.ocx 回车即可完成注册，完成后即可正常应用表格了。
MSCAL.zip (50.39 KB, 下载次数: 464)

2011-6-24 01:41 上传

点击文件名下载附件

ctp_119

原帖由 CTFuture 于 2011-6-24 01:41 发表
楼主，您好，你的代码没错，可能是的电脑中缺少日历控件11.0或12.0，只要注册期中一个就行了，控件名是：MSCAL.OCX （2003版用的是DTP控件，控件名为：
MSCOMCT2.OCX，两种控件的代码有差异），论坛里好象没有，我上 ...

你说的非常对，就是这个问题，很多ghost系统都没有相关的控件或.DLL文件。

nick1026

真实用，真是高手如云啊，佩服

佛山小老鼠

2007和2010这个控件不生效，控件是出现在单元格里，但就是你选择了日期，当你把光标定位的别的单元格时，输入没有生效。这个问题很纠结...

CTFuture

原帖由 佛山小老鼠 于 2011-6-24 11:57 发表
2007和2010这个控件不生效，控件是出现在单元格里，但就是你选择了日期，当你把光标定位的别的单元格时，输入没有生效。这个问题很纠结...

我安装是2010，没发现你说的这种情况：


以下是楼主的代码：


[ 本帖最后由 CTFuture 于 2011-6-25 00:38 编辑 ]

CTFuture

补充一点，你在 .Left = Target.Left 句中，加上Offet 属性（.Left = Target.Offset(0, 1).Left）会好点，这样要输入日期的单元格不会被弹出的日历选择窗口所挡住。不过以下这段代码似乎比你那段来得更简洁点：

1. Private Sub Calendar1_Click()
   
2.     ActiveCell = Calendar1.Value
   
3.     Calendar1.Visible = False
   
4.     ActiveCell.Offset(0, 1).Select
   
5. End Sub
   
6. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
7.     If Target.Column = 2 Then
   
8.         Calendar1.Visible = True
   
9.         Calendar1.Left = Target.Offset(0, 1).Left
   
10.         Calendar1.Top = Target.Top
    
11.     Else
    
12.         Calendar1.Visible = False
    
13.     End If
    
14. End Sub
    

复制代码

ctp_119

现在很多人安装的都是KMS版的office 2010，一安装起来，原来可以运行的listivew，slider，progressbar控件都没有用，一打开带有这些控件的工作簿，就报无法加载……真是郁闷。。。。不知道为什么？

rbq555

原帖由 佛山小老鼠 于 2011-6-23 18:41 发表
这是第5行和6行出现控件日期Option Explicit
Private Sub DTPicker1_Change()
    ActiveCell.Value = DTPicker1.Value
    DTPicker1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal T ...

请教各位老师：
我有很多不连续的指定的日期单元格，哪怎么修改代码呢？希望得到你们的帮助，谢谢！

[ 本帖最后由 rbq555 于 2011-6-30 09:00 编辑 ]