Excel显示重复的日历选择器控件(宏VBA)

时间:2018-02-28 09:31:53

标签: excel vba excel-vba datepicker activex

我创建了一个启用宏的Excel文件,当点击特定单元格时,会出现一个弹出日历。它是一个ActiveX控件(Microsoft日期和时间选择器控件6.0(SP4))。日历控件有时会出现在单击的单元格旁边,并且无法点击,并且工作表的左上角会出现一个重复的控件,这个控件可以单击。

duplicate controls appear

我希望它出现在点击的单元格旁边。可能有什么不对?

Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Sheet1.startPicker
        If Not Intersect(Target, Range("E2:E10000")) Is Nothing Then
            .Visible = True
            .Top = Target.Top
            .Right = Target.Offset(0, 1).Right
        Else
            .Visible = False
        End If
    End With
End Sub
Private Sub startPicker_Change()
    ActiveCell.Value = Me.startPicker.Value
End Sub

当我在设计模式中点击日期选择器控件时,名称设置为startpicker,在公式栏中显示“= EMBED(”MSComCtl2.DTPicker.1“;”“)”

1 个答案:

答案 0 :(得分:0)

刚才我尝试将复选框(在日历属性中)更改为 True。然后当我回去时,重复的那个不见了。将其改回 False 并没有返回。