excel 强制输出文本到超链接

azpvetkf 于 2023-04-22 发布在其他

关注(0)|答案(2)|浏览(125)

因此，我在一个应用程序中使用/内部Excel和我有一些复选框，提出了预定的赘言。我需要当提出说赘言是一个超链接，但我不希望所有的东西都放在该单元格是一个超链接。我发现下面的代码和我（对代码等知之甚少），看起来这是我想让它做的但我不确定。基本上我希望有访问我们的网站〈-这将是超链接到它需要的地址。有没有一种方法可以通过识别网站或http（如果需要的话）来强制某些内容进入超链接？
‘作者：Michael Milette“版权所有2011-2012 TNG Consulting Inc.”目的：将所选文本转换为超链接。'注意：如果文本中未指定，则假定为HTTP。

`Public Sub Text_To_Hyperlink()
  Dim Cell As Range
  For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
    If Trim(Cell) > "" Then
      If Left(Trim(Cell), 4) = "http" Then  ' handles http and https
        ActiveSheet.Hyperlinks.Add Cell, Trim(Cell.Value)
      Else ' Default to http if no protocol was specified.
        ActiveSheet.Hyperlinks.Add Cell, "http://" & Trim(Cell.Value)
      End If
    End If
  Next
End Sub`

我有预先确定的赘言，并可以得到一个超链接格式在excel工作表，但一旦VBA代码介绍了它的力量回到文本

excel

来源：https://stackoverflow.com/questions/76076268/forcing-output-text-to-a-hyper-link

2条答案

按热度按时间

xu3bshqb1#

尝试

Sub addhyperlink()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
        If Trim(Cell) > "" Then
            If Left(Trim(Cell), 4) = "http" Then ' handles http and https
                ActiveCell.Hyperlinks.Add Anchor:=Cell, Address:=Trim(Cell.Value), _
                                          SubAddress:="", TextToDisplay:=Cell.Value
            Else ' Default to http if no protocol was specified.
                ActiveCell.Hyperlinks.Add Anchor:=Cell, Address:="http://" & Trim(Cell.Value), _
                                          SubAddress:="", TextToDisplay:=Cell.Value
            End If
        End If
    Next
End Sub

赞(0）回复(0）举报 2023-04-22

xqnpmsa82#

这与您的代码无关，但也许HYPERLINK公式适用于您所述的问题。
在C3中，使用此公式=HYPERLINK(B2,A2)