Question

我有2张。在其中一个工作表（sheet1）中我有1个带文件地址的超链接\ sii \ picture \ as.jpg超链接被命名为“LINK”。我需要重新创建这个超链接没有“格式”（背景颜色和任何一个）。我需要使用VBA。

当我尝试这个时，我收到错误

Localization = Sheets("Sheet1").Range("A1").Hyperlinks(1).Address

Sheets("Sheet2").Hyperlinks.Add Anchor:=Sheets("sheet2").Cells(2, 2), Address:=Localization, TextToDisplay:="LINK"

如果我做了类似

的话

sheets("Sheet1").select

range (Cells(1,1)).select

SELECTION.Copy

sheets("Sheet2").select

range (Cells(1,1)).select

Sheets("Sheet2").Paste

我得到了很好的hiperlink但这个hiperlink已经形成了背景和任何东西从第一张，我的屏幕闪烁，因为excel在sheet1和sheet2之间跳跃

Answer 1

这对你有用。您可能需要修改它以适合您现有的代码

Sub Main()

Dim rngDest As Range
Dim rngSource As Range
Dim wkshtSource As Worksheet
Dim wkshtDest As Worksheet
Dim urlSource As String

    ' Set Worksheet and Range variables for easy reference
    Set wkshtSource = ActiveWorkbook.Sheets("Sheet1")
    Set wkshtDest = ActiveWorkbook.Sheets("Sheet2")
    Set rngSource = wkshtSource.Cells(1, 1)
    Set rngDest = wkshtDest.Cells(2, 2)
    'Gets the address of the hyperlink to copy
    urlSource = rngSource.Hyperlinks(1).Address

    'Creates Hyperlink on second page
    rngDest.Hyperlinks.Add Anchor:=rngDest, Address:=urlSource, TextToDisplay:="Link"

End

重新创建超链接，或创建网络超链接VBA excel

1 个答案: