どうも!そこらへんの社会人です!!
今回は、大量にあるエクセルシートを1ページ目に集約するマクロを下記youtubeを参考に作成してみました。
大量のシートが、ありシートを行ったりきたりするのって大変なんですよね・・・
そんな手間を省くために作成してみました!
今回の記事を読むと下記のようなハイパーリンクを作成することができます!
ハイパーリンク作成マクロ
Anvhor:=ハインパーリンクを入力するセル .
Address:=”URL”.
SubAdress:=セルの場所など.
TextToDisplay:=”表示名”
※SubAdressを指定する場合、Addressには「””」を指定
いろいろ応用もできそうなので基本はしっかり確認しておきましょう
実際のコード
実際のマクロがこちらになります。
Dim firstshName As String
Dim shName As String
firstshName = “カテゴリー”
Dim i As Long
With Worksheets(firstshName)
For i = 2 To Worksheets.Count
shName = Worksheets(i).Name
‘カテゴリーシートのシート一覧へハイパーリンク作成
.Hyperlinks.Add anchor:=.Cells(2 + i, 2), Address:=””, _
ハイパーリンクアドレスをセル(2+i , 2)に追加します。URLは” 空白”(なし)です
SubAddress:=”‘” & shName & “‘!A1”, _
i番目のワークシート セル「A1」 を
TextToDisplay:=shName
i番目のワークシート 名で表示します
‘各シートへハイパーリンク作成
Worksheets(i).Hyperlinks.Add anchor:=Worksheets(i).Cells(1, 1), Address:=””, _
i番目のワークシートに ハイパーリンクアドレスをセル(1, 1)に追加します。URLは” 空白”(なし)です
SubAddress:=”‘” & firstshName & “‘!A1”, _
カテゴリーシート セル「A1」をアドレス(ハイパーリンク)にします
TextToDisplay:=”←『” & firstshName & “』シートに戻る”
←カテゴリーシートに戻ると表示します
Next i
End With
End Sub
これで大量にエクセルシートがあってもシートの行き来が楽になるのではないでしょうか?

コメント