シートを選択するマクロ

質問

いつもお世話になってます。

マクロ初心者です。
製作工程の仕様書のテンプレートを作成しているところです。
各項目に「有・無」とチェックボックスがあり、「有」を選択すると該当のシートに飛ぶようにしたいです。
（例えば、写真撮影を有にすると写真撮影の要領書のシートにとぶ…みたいな）

Private Sub チェックボックス_Click()
Sub ワークシートを選択()
Worksheets("Sheet2").Select
End Sub

上記のようなのを入れてみましたが上手くいきません。
どのようにすれば出来るでしょうか？
教えて下さい。よろしくお願いします。

回答No.6

imogasi

直接ワークシートＳｈｅｅｔ１にチェックボックスを貼り付けている場合　Ｓｈｅｅｔ３に飛ぶ場合
Private Sub CheckBox1_Click()
If Worksheets("Sheet1").CheckBox1.Value = True Then
Worksheets("sheet3").Select
Worksheets("Sheet3").Range("A1").Activate
End If
End Sub

回答No.5

hotosys

えーと、ANo.1さんが言ってますが、そもそも文法的にエラーでは？
>Private Sub チェックボックス_Click()
>Sub ワークシートを選択() '<-これいらない
>Worksheets("Sheet2").Select
>End Sub

または、チェックボックス_Clickからワークシートを選択を呼ぶ。
Private Sub チェックボックス_Click()
ワークシートを選択
End Sub
Sub ワークシートを選択()
Worksheets("Sheet2").Select
End Sub

回答No.4

mt2008

文章だけのコミュニケーションですのでbunmarinesさんのスキルが良くわからず、失礼かもしれませんが、チェックボックスのオブジェクト名をデフォルトから変更するぐらいの人がこの程度で悩むとは思えません……。
本当の初心者で「こんな感じで大丈夫じゃないか」と、ただコードを書いてみただけでしょうか？

もし、そうでしたら、まずはマクロの記録で色々操作をして、出来上がったマクロを見ながら研究してみてください。
ちなみに、チェックボックスのクリックで別シートに飛ぶ仕様ですと、チェックを外そうとクリックしても別シートに跳ぶことになります。
この場合、チェックボックスではなくボタンの方が適していると思いますが如何ですか？

回答No.3

n-jun

>各項目に「有・無」とチェックボックスがあり
どの「項目」のチェックボックス（「有」の方）がチェックされたのかを取得していないからでしょう。
って思いました。

たぶんフォームかコントロールツールボックスであり、ユーザーフォームではないように見受けられましたが。
違ってたらスル～して下さい。

回答No.2

000200b

はじめまして。
情報が少ないので、なんともいえませんが、
その選択したいシート自体の名前(シートタブの名前)は「sheet2」ですか？

たぶんこの形式で書くと、シート名を指定する方法なので、
正しい名前じゃないと選択できないと思います。

何番目のシートというようにやりたい場合は、
Worksheets(2).Select
という書き方です。

参考になるかわかりませんが、いつも見ているサイトです。
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page2.htm
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_menu.htm

参考URL：

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_menu.htm

回答No.1

merlionXX

Private Sub チェックボックス_Click()
Worksheets("Sheet2").Select
End Sub
では？