[[20220325115803]]　『シート上のコマンドボタンにカーソルを合わせるvb』（yds）　ページの最後に飛ぶ

『シート上のコマンドボタンにカーソルを合わせるvba』（yds）

はじめまして。
以下の内容を教えて欲しいです。

ボタンというシートに
ActiveXコントロールで挿入したコマンドボタンがあります。

コマンドボタンを押すとユーザーフォームが開き
何点か処理を行い
最後にユーザーフォーム上でエンターキーを押すと
ユーザーフォームが閉じると言う流れです。

教えて欲しいのは
ユーザーフォームが閉じた後
ボタンというシートのコマンドボタンにカーソルを合わせるには
どういうvbaを書けばよろしいでしょうか？

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

＞ユーザーフォーム上でエンターキーを押すとユーザーフォームが閉じる
＞ボタンというシートのコマンドボタンにカーソルを合わせるには
意味不明

（VBA苦手） 2022/03/25(金) 14:32

失礼しました。
ボタンというシート上にある
コマンドボタンにマウスのカーソルを合わせるという意味です。
（yds） 2022/03/25(金) 14:52

＞コマンドボタンにマウスのカーソルを合わせるという意味です。
意味不明
（VBA苦手） 2022/03/25(金) 15:07

シートオブジェクトをアクティブにしてから、
シートオブジェクトのコマンドボタンオブジェクトをアクティブに
してみてください。
（tkit） 2022/03/25(金) 15:17

 'シートモジュール
Private Sub CommandButton1_Click()
GetCursorPos p
UserForm1.Show
End Sub

 'フォームモジュール
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
SetCursorPos p.x, p.y
End Sub

'標準モジュール
Public Type POINTAPI

 x As Long
 y As Long
End Type
Public p As POINTAPI
Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

（mm） 2022/03/25(金) 15:24

コメント返信：

[ 一覧(最新更新順) ]

[[20220325115803]] 『シート上のコマンドボタンにカーソルを合わせるvb』（yds） ページの最後に飛ぶ

[[20220325115803]]　『シート上のコマンドボタンにカーソルを合わせるvb』（yds）　ページの最後に飛ぶ