UserForm StartUpPosition

时间:2014-02-27 22:28:27

标签: excel-vba vba excel

我在excel中弹出了一个漂亮的日历,并用以下方法测试了UserForm的位置:

.Top = Application.Top + 125 .Left = Application.Left + 125

这非常有用,但我真正想要的是在活动单元格旁边弹出表单。

我在下面尝试的是不起作用,我不知道为什么。我希望表单的左上角触及活动单元格的右上角,但是表单最终会覆盖活动单元格

.Top = ActiveCell.Top .Left = ActiveCell.Left + ActiveCell.Width

任何建议?

2 个答案:

答案 0 :(得分:2)

这对我有用,如你所愿:

    .Top = ActiveCell.Top + ActiveCell.Height / 2 + .Height
    .Left = ActiveCell.Left + ActiveCell.Width * 1.5

答案 1 :(得分:0)

If Application.Version = "11.0" Then
Me.Top = Application.Top + [b7].Top + 70 - Windows(1).VisibleRange.Top
Else
Me.Top = Application.Top + [b7].Top - 4 +  (Application.CommandBars.Item("Ribbon").Height * 0.75) - Windows(1).VisibleRange.Top
End If
Me.Left = Application.Left + [b7].Left + 90 - Windows(1).VisibleRange.Left

还不错......