[已解决]日期控件显示问题

hwc2ycy

xyc680321 发表于 2014-2-16 12:01
按这样修改，所有的单元格都能激活日期控件了

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count = 1 Then
   
3.         Application.EnableEvents = False
   
4.         If Target.Column = 2 And Target.Row > 2 And Target.Row < 4 Then
   
5.             With Me.DTPicker1
   
6.                 .Visible = True
   
7.                 '调整DTP控件的位置，使其显示在当前单元格之中
   
8.                 .Top = Target.Top
   
9.                 .Left = Target.Left
   
10.                 If Target <> "" Then
    
11.                     '如果当前单元格已有内容，则设置DTP控件初始值为当前单元格日期，否则为系统当前日期
    
12.                     .Value = Target.Value
    
13.                 Else
    
14.                     .Value = Date
    
15.                 End If
    
16.             End With
    
17.         Else
    
18.             Me.DTPicker1.Visible = False
    
19.         End If
    
20. 
    
21.     Else
    
22.         Me.DTPicker1.Visible = False
    
23.     End If
    
24.     Application.EnableEvents = True
    
25. End Sub

复制代码

xyc680321

hwc2ycy 发表于 2014-2-16 13:00

谢谢你！