表題 コマンドボタンを押し自分自身のオブジェクト名を取得したいと考えております。
下記、コードにて試したところエラー2023が表示され所望の動作が確認できません。どなたかお分かりの方がいらっしゃいましたらご教授いただければ幸いです。
Private Sub CommandButton1_Click()
Select Case TypeName(Application.Caller)
Case "Range"
v = Application.Caller.Address
Case "String"
v = Application.Caller
Case "Error"
v = "エラー"
Case Else
v = "不明です"
End Select
MsgBox "Visual Basic を呼び出した方法 = " & v
End sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
コントロールツールボックスのコマンドボタンでなくて、シェープやグラフなんかだとできるんですが・・・
こんなのではダメでしょうか?
標準モジュールにコピーしてください。(少なくてもSub testは標準モジュールに)
'ボタンを作る
Sub sample()
Dim i As Integer
For i = 1 To 10
With ActiveSheet.Buttons.Add(0, (i - 1) * 20, 50, 20)
.Name = "button " & i
.Caption = "ボタン" & i
.OnAction = "test"
End With
Next
End Sub
'ボタンが押された時
Sub test()
MsgBox Application.Caller
End Sub
p.s.
sampleは、何度も実行すると同じ名前のボタンを作るので注意してください。
ボタンでなくても、グラフを選択(クリック)したら・・・とかもできるみたいです。
No.2
- 回答日時:
イベントプロシージャの名前がそれなんですが、ボタンが複数あれば
それぞれにClickイベントが作られるので、各プロシージャで定数を
セットするしかないようです。
押されたコマンドボタンのオブジェクト名を引数にして関数を動作させたいと考えておりましのでこのような動作はExcel VBAでは解はなさそうな状況でしょうか。(複数のコマンドボタン内部
のプログラムをコピーペーストで使いまわせればと考えておりました。)
取り急ぎ、愚直にベタプログラムで作業を進めたいと思います。
ご回答有難うございました。
No.1
- 回答日時:
>自分自身のオブジェクト
これって何を指してるんですか?
Excelのヘルプで「Callerプロパティ」を調べました?
ヘルプには、このタイプのイベントでは「エラーが返る」と書いてあるはず。
早速のご回答有難うございます。
Callerプロパティを確認したところエラーが返ること確認させていただきました。
ちなみに、所望の動作とは
CommandButton1をクリックして、このオブジェクト名を取得したいと考えています。
つきまして、期待値は"CommandButton1"ですが
他手法にて上記を実現できる方法はあるでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 先ほど、回答者様によって教えていただいたのですがどうしたらいいか分かりません。 ユーザーフォーム上に 2 2023/02/21 22:25
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) Excelのマクロについて教えてください。 3 2022/06/30 09:36
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- C言語・C++・C# C++のcase文の書き方 4 2023/02/24 20:50
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
押したボタンの位置取得(共通のマクロ)
Excel(エクセル)
-
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
5
VBA ExecuteExcel4Macro 型が一致しません
Excel(エクセル)
-
6
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
7
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
8
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
9
Excel VBA ワークシートに貼られたボタン名(Caption)をセルの値から取得するには
その他(プログラミング・Web制作)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
12
ExcelVBA 図形をクリックした際のイベントを拾うには
Visual Basic(VBA)
-
13
エクセルVBAでApllication.Caller
Excel(エクセル)
-
14
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
15
ListViewで、非表示列って作れますか?
Visual Basic(VBA)
-
16
Excel VBAのApplication.ExecuteExcel4Macro
Access(アクセス)
-
17
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
-
18
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
19
エクセルのコマンドボタンの位置をVBAで指定できませんか?
Excel(エクセル)
-
20
「Cancel = True」とはどういう意味でし
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
VBAでオプションボタンによって...
-
ユーザーフォームに別シートか...
-
フォームの再読み込み
-
他のアプリケーションとの連携
-
ユーザーフォーム中の入力順番...
-
ボタン
-
Access VBA でデータペーストを...
-
VBA CommandButtonの文字ずれ
-
[Excel VBA]コマンドボタンの入...
-
ボタン上にビットマップ、アイ...
-
VBS でユーザーからいくつかの...
-
ボタンの表示変更方法
-
バックスペース機能の作り方
-
コマンドボタンの文字色
-
VC++ 2005 MFC ボタンの無効化
-
セルをマクロのボタンにしたい。
-
アクセスのフォームで入力日を...
-
SPREADコマンドボタン発生イベ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
フォームの再読み込み
-
セルをマクロのボタンにしたい。
-
Excel VBA Application.caller...
-
コマンドボタンやイメージにマ...
-
プロシージャからイベントをコ...
-
Access VBA でデータペーストを...
-
VBAのボタンの位置が変わって困...
-
閉じると「+」になり開くと「-...
-
[Excel VBA]コマンドボタンの入...
-
ASP.Net ラベルの内容をすぐに...
-
Excel マクロ 閉じるボタン
-
ボタン
-
CommandButtonのCaptionを変化...
-
VB.NETでマウスクリックイベン...
-
ボタンの枠線の様なものを消したい
-
C#で動的に作ったtextboxを消す。
おすすめ情報