小编Qqq*_*qqq的帖子

是否可以在数组中创建超链接列表，以便数组元素都是超链接？

我正在研究一个更有效的宏来创建超链接索引。我将所有工作表名称都放在一个数组中，但希望在将其打印到“索引”选项卡上之前将数组元素转换为超链接。

到目前为止，我已经尝试了以下操作（这只是我尝试将数组元素转换为超链接的代码部分）...

尝试1：

For Each xElement In xArr
    xElement = FormulaR1C1 = "=Hyperlink(""xWB.Sheets(xElement)!A1"", xWB.Sheets(xElement).Name)"
Next xElement

尝试 1 的结果：宏运行时没有错误，但结果列表没有超链接。我的索引与我完全忽略此代码一样。

尝试2：

For Each xElement In xArr
    xElement = .Hyperlinks.Add _
        anchor:="", _     'Compile error: Expected: end of statement
        Address:="", _
        SubAddress:="'" & xWB.Sheets(xelement).Name & "'!A1", _
        TextToDisplay:=xWB.Sheets(xelement).Name
Next xElement

尝试 2 的结果：“anchor”突出显示为导致错误。错误消息是“编译错误：预期：语句结束”

可以做我正在尝试的事情吗？