Userform запуск разработки

Question

Я сделал хороший календарь в Excel и протестировал позицию пользователя с:

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

Это отлично работает, однако, что я действительно хочу, чтобы выбрать форму прямо рядом с активной ячейкой.

Что я пытался ниже, не работает, и я не уверен, почему.Я хочу, чтобы верхний левый угол формы прикоснуться к верхней справа от активной ячейки, однако форма в конечном итоге охватывает активную ячейку

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

Любые предложения?

Answer 1

Это работает для меня, как вы ожидаете:

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

.

Answer 2

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

.

не так уж плохо ...