[已解决]请大家把文件A中的日历，加到文件二中，好不

yjwdjfqb

hwc2ycy 发表于 2013-7-5 20:58
我这能打开了，要不你自己添加下控件试试。

老师，你好，这个控件怎么添加呀，给我讲解下好吧，谢谢老师

hwc2ycy

hwc2ycy

你看看你自己能不能画一个，能画的画，就好办了。

yjwdjfqb

hwc2ycy 发表于 2013-7-5 21:26
你看看你自己能不能画一个，能画的画，就好办了。

老师，你知道了，要在工作表中，画一个框出来，但老师录的动画太快了，


具体是那个控件，我没有看清楚，

老师，把控件的全名，给我截个图好吧，谢谢了！！！

hwc2ycy

yjwdjfqb

hwc2ycy 发表于 2013-7-5 21:40

文件二2.rar (27.67 KB, 下载次数: 3)

2013-7-5 21:59 上传

点击文件名下载附件

老师你好，现在可以了，但不能输入到指定单元格

如果加上你给我写的代码，会出错，所以，我把代码删除了，才能弹出日历


麻烦老师，再帮帮我，把代码修正下好吧

hwc2ycy

1. Private Sub DTPicker1_Change()
   
2.     With Me.DTPicker1
   
3.         ActiveCell = .Value   '当前单元格显示日历控件的值
   
4.         .Visible = False
   
5.     End With
   
6. End Sub
   
7. 
   
8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
9.     If Target.Address(False, False) Like "[FH]3" And Target.Count = 1 Then
   
10.         With Me.DTPicker1
    
11.             .Left = Target.Left
    
12.             .Top = Target.Offset(1).Top
    
13.             .Visible = True
    
14.         End With
    
15.     Else
    
16.         Me.DTPicker1.Visible = False
    
17.     End If
    
18. End Sub

复制代码

你把代码放在工作表 日期查询 模块中。

你传上来的，原有的DTPPICK21都没有了，代码模块中下拉列表中找不到对象。

hwc2ycy

文件二2.rar (28.42 KB, 下载次数: 2)

2013-7-5 22:34 上传

点击文件名下载附件

你看看这个文件行不

yjwdjfqb

hwc2ycy 发表于 2013-7-5 22:34
你看看这个文件行不

谢谢老师，不厌其烦的解答，现在可以了，


我想把

这句If Target.Address(False, False) Like "[FH]3" And Target.Count = 1 Then
        
        
    改成If (Not Intersect(Target, Range("F3,H3")) Is Nothing) And Target.Count = 1 Then

其它地方还要改吗老师!

hwc2ycy

yjwdjfqb 发表于 2013-7-5 22:48
谢谢老师，不厌其烦的解答，现在可以了，

你直接改看效果就成了。如果效果达到了就不用改了。