将工作表中的宏应用于工作簿

Question

Sub ScreenTip()
    Dim hl As Hyperlink

    For Each hl In ActiveSheet.Hyperlinks
        hl.ScreenTip = CStr(hl.Range.Value)
    Next
End Sub

我有此代码，但它仅在您当前使用的工作表上运行。 我希望它能覆盖整个工作簿。 我将如何改变它来做到这一点？

Answer 1

更改您的For Each并添加一个新变量

Sub ScreenTip()
    Dim hl As Hyperlink
    Dim ws as WorkSheet

    For Each ws in ActiveWorkbook.Worksheets
        For Each hl In ws.Hyperlinks
            hl.ScreenTip = CStr(hl.Range.Value)
        Next hl
    Next ws
End Sub

Answer 2

Sub ScreenTip()
Dim hl As Hyperlink
dim sh as worksheet
dim bk as workbook
set bk = whateverbook
for each sh in bk.sheets
    For Each hl In sh.Hyperlinks
        hl.ScreenTip = CStr(hl.Range.Value)
    Next hl
next sh
End Sub