エクセル ハイパーリンク先でのボタンの表示／非表示

質問

こんばんは。

エクセルでのボタンの表示／非表示についての質問です。

シートＡ、Ｂ、Ｃ、があり、ＡのシートにもＢのシートにもＣのシートへジャンプするハイパーリンクが設定してあります。
シートＣにＡボタン、Ｂボタンがあり、ジャンプしてきたシートによってボタンを表示／非表示にしたいと考えています。

【Ａシートからジャンプして来た場合】
Ｃシート：Ａボタンは表示、Ｂボタンは非表示

【Ｂシートからジャンプして来た場合】
Ｃシート：Ａボタンは非表示、Ｂボタンは表示

これができる方法を模索中です。
どうぞよろしくお願い致します。

回答No.4

KenKen_SP · ベストアンサー

すみません、激しく勘違いしたようで。。

イベントの発生順序は、Activate --> FollowHyperlink です。したがって、
Activate イベントで一度両方のボタンを非表示にし、FollowHyperlink
イベントでどのシートのリンクがクリックされたかで分岐させて、必要な
ボタンを表示させればよいかと。

' // ■ ThisWorkbook モジュール
' // シートがアクティブになったとき発生するイベント
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
　　Worksheets("C").Shapes("ボタンA").Visible = False
　　Worksheets("C").Shapes("ボタンB").Visible = False
End Sub

' // ハイパーリンクがクリックされたとき発生するイベント
Private Sub Workbook_SheetFollowHyperlink( _
　　　　ByVal Sh As Object, _
　　　　ByVal Target As Hyperlink _
)
　　Select Case Sh.Name
　　　　Case "A": Worksheets("C").Shapes("ボタンA").Visible = True
　　　　Case "B": Worksheets("C").Shapes("ボタンB").Visible = True
　　End Select
End Sub

余談ですが、、、

> それぞれに別のマクロが組まれています。
OnAction を使って割り当てるマクロを動的に切り替えることもできます。

お礼

ありがとうございます！！できました！！！
感謝感激雨あられです！（笑）
まさかこんなやり方があるとは。目からうろこです。

非常に図々しいお願いなんですが、

>OnAction を使って割り当てるマクロを動的に
>切り替えることもできます。

このやり方も教えて頂ければ幸いです。
ちなみにＡボタンは並び替え、Ｂボタンは集計のマクロが組まれています。
誠に勝手なお願いですが、どうぞよろしくお願い致します。

回答No.5

KenKen_SP

> このやり方も教えて頂ければ幸いです。

ん？ ヘルプで OnAction を調べてみればわかると思いますよ。

FollowHyperlink イベントを下記のようにするとか。

' // ハイパーリンクがクリックされたとき発生するイベント
Private Sub Workbook_SheetFollowHyperlink( _
　　　　ByVal Sh As Object, _
　　　　ByVal Target As Hyperlink _
)
　　Select Case Sh.Name
　　　　Case "A": Worksheets("C").Shapes("ボタンA").OnAction = "マクロA"
　　　　Case "B": Worksheets("C").Shapes("ボタンA").OnAction = "マクロB"
　　End Select

End Sub

回答No.3

KenKen_SP

> 「Ｗｅｂ」ツールバーには、インターネットエクスプローラなどでよく
> 使う「戻る」「進む」ボタンがある

なるほど。。これならマクロなしでもできますね！
参考ですが、これをマクロから利用するコードです。

' // コマンド[戻る]を実行
Sub GoBack()
　　On Error Resume Next
　　Application.CommandBars.FindControl(Id:=1017).Execute
End Sub

' // コマンド[進む]を実行
Sub GoForward()
　　On Error Resume Next
　　Application.CommandBars.FindControl(Id:=1018).Execute
End Sub

補足

早速のご解答ありがとうございます。

ＣシートのＡボタン、Ｂボタンはジャンプ元に戻るためのボタンではなく、それぞれに別のマクロが組まれています。
ですので、Ａシートからジャンプして来た場合はＣシートのＡボタンだけを表示、Ｂシートからジャンプして来た場合はＣシートのＢボタンだけを表示させるようにしたいのです。

もし可能であれば、ハイパーリンクをクリックした時以外は両ボタンとも非表示にする方法も知りたいです。

ご面倒をおかけ致しますが、よろしくお願い致します。

回答No.2

onlyrom

A,Bボタンが飛んできたシートに戻るためだけの役目なら、
Ａ、Ｂボタン両方なくてもエクセルの機能だけでできますが。

「表示」＞「ツールバー」＞「Ｗｅｂ」をクリック

「Ｗｅｂ」ツールバーが表示されるので、
「標準」ツールバー等のある画面上部にドラッグしておく

「Ｗｅｂ」ツールバーには、インターネットエクスプローラなどでよく使う「戻る」「進む」ボタンがある

シート１からシート３へハイパーリンクで飛んだ後、
シート１へ戻りたければ、
「Ｗｅｂ」ツールバーの「戻る」ボタンで戻れます。

シート２からシート３へ飛んだ場合も同様。

これに限らず、どのシートでもハイパーリンクで飛んだら
「戻る」ボタンで元のシートへ戻れるということです。

Ａ，Ｂボタンが「戻る」ためのものではなく他のことをするためのものでしたら、ご容赦願います。

補足

早速のご解答ありがとうございます。

ＣシートのＡボタン、Ｂボタンはジャンプ元に戻るためのボタンではなく、それぞれに別のマクロが組まれています。
ですので、Ａシートからジャンプして来た場合はＣシートのＡボタンだけを表示、Ｂシートからジャンプして来た場合はＣシートのＢボタンだけを表示させるようにしたいのです。

もし可能であれば、ハイパーリンクをクリックした時以外は両ボタンとも非表示にする方法も知りたいです。

ご面倒をおかけ致しますが、よろしくお願い致します。

回答No.1

KenKen_SP

ボタンの表示を切り替え...もちろん可能ですが、シンプルにボタンは
１つにしてみては？

1.　以下のコードをそれぞれのモジュールにコピペします。

' // ■ ThisWorkbook モジュール
' // ハイパーリンク元のシートを参照しておくオブジェクト変数
Public gPrevSheet As Worksheet

' // ハイパーリンクがクリックされたとき発生するイベント
Private Sub Workbook_SheetFollowHyperlink( _
　　　　ByVal Sh As Object, _
　　　　ByVal Target As Hyperlink _
)
　　Set gPrevSheet = Sh
End Sub

' // ■ 標準モジュール
Sub GoBackSheet()
　　On Error Resume Next
　　ThisWorkbook.gPrevSheet.Activate
　　Set ThisWorkbook.gPrevSheet = Nothing
End Sub

2.　C シートにボタンを配置し、キャプションを「戻る」にする
3.　2. のボタンにマクロ「GoBackSheet」を割り当てる

補足

早速のご解答ありがとうございます。

説明が足りなかったようですので補足致します。

ＣシートのＡボタン、Ｂボタンはジャンプ元に戻るためのボタンではなく、それぞれに別のマクロが組まれています。
ですので、Ａシートからジャンプして来た場合はＣシートのＡボタンだけを表示、Ｂシートからジャンプして来た場合はＣシートのＢボタンだけを表示させるようにしたいのです。

もし可能であれば、ハイパーリンクをクリックした時以外は両ボタンとも非表示にする方法も知りたいです。

ご面倒をおかけ致しますが、よろしくお願い致します。