日期下拉选择求助，第一个出来了。后面2个出不来。

fanghoufu

在一个表格里面，有建立日期，计划出货日期，实际出货日期，三项，我想设计成下拉点选的方式，每次输入烦。第一项出来了。后面2项不行。请教怎么弄发。谢谢

fanghoufu

在线等答案。谢谢

3x3eyes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.DTPicker1
        Select Case Target.Column
        Case 2, 6, 11
        If Target.Count = 1 Then
            .Visible = True
            .Width = Target.Width + 15
            .Left = Target.Left
            .Top = Target.Top
            .Height = Target.Height
        End If
        Case Else
            .Visible = False
        End Select
        
    End With
End Sub

fanghoufu

楼上，现在是有3列了。但是选择以后，不显示呢。那里的问题

fanghoufu

请看我的附件。不显示。哪里问题

3x3eyes

Private Sub DTPicker1_CloseUp()
On Error Resume Next
Application.EnableEvents = False
ActiveCell.Value = Me.DTPicker1.Value
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.DTPicker1
        Select Case Target.Column
        Case 2, 6, 11
        If Target.Count = 1 Then
            .Visible = True
            .Width = Target.Width + 15
            .Left = Target.Left
            .Top = Target.Top
            .Height = Target.Height
        End If
        Case Else
            .Visible = False
        End Select
        
    End With
End Sub


但是这个代码仅仅只能用，比如你把日期控件调出来后按esc，好像就出问题了……