如何缩小日历控件与日期输入单元格之间的距离

来源：百度知道 编辑：UC知道 时间：2024/09/23 06:01:47
我做了一个EXCEL表格，在多列添加了日历控件，但在每次选择日期时，日历控件与要输入日期的单元格之间的距离太远，即：要输入日期的单元格在表格的最左侧，而日历控件在表格的最右侧，甚至超出屏幕边缘，使用极为不便。请高手指点。非常感谢！
刚发现一个现象，日历控件本来位置挺合适的，但只要把要输入日期单元格左侧的任一单元格横向拉长，既出现此问题。实在搞不懂。

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) '点击日期控件后，把日期填充在。。。
ActiveCell = MonthView1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row = 5 Then ''点击e列5行单元格弹出日期控件
MonthView1.Visible = True
MonthView1.Top = Range("a1", ActiveCell).Height '应该与这两句有关系
MonthView1.Left = Range("a1", ActiveCell).Width '应该与这两句有关系
Else
MonthView1.Visible = False
End If
End Sub
'这个用的是monthview control, version 6.0控件
'还有一个是DTPicker1控件，在类似一个下拉列表里填充日期，日期不能清空

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) '点击日期控件后，把日期填充到单元格
ActiveCell = MonthView1.Value
MonthView1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '点击A列单元格弹出日期控件

If Target.Column >= 1 And Target.Row >= 1 Then
MonthView1.Visible = True
MonthView1.To