Userform запуск разработки
Вопрос
Я сделал хороший календарь в Excel и протестировал позицию пользователя с:
.Top = Application.Top + 125
.Left = Application.Left + 125
Это отлично работает, однако, что я действительно хочу, чтобы выбрать форму прямо рядом с активной ячейкой.
Что я пытался ниже, не работает, и я не уверен, почему.Я хочу, чтобы верхний левый угол формы прикоснуться к верхней справа от активной ячейки, однако форма в конечном итоге охватывает активную ячейку
.Top = ActiveCell.Top
.Left = ActiveCell.Left + ActiveCell.Width
Любые предложения?
Решение
Это работает для меня, как вы ожидаете:
.Top = ActiveCell.Top + ActiveCell.Height / 2 + .Height
.Left = ActiveCell.Left + ActiveCell.Width * 1.5
. Другие советы
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
.
не так уж плохо ...
Не связан с StackOverflow