【ノーコード】VBAコードを作成する無料アプリ

AIで自分の価値を高める方法とは🙄

MENU

【ノーコードVBA】各シートへのリンクが付いた、シート名リストを作成する

エクセル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でシート処理