エクセルVBAマクロを自動作成する無料アプリです。
例として「シートへのリンクが付いた、シート名一覧を作成する」VBAマクロを作成します。
事例 シート名リストにリンクを付ける
アプリへのリンク
アプリへのリンク ⇒セルの値がシート名と一致するセルに、シートへのリンクを張る
アプリの画面
作成されたコード
アプリで作成したコードを、VBE画面に貼り付けて実行します。
各シートへのリンクが挿入されました。
ポイント 各シートを作成する前に【原本】シートに、「リスト」シートへのリンクを入れておくと、作成した各シートには、「リスト」シートへのリンクが作成されます。
「原本」シートの「リストへ戻る」セルを右クリックし、下方の「リンク」をクリックし、「ハイパーリンクの挿入」画面を出す。
できました😊
VBAコードを見る
Sub デモ2() 'シート名リストにリンク
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim cellRange As String, myCell As Range
Sheets("リスト").Select
Dim lastRow As Long
lastRow = Cells(Rows.Count, Range("A1").Column).End(xlUp).Row
cellRange = "a1" & ":" & Cells(lastRow, Range("a1").Column).Address(False, False)
Range(cellRange).Select
Dim mySheet As Worksheet
For Each myCell In Range(cellRange).Cells
For Each mySheet In Worksheets
If myCell.Value = mySheet.Name Then
mySheet.Hyperlinks.Add Anchor:=myCell, Address:="", SubAddress:=myCell.Value & "!A1"
exit for
End If
Next mySheet
Next myCell
Application.DisplayAlerts = true
Application.ScreenUpdating = True
End Sub
【スクリーンショッ14選】エクセルVBAでシート処理