[已解决]请高手帮改下代码，实现E2单元输入日期

cyb412204170

请高手帮改下代码，实现只选择E2单元格时显示日期控件，并输入日期，详见附件，谢谢！


e2输入日期.rar (13.3 KB, 下载次数: 20)

2012-6-30 11:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-6-30 11:25

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     With Me.DTPicker1
   
3.         If Target.Address = "$E$2" Then
   
4.             .Visible = True
   
5.             .Top = Selection.Top
   
6.             .Left = Selection.Left
   
7.             .Height = Selection.Height
   
8.             .Width = Selection.Width
   
9.             If Target <> "" Then
   
10.                 .Value = Target.Value
    
11.             Else
    
12.                 .Value = Date
    
13.             End If
    
14.         Else
    
15.             .Visible = False
    
16.         End If
    
17.     End With
    
18. End Sub
    
19. Private Sub DTPicker1_CloseUp()
    
20.     ActiveCell.Value = Me.DTPicker1.Value
    
21.     Me.DTPicker1.Visible = False
    
22. End Sub

复制代码

跳转到最佳答案楼层

cyb412204170

在线等待            

hrpotter

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     With Me.DTPicker1
   
3.         If Target.Address = "$E$2" Then
   
4.             .Visible = True
   
5.             .Top = Selection.Top
   
6.             .Left = Selection.Left
   
7.             .Height = Selection.Height
   
8.             .Width = Selection.Width
   
9.             If Target <> "" Then
   
10.                 .Value = Target.Value
    
11.             Else
    
12.                 .Value = Date
    
13.             End If
    
14.         Else
    
15.             .Visible = False
    
16.         End If
    
17.     End With
    
18. End Sub
    
19. Private Sub DTPicker1_CloseUp()
    
20.     ActiveCell.Value = Me.DTPicker1.Value
    
21.     Me.DTPicker1.Visible = False
    
22. End Sub

复制代码

cyb412204170

奇怪，显示方法和成员未找到

cyb412204170

hrpotter 发表于 2012-6-30 11:25

奇怪，显示方法和成员未找到

cyb412204170

cyb412204170 发表于 2012-6-30 11:44
奇怪，显示方法和成员未找到

不好意思，小女子一时心急，忘了插入日历控件了，谢谢！