将macros从工作表应用于工作簿

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并添加一个新的variables

 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