If (Target.Row >= 4 And Target.Row <= 100) And Target.Column = 3 Then
With DTPicker1
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Rows.Width
.Height = Target.Height
End With
Else
DTPicker1.Visible = False
End If
2、在dtpicker1的closeup事件中對單元格賦值。