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

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

このとき、ユーザーフォームの表示位置をあるセル（例えば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 回答日時： 2010/03/17 13:35

>セル（例えば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

この回答へのお礼

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

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

感謝の一言につきます。

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

感謝しております。

お礼日時：2010/03/17 14:02

No.1 回答者： moon00 回答日時： 2010/03/17 13:23

フォーム表示の前に、下記のように行番号・列番号を

指定して表示をスクロールさせるというのはどうでしょう？

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

この回答へのお礼

ありがとうございます。

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

たすかりました。

お礼日時：2010/03/17 14:01