シートを増やして色々な情報を作っていく場合、これを自由に移動できる目次があると便利かなと思い作ってみました。アレなら最後のコードコピペしても動きます。
ハイパーリンクを作成するHyperLinks.addメソッドを使用します。
目次の作り方
![目次1](https://sunagitsune.com/wp-content/uploads/2020/09/b50a1570c316395fac80ae6f0463e2eb.jpg)
たくさんシートがあるので、楽に移動するための目次を作りたいと思います。
![目次2](https://sunagitsune.com/wp-content/uploads/2020/09/25feffb6edd08a50c3b830e04b34144a.jpg)
今シートがいくつあるかは、WorkSheetsオブジェクトのCountプロパティで取得可能です。
![目次3](https://sunagitsune.com/wp-content/uploads/2020/09/c72a85844293a4ecaf881ab603bf7963.jpg)
これをFor Nextの最大値に使用し、WorkSheetsオブジェクトのNameプロパティを順番に出力して、シートの一覧を作ります。
![目次4](https://sunagitsune.com/wp-content/uploads/2020/09/80f16b04224d61ba423fe809bb2a9e0e.jpg)
もし目次シートはいらないのであればiを2からスタートし、Cellsの左をすべて-1すればOKです。
![目次6](https://sunagitsune.com/wp-content/uploads/2020/09/6d50d95eefe09fb2fba31fa42d84e9a2-650x439.jpg)
で、HyperLinks.Addメソッドを使用して、これらにリンクを設定します。
ハイパーリンクの設定
Hyperlinks.Add
※引数Anchor、Addressは必須
Hyperlinks.Add
※引数Anchor、Addressは必須
![目次7](https://sunagitsune.com/wp-content/uploads/2020/09/aeb8f1ec47dd178771d31707bc1893b5.jpg)
ActiveSheets=現在いるシートに対して処理を実行します。
![目次8](https://sunagitsune.com/wp-content/uploads/2020/09/1d47f220cc52d5f4245c63362dde1b27.jpg)
Anchorはどのセルに対してリンクを設定するかなので、シートの名前を取得した時に一緒に同じセルに設定すればOKです。よってCellsで同様に指定します。
![目次9](https://sunagitsune.com/wp-content/uploads/2020/09/d4ec60a20babee81e59dc2f4e94742a8.jpg)
AddressとSubAddressはどちらもリンク先ですが、Addressのほうはブック(ファイル)の指定をするための引数なので、これは同じブック内で移動するのであれば空欄でOKです。ThisWorkbook.FullNameのように指定することもできます。
![目次10](https://sunagitsune.com/wp-content/uploads/2020/09/fb1e110e05a24ca9e7a98467b4426690.jpg)
SubAddressで取得したシート名の後ろに「!A1」を付けて、行き先を設定します。
![目次11](https://sunagitsune.com/wp-content/uploads/2020/09/6a952c0c93d48b47c6c7a77ab9870201.jpg)
このコードを実行した後、任意のシート名を押すと、
![目次12](https://sunagitsune.com/wp-content/uploads/2020/09/61d636a8f7a27dad2e636e1fd26e5f57.jpg)
そのシートに移動することができます。
このコードはActiveSheetに対して動作するので、Sheet2でも3でも同様に目次を作成することができます(ただしA列にデータがあったら上書きされます)。
' vba
Dim i As Integer
Dim wkshtcount As Integer
wkshtcount = Worksheets.Count ' シートの数
For i = 1 To wkshtcount
Cells(i, 1).Value = Worksheets(i).Name ' シートの名前を入力
' ハイパーリンクを設定
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:="", SubAddress:=Cells(i, 1).Value & "!A1"
Next
![](https://sunagitsune.com/wp-content/uploads/2021/05/running-man-1149787_1280-160x90.jpg)
Excel(エクセル):ハイパーリンク
Excelにおけるハイパーリンク関連操作等まとめです。
ハイパーリンクとは、要するに文字をクリックすると他のページやセルに飛ぶアレです。テキストAをクリックするとAを解説するテキストBへ飛ぶ……というような「文脈を超える」テキストをハイパ...
![](https://sunagitsune.com/wp-content/uploads/2021/02/files-1639263_1280-160x90.jpg)
Excel(エクセル):ワークシート
ワークシート関連の操作方法まとめです。
ワークシートの使い方
ワークシートの作成・削除・挿入など、基本操作まとめです。
ワークシートのコピーについてです。
ブック間でやりとり
特定のシートを別の...
![](https://sunagitsune.com/wp-content/uploads/2018/12/mathematics-1509559_1280-160x90.jpg)
関数・演算子・メソッド・プロパティ名から探すExcel/VBA(マクロ)使い方・組み合わせ方まとめ
こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。
コメント