| |
こんにちは。
>たぶん初歩のVBAかもしれませんが、ぜひ覚えたいのでご教示お願いいたします。
>一つのファイルにシート数が11枚あります。
>一番最初のファイルが目次。２番目からはNo.1〜No.11までの名前がつけてあります。
ということは、シートは、１１枚ではなく、１２枚ですよね！！
>目次のシートにはコマンドボタンが11個（No.1〜No.11）作ってあり、一つのボタンをクリックするとそれぞれのシートに飛ぶようにマクロが記入してあります。
出来ているコードの提示は、必須条件だと考えてください。
>これをボタンを押して目的のファイルに飛ぶのは同じですが、一つのマクロにしたいのですが････
ボタンは、何を使っていますか？
１ Excelコントロール（コマンドバー フォームの ボタン）ですか？
２ それともActiveXControl（コマンドバーコントロールツールボックスのコマンドボタン）ですか？
シートに貼り付けるボタンなら、１のボタンにしてください。
この場合、コードは標準モジュールに記述します。
Sub btnclick()
If TypeName(Application.Caller) = "String" Then
MsgBox Application.Caller
MsgBox ActiveSheet.Buttons(Application.Caller).Caption & "が押された"
End If
end sub
それぞれのボタンの全てに上記のbtnclickを登録して試してみてください。
|
|
ichinose
- 11/7/25(月) 17:27 -
