ユーザーフォームの開始位置

StackOverflow https://stackoverflow.com//questions/22081959

  •  24-12-2019
  •  | 
  •  

質問

私はexcelで素敵なカレンダーをポップアップし、UserFormの位置をテストしました:

.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

あまりにも悪くはありません。..

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top