VBAのハイパーリンクについて質問です

質問

こんばんわ。

ＶＢＡ初心者です。調べてみて分からない箇所がありましたので教えてください　ｍ(＿ ＿)ｍ

マクロを作成しているブックを、リスト.xls とします。

リストのマクロを実行して、別のブックを開く動作を行います。
開くブックは毎回違い、シートも複数あります。
条件にあてはまるシートをリスト.xls のシート２にハイパーリンクを追加したいと思っています。

ブック、シート名を指定すればリンクを追加できるのですが、毎回ブックもシート名も違うので
変数を使用しなければならないと思うのですがどのように書いていいのかわかりません。

出来れば簡単な解説付きだと嬉しいです。
よろしくお願いします。

回答No.1

WindFaller · ベストアンサー

こんにちは。

ハイパーリンクでなくても良いのでは？
ActiveX コントロール・ボタンやダブルクリック・イベントにすればよいと思います。
毎回、変化するだけなら、マクロではなく、HYPERLINK　関数だけで可能だと思います。

'コマンドボタン
Private Sub CommandButton1_Click()
　Dim fn As String　'←変数
　fn = ActiveCell.Value
　If fn = "" Then Exit Sub
　If Dir(fn) = "" Then Exit Sub 'ファイルが存在しない場合
　If Not (fn Like "*.xls" Or fn Like "*.xls?") Then Exit Sub 'Excelファイルでない場合
　Workbooks.Open fn
End Sub

>ブック、シート名を指定すればリンクを追加できるのですが、毎回ブックもシート名も違うので変数を使用

それは、ファイル名が変化すると言われただけでは、どのような変化をするのか説明していただかなければ、こちらでは回答できません。

=HYPERLINK(A1)
などでも可能なはずです。ただし、こちらでは、セキュリティが掛かって、開くのに面倒です。

補足

回答ありがとうございます。

ファイルの中に複数ブックがあります。
条件を指定して複数のブックの中の１つを開き、さらにブック内で条件を指定（毎回条件は変わります）してシートを絞ります。
その条件に当てはまるシートが複数ある為、リストのブックのシート２にリスト化したいと思っています。
シートを絞る際にシートをアクティブにしますので開いているシートのアドレス？を取得しハイパーリンクに
出来ればと思っていました。

シート２は毎回削除しようと思っています。
申し訳ないのですが理解不足で教えてもらったコマンドボタンの使用方法がわかりませんでした。