ベストアンサー

エクセル　VBA

2016/08/12 10:46

目次　→　情報（非表示中）→目次ボタン　→　目次に戻るをVBAのコード表示を教えて頂きできたのですが開いた情報　→　目次に戻る際に情報の項目が自動的に非表示にできません VBA初心者なのでコードがわからないですご迷惑ですがやりかたを教えて頂きたいのですが宜しくお願いします。

jikkenn
お礼率58% (181/310)

Excel（エクセル）
回答数5
ありがとう数6

みんなの回答 （5）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

imogasi
ベストアンサー率27% (4737/17069)

2016/08/13 13:24 回答No.5

#4です。無駄な気もするが、興味のある他の人も見ておれば役に立つかもと思って、上げてみる。ーーやり方として小生は、３つを思いついた。（１）ＨｙｐｅｒＬｉｎｋ利用法ー＞　初めの質問には、この方法を指定あり。すでに締め切り済み。（２）コマンドボタン利用法（３）シートのセル選択イベント利用法。ーー（３）でやってみる。ＶＢＡコードが一番少なそうなので。ただ応用したり不都合が出たときの対処法はＶＢＡの経験が必要で、誰でもできるわけではない。ーー例として、シートを４つ用意する。１つは目次シートです。他シートは、目次シートで選んだ項目の詳細データのあるシートで、複数あるシートです。ーー「目」シートのセルの値は、あらかじめ目次　　＜－Ｂ１セル東京　　　　＜－Ａ３セル　神奈川　　　　＜ーＡ５セル千葉　　　　＜－Ａ７セルにします。「ボタン」風らしく、セルの塗りつぶし色を付けておくのも良いと思う。ーーシートの名前を、「シート名」の変更操作で、ここでは東京、神奈川、千葉にします。（ＶＢＡでもできなスが）各シートのＡ１セルには「メニューへ戻る」とセル野値を入れます。ボタン替わりです。 -- そして目次シート以外を非表示にします。(ＶＢＡでも、１回の手操作でもできます。ーーＶＢＡ関連（１）Ｓｈｅｅｔ１（目次）のセル選択変更イベントに Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$3" Or Target.Address = "$A$5" Or Target.Address = "$A$7" Then Worksheets(Target.Value).Visible = True Worksheets(Target.Value).Select Else End If End Sub （２）Ｓｈｅｅｔ２（東京）のセル選択変更イベントに Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Visible =False Worksheets("目次").Activate End If End Sub （３）Ｓｈｅｅｔ３（神奈川）のセル選択変更イベントに Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Visible = False Worksheets("目次").Activate End If End Sub （４）Ｓｈｅｅｔ３（千葉）のセル選択変更イベントに（３）と同様なのでここへ記述略。同じコードをコピペすること。＝＝このコードの欠点は、上記の東京などの選択肢が増えると、同じ（似た）コードをその数だけ作っておかないといけない。これはＨｙｐｅｒＬｉｎｋ法でも、コマンドボタン法でも同じ。これを１か所のコードですます方法はあるが、「クラス」というものなどの上級の知識が要るので難しい。シコシコとシートの数だけコピー貼り付けをするほかない。

質問者

お礼 2016/08/19 10:25

ありがとうございますできましたたすかります

その他の回答 (4)

imogasi
ベストアンサー率27% (4737/17069)

2016/08/12 12:26 回答No.4

最近３件目で、同じらしいこういう質問が出ているが、情報教科の宿題で出たものか。？知りたかったら、Googleで「エクセルＶＢＡ　目次」「エクセルＶＢＡ　目次 OKWAVE」で照会してみれば。＞目次　→　情報（非表示中）→目次ボタン　→　目次に戻るこれだけでは質問内容を説明不足だ。エクセルの質問でありながら・ブック・シート・セル・添付された部品（ボタンなど）のどれかをはっきり認識していないのだろう、説明できておらず、エクセル初心者の質問のようだ。VBAなど初めて要求されたのだろう。想像するとSheet1に目次という、ある列のセルに、目次的な（）文字列が入っている。あるいは、目次ボタンが複数あって、その各ボタンのCaptionは、目次らしい文字が設定されている。情報と言っているのは、エクセル的にはシートで、Sheet２、Sheet3、Sheet4４、・・・は非表示になっている。 Sheet1の目次ボタンのどれかをクリックすると、その決められたシートの非表示を解除しそのシートを画面に出す。各シートには「目次へ戻る」ボタンがあり、それをクリックすると。目次シートを開く。そういうことか。自分でできないなら、出題した先生の説明を後日聞けばよい。もしコピペして出来ましたと出せば、先生の、生徒の理解殿把握を誤解させる。情報コースなのかもしれないが、先生も（説明済みなのかどうかも判らないが）出題の出し方を工夫し考慮すべきだとおもう。そうでなくても、情報以外の他の分野でも、WEB記事のコピペ回答が多いと聞く、時代らしいから。こういう、「クリック」したときに、こうする、というトリガ＝イベントという仕組みのプログラムになり、初心者より、相当上の課題だ。それにシートを非表示にしてみたり、意図不明の複雑な仕組みにしている。学習問題のなせるわざかな。あえて、とりあえず、コードはここに書かない。

skp026
ベストアンサー率45% (1010/2238)

2016/08/12 12:22 回答No.3

表示と非表示を切り替えている部分だけを、別のボタンイベントにコピペするなどして、記述の確認をするのはいかがでしょうか。表示と非表示にしている対象が不明ですが、以下に参考になりそうなものをご案内します。行か列の場合。 HiddenプロパティにTrueを設定することで、行または列を非表示にします。ワークブックの場合。 Windows("ワークブック名").Visible = True/False シートの場合。 Worksheets("Sheet2").Visible = False Googleで検索するとしたら、 Excel VBA 非表示シート Excel VBA 非表示ブック Excel VBA 非表示列という感じです。既にご存じでしたらごめんなさい。