Excel VBA 質問スレッド №2021 (解決済)

コマンドボタンを右クリックしたい

投稿者 : an. 投稿日時 : 2024/10/08(Tue) 14:01:48 OS : 未指定 EXCEL : 未指定

Aのエクセルシート上にコマンドボタンが100個以上配置されています。
Bのシートのコマンドボタンを押すと、Aのシートのコマンドボタンの上にマウスカーソルを合わせたいです。

考えたのが、コマンドボタンを右クリックする方法です。(左クリックすると押されてしまう)
他の方法でもいいので、指定したコマンドボタンの上にマウスカーソルを移動させたいです。

Worksheets("Aのシート").室内機00103.Value = True

[返信 1] Re : コマンドボタンを右クリックしたい

投稿者 : higeru 投稿日時 : 2024/10/08(Tue) 15:49:37

> Aのエクセルシート上にコマンドボタンが100個以上配置されています

　その100個のボタンは、まったく異なる処理を実行するためのものなのですか？？

> Bのシートのコマンドボタンを押すと

　Bのコマンドボタンは1個？？

> 指定したコマンドボタンの上にマウスカーソルを移動させたい

　そもそもコマンドボタン（フォームコントロールだろうがActiveXだろうが）を右クリックでなんてのが無理ですし、ましてやマウスカーソルをなんて考えるだけ無駄です。

　仮に（瞬間的に）できたとして、その後何をしたいのですか？　それが分からなくては「他の方法」も何もないです。

[返信 2] Re : コマンドボタンを右クリックしたい

投稿者 : チョベリバ投稿日時 : 2024/10/09(Wed) 14:04:38

>指定したコマンドボタンの上にマウスカーソルを移動させたいです。

よくわかんないけど

Worksheets("Aのシート").OLEObjects("室内機00103").Activate

[返信 3] Re : コマンドボタンを右クリックしたい

投稿者 : an. 投稿日時 : 2024/10/10(Thu) 09:00:24

■[返信 2] チョベリバさん（2024-10-09 14:04:38）の記事
＞ >指定したコマンドボタンの上にマウスカーソルを移動させたいです。
＞
＞よくわかんないけど
＞
＞ Worksheets("Aのシート").OLEObjects("室内機00103").Activate

うおおおおおおおおおおおおおおおお
有難うございます。
目的のボタンに目印が現れたので、どのボタンか分かるようになりました。

[返信 4] Re : コマンドボタンを右クリックしたい

投稿者 : チョベリバ投稿日時 : 2024/10/10(Thu) 20:05:04

おまけ

adr = Worksheets("Sheet3").OLEObjects("CommandButton4").TopLeftCell.Address(External:=True)
Application.Goto Range(adr)

当掲示板について

Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
記事内ではHTMLのタグは使用できません。
記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。

返信入力フォーム

( 処理日時 : 2025-07-05 17:22:54 )