すべてのシートのハイパーリンクアドレスを変更する（Mac 2011を使用）

Question

各シートのハイパーリンクテキストを置き換えるExcel VBAコードがあります。 問題は、ブックが約30枚を持っているということです

' Only change Hyperlinks in the active sheet 
Sub FixHyperlinks() 

    Dim wks As Worksheet 
    Dim hl As Hyperlink 
    Dim sOld As String 
    Dim sNew As String 

    Set wks = ActiveSheet 
    sOld = "%5C" 
    sNew = "/" 
    For Each hl In wks.Hyperlinks 
     hl.Address = Replace(hl.Address, sOld, sNew) 
    Next hl 

End Sub 

以下のコードをチェックしてください!!

このマクロをアクティブなブックのすべてのシートで実行するにはどうすればよいですか？ ThisWorkbook.Worksheets内のすべてのシートをループするループごとに

Answer 1

ユースA：あなたのケースで非常に

Dim ws As Worksheet 

For Each ws In ThisWorkbook.Worksheets 
    'do something 
Next ws 

は：

For Each ws In ThisWorkbook.Worksheets 

    For Each hl In ws.Hyperlinks 

     hl.Address = Replace(hl.Address, sOld, sNew) 
    Next hl 
Next ws 

Answer 2

追加する必要がある唯一のものはワークブックループにありますすべてのシートについて、下記の変更されたコードを参照してください。

Sub FixHyperlinks() 

Dim wb As Workbook 
Dim wks As Worksheet 
Dim hl As Hyperlink 
Dim sOld As String 
Dim sNew As String 

Set wb = ThisWorkbook 

' loop ThisWorkbook all Sheets 
For Each wks In wb.Worksheets 
    sOld = "%5C" 
    sNew = "/" 
    For Each hl In wks.Hyperlinks 
     hl.Address = Replace(hl.Address, sOld, sNew) 
    Next hl 
Next wks 

End Sub