コマンドボタンを押すと、ユーザーフォームが表示されるマクロを組んでおり

質問

コマンドボタンを押すと、ユーザーフォームが表示されるマクロを組んでおります。

このとき、ユーザーフォームの表示位置をあるセル（例えばE12）の隣にしたいのですが、

下記のマクロでは、画面をスクロールした場合に対応できません。

恐れ入りますが、ご教示いただけるとたすかります。。

Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Top = Application.Top + 180
Me.Left = Application.Left + 100

Me.Height = 80
Me.Width = 100
End Sub

投稿日時 - 2010-03-11 10:09:05

回答No.2

watabe007 · ベストアンサー

>セル（例えばE12）の隣にしたいのですが
Private Sub UserForm_Initialize()
　　With Me
　　　　.StartUpPosition = 0
　　　　.Left = ActiveWindow.PointsToScreenPixelsX((Range("E12").Left) * 96 / 72) * (ActiveWindow.Zoom / 100) * 72 / 96
　　　　.Top = ActiveWindow.PointsToScreenPixelsY(Range("E12").Top * 96 / 72) * (ActiveWindow.Zoom / 100) * 72 / 96
　　　　.Height = 80
　　　　.Width = 100
　　End With
End Sub

お礼

本当にありがとうございます。

希望したことを、正確に行うことができました。

感謝の一言につきます。

その上、具体的にマクロをご提示いただき、大変たすかりました。

感謝しております。

回答No.1

moon00

フォーム表示の前に、下記のように行番号・列番号を
指定して表示をスクロールさせるというのはどうでしょう？

ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollColumn = 5
↑これで、E12を左端とした表示になります。

お礼

ありがとうございます。

なるほど、面白いアプローチです。

たすかりました。