如何解决VBA'未设置对象变量或带块变量:错误91
通常我只是用其他类似的问题来解决我的问题,但是我自己无法对这个问题进行排序,对象使我感到困惑。
基本上,我正在尝试创建一个包含超链接的索引表,供用户单击。但是,标题将不是工作表名称。而是每个工作表将在某些单元格中包含几个条目。有数百个条目,因此我不希望手动进行此操作。目前,在我创建代码时,该代码仅引用了每个工作表中的一点数据,但是我认为将其推断到其余数据相对容易。
Sub CreateLinksHospitals()
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim cell As Range
Dim i As Integer
Dim lRow As Integer
Dim nRow As Integer
Dim Link As Object
For i = 5 To 175
lRow = Worksheets("Sheet1").Cells(Rows.Count,1).End(xlUp).Row
nRow = lRow + 1
Worksheets(i).Activate
If Not ActiveSheet.Range("B3") = "" Then
Worksheets("Sheet1").Cells(nRow,1).Hyperlinks.Add Anchor:=Selection,Address:="",SubAddress:="'" & sh.Name & "'" & "!A1",TextToDisplay:=sh.Name
End If
Next i
Application.ScreenUpdating = True
End Sub
该错误与Worksheets.Hyperlinks.Add行有关。任何帮助将不胜感激。
编辑:
我使用了类似的方法来创建工作表名称的索引标签。这很好。我找不到为什么这一种有效而上面的一种无效的区别。
Sub CreateLinksToAllSheets()
Dim sh As Worksheet
Dim cell As Range
Worksheets("Sheet2").Range("A3").Activate
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> sh.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection,SubAddress:= _
"'" & sh.Name & "'" & "!A1",TextToDisplay:=sh.Name
ActiveCell.Offset(1,0).Select
End If
Next sh
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。