VBAを使えばあっという間

焼肉定食を食べ終えた水木さんが、お茶を飲みながら思い出話にふけります。

「…あれは私がExcelで社員情報の管理をしてて、
100枚以上ある社員シートを探して開くのが面倒だと、彼女にボヤいたときだったわ。
一覧表から各社員のシートへリンクを貼れば、簡単に開けるとマコちんが言ったのよ」

「はい。そうすれば、簡単にシートが開けますね」

「でも、100枚以上あるじゃない。
それに社員シートは今後、増減するし……面倒くさくて、とてもやってられないわ……って言ったのよ。
そしたら彼女、VBAを使えばあっという間にできるって、マクロを作ってくれたのよ」

Sub ハイパーリンク作成()
　　Dim i As Long
　　Worksheets("一覧").Select

　　For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
　　　　ActiveSheet.Hyperlinks.Add _
    　　　　Anchor:=Cells(i, 1), _
　　    　　Address:="", _
　　　　    SubAddress:="'" & Cells(i, 1).Value & "'!A1"
　　Next i
End Sub

※ このコードは、そのとき岬さんが開発したマクロです。
　 一覧シートA列の社員番号が入力されたセルに、同名のシートへのハイパーリンクを設定します。

「社員シートのシート名は社員番号ですか？
…なら、一覧表の社員番号のセルに、自らの値をSubAddressにして、
ActiveSheet.Hyperlinksを設定してやればいいですね。
…そのマクロを、入社半年の彼女が作ったんですか？」