[英]VBA to rename multiple worksheets in multiple directories based on file/worksheet list?
[英]VBA start at specific worksheet to link worksheets to list
我找到了此宏,并希望对其进行调整,以使其从特定的工作表开始,而不是遍历整个工作簿。
Sub CreateLinksToAllSheets()
Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name > sh.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(1, 0).Select
End If
Next sh
End Sub
dim sh as Worksheet
dim cell as Range
dim cnt as Integer,idx as integer
cnt=ActiveWorkbook.Worksheets.Count
idx=2 'any specific worksheet you want to start from
for idx=2 to cnt
set sh=ActiveWorkbook.WorkSheets(idx)
'rest of code goes here
next
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.