Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12808 / 76807

←次へ　｜　前へ→


	【69514】Re:コマンドボタンから各シートへ

ichinose - 11/7/26(火) 21:11 -


	引用なし

	パスワード

>>Sheets("No.1 ").Selectとういマクロが各ボタンに登録してあるだけなのです。
>シート数が増えるとそれだけ同じようなマクロが並ぶだけなので、スマートにしたいと思っています。
そのためにApplication.Callerというプロパティをご紹介しました。

>>Sub btnclick()
>>　　If TypeName(Application.Caller) = "String" Then
>>　　　 MsgBox Application.Caller
>>　　　 MsgBox ActiveSheet.Buttons(Application.Caller).Caption & "が押された"
>>　　End If
>>end sub

>まずNo.1のボタンに登録してやってみましたが、
>No.1が押されました　で停止してしまいました。
>ほとほと困ってます。

提示したコードは、Application.Caller使えば、どのボタンが押されたのか
知ることが出来ますよ　という例として提示したものであり、
そのままご希望の仕様になっているコードではありません。
最近は、そういうコードは極力投稿しないようにしています。

前回投稿でも
>それぞれのボタンの全てに上記のbtnclickを登録して試してみてください。

複数のボタンに上記のマクロを登録し、表示内容の違いを考察してください。
その違いは、何が原因なのか　が理解できれば方法は見えてきます。

2 hits

▼

【69506】コマンドボタンから各シートへ がんば 11/7/25(月) 14:56