我创建了一个启用宏的Excel文件,当点击特定单元格时,会出现一个弹出日历。它是一个ActiveX控件(Microsoft日期和时间选择器控件6.0(SP4))。日历控件有时会出现在单击的单元格旁边,并且无法点击,并且工作表的左上角会出现一个重复的控件,这个控件可以单击。
我希望它出现在点击的单元格旁边。可能有什么不对?
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“;”“)”
答案 0 :(得分:0)
刚才我尝试将复选框(在日历属性中)更改为 True。然后当我回去时,重复的那个不见了。将其改回 False 并没有返回。