
コマンドボタンを押すと、ユーザーフォームが表示されるマクロを組んでおります。
このとき、ユーザーフォームの表示位置をあるセル(例えば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ベストアンサー
- 回答日時:
>セル(例えば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
本当にありがとうございます。
希望したことを、正確に行うことができました。
感謝の一言につきます。
その上、具体的にマクロをご提示いただき、大変たすかりました。
感謝しております。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのComboboxでマウスのスク...
-
スクロールバーをVBAで操作したい
-
エクセルで、抽出したデータだ...
-
前のレコードの値を自動で入れたい
-
X-Ripperというフリーウェアに...
-
Access サブフォームでの選択行...
-
ACCESSのクエリー抽出条件にIIF...
-
AccessのWHERE句において、変数...
-
初心者です。accessで請求書を...
-
access クエリ yes/no型のクエ...
-
ACCESSでVBAから選択クエリの抽...
-
Accessでデータを更新したらそ...
-
access サブフォームにリストを...
-
Accessフォーム上の値を条件と...
-
Accessでフィルタの実行アクシ...
-
access vbaのコンパイルエラー...
-
Access チェックボックスを利用...
-
【エクセルVBA】 A1セルを参照...
-
ACCESS:フォームの全項目入力...
-
サブフォームでのダブルクリッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのComboboxでマウスのスク...
-
スクロールバーをVBAで操作したい
-
Access2000 フォーム表示位置が...
-
ACCESS フォームのサイズ調整
-
実行エラー'424' ????
-
マクロボタンが勝手に飛び回る
-
エクセルのVBAでマクロ実行...
-
エクセル上に画像を貼り付けて...
-
EXCEL VBA フォームクローズと...
-
Accessのマクロについて質問です。
-
アクセスのカレンダーコントロ...
-
Accessのサブフォームを検索
-
ワークシート上に検索用のボッ...
-
マクロを含んだexcelブックの保...
-
Exitイベントから自分自身のコ...
-
コマンドボタンを押すと、ユー...
-
ACCESSアクションマクロでイン...
-
エクセル2000のオプションボッ...
-
ACCESS(アクセス) マクロを使...
-
accessのメニュー画面について...
おすすめ情報