Skip to main content
corrected markdown format
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64

excel Excelのマクロを使っているのですがmenuの中のセルをクリックしてもエクセルのタブがひらけません

excelのマクロ
https://i.sstatic.net/5Y6RG.png

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
  ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
  Address:="", _
  SubAddress:=Worksheets(i).Name & "!A1", _
  TextToDisplay:=Worksheets(i).Name
Next

End Sub

Excelのマクロ

excelのマクロを使っているのですがmenuの中のセルをクリックしてもエクセルのタブがひらけません

excelのマクロ
https://i.sstatic.net/5Y6RG.png

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
  ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
  Address:="", _
  SubAddress:=Worksheets(i).Name & "!A1", _
  TextToDisplay:=Worksheets(i).Name
Next

End Sub

Excelのマクロを使っているのですがmenuの中のセルをクリックしてもエクセルのタブがひらけません

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
  ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
  Address:="", _
  SubAddress:=Worksheets(i).Name & "!A1", _
  TextToDisplay:=Worksheets(i).Name
Next

End Sub

Excelのマクロ

execel excelのマクロを使っているのですがmenuの中のセルをクリックしてもエクセルのタブがひらけません

[![画像の説明をここに入力][1]][1]--- execelexcelのマクロ
[1]: https://i.sstatic.net/5Y6RG.png

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Nexthttps://i.sstatic.net/5Y6RG.png

End Sub

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
  ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
  Address:="", _
  SubAddress:=Worksheets(i).Name & "!A1", _
  TextToDisplay:=Worksheets(i).Name
Next

End Sub

execelのマクロを使っているのですがmenuの中のセルをクリックしてもエクセルのタブがひらけません

[![画像の説明をここに入力][1]][1]--- execelのマクロ
[1]: https://i.sstatic.net/5Y6RG.png

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Next

End Sub

excelのマクロを使っているのですがmenuの中のセルをクリックしてもエクセルのタブがひらけません

excelのマクロ
https://i.sstatic.net/5Y6RG.png

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
  ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
  Address:="", _
  SubAddress:=Worksheets(i).Name & "!A1", _
  TextToDisplay:=Worksheets(i).Name
Next

End Sub
本文から 498 文字削除
ソース リンク

[![画像の説明をここに入力][1]][1]--- execelのマクロ
[1]: https://i.sstatic.net/5Y6RG.png

Dim ws, ws01  As Worksheet
Dim ws_Name As String
Dim I, L As Long

Set ws01 = Worksheets("MENU")
I = 0
L = 1 '10行目よりワークシート「近畿地方」にハイパーリンク設定を行う

For Each ws In Worksheets 'ワークシート全て繰り返します。

    If ws.Name <> ws01.Name Then 'ワークシート近畿地方以外のワークシート名に対してハイパーリンク先の設定を行います。
        'ws01.Hyperlinks.Add Anchor:=ws01.Cells(L, "M"), Address:="", SubAddress:=ws.Name & "!A2", TextToDisplay:="L"
        ws01.Hyperlinks.Add Anchor:=ws01.Cells(L, "M"), Address:="", SubAddress:=ws.Name & "!A1", TextToDisplay:=ws.Name
        'ワークシート毎に、パイパーリンク先を指定します。
        
        L = L + 1        'ハイパーリンク設定後、一行加算する。
    End If
Next ws

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Next

End Sub

[![画像の説明をここに入力][1]][1]--- execelのマクロ
[1]: https://i.sstatic.net/5Y6RG.png

Dim ws, ws01  As Worksheet
Dim ws_Name As String
Dim I, L As Long

Set ws01 = Worksheets("MENU")
I = 0
L = 1 '10行目よりワークシート「近畿地方」にハイパーリンク設定を行う

For Each ws In Worksheets 'ワークシート全て繰り返します。

    If ws.Name <> ws01.Name Then 'ワークシート近畿地方以外のワークシート名に対してハイパーリンク先の設定を行います。
        'ws01.Hyperlinks.Add Anchor:=ws01.Cells(L, "M"), Address:="", SubAddress:=ws.Name & "!A2", TextToDisplay:="L"
        ws01.Hyperlinks.Add Anchor:=ws01.Cells(L, "M"), Address:="", SubAddress:=ws.Name & "!A1", TextToDisplay:=ws.Name
        'ワークシート毎に、パイパーリンク先を指定します。
        
        L = L + 1        'ハイパーリンク設定後、一行加算する。
    End If
Next ws

[![画像の説明をここに入力][1]][1]--- execelのマクロ
[1]: https://i.sstatic.net/5Y6RG.png

Private Sub Workbook_Open()

Dim i
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Next

End Sub

ソース リンク
読み込んでいます