每当运行到此行时,下面的代码都会不断给我语法错误:Range(“SheetList[Worksheet Index]”).Select
:
Private Sub Worksheet_Activate()
Dim sheet As Object
Dim SheetName As String
On Error GoTo Error
With Sheets("Index").ListObjects("SheetList")
If Not .DataBodyRange Is Nothing Then
.DataBodyRange.Delete
End If
End With
Range("SheetList[Worksheet Index]").Select '<--------- syntax error
For Each sheet In Sheets
SheetName = sheet.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=SheetName & "!A1", _
TextToDisplay:=SheetName
ActiveCell.Offset(1, 0).Select
Next sheet
Exit Sub
Error:
MsgBox "Unable to create index"
End Sub
我已经创建了
SheetList
表和Index
表。谁能帮我解决这个问题?
最佳答案
范围是期望的范围(列字母行号)
例如:范围(“A1”)
要么
范围(列字母行号:列字母行号)
例如:范围(“A1:B22”)
还有其他一些使用Range的方法。看这里。
https://msdn.microsoft.com/en-us/library/office/ff838238.aspx
什么是SheetList [工作表索引],以及如何选择它。我不确定选择它存在的范围会做到这一点。您为什么要尝试选择该对象呢?
关于excel - 尝试选择范围时出现语法错误,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32403514/