使用VBA在Excel中使用预设名称将字符串转换为超链接

Question

我有一个用户表单，我希望人们输入一个链接，例如bbc.com＆我希望程序自动将此字符串转换为名为“website”的超链接（蓝色下划线）。

这是我到目前为止所拥有的。

PublicProperty Get Link() as string
Link=Me.Linkbvalue    
.cells(blankrow,1).value=me.link

编辑：注意，保护公司的通用词。实际上问题不在于它从本地服务器开始。在下面，文件位于文件夹中，但不在子文件夹中

项= “\目录\ folders_directory \文件夹\文件”

运行代码时，地址变为

\目录/ folders_directory \文件夹\ sub_folder “\目录\ folders_directory \文件夹\文件”

Answer 1

以下可能有所帮助。它会将A列值转换为超链接。

Sub GetHyperlink()
   For Each xCell In Range("A:A")
      If xCell.Value <> "" Then
         ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:="http://www." & Replace(xCell.Formula, "www.", ""), TextToDisplay:="Website" 
      End If
   Next xCell
End Sub

Answer 2

如果您从entry读取Form变量，这应该可以工作：

Sub TestMe()

    Dim entry As String
    entry = "bbc.com"

    Dim httpPrefix As String
    httpPrefix = "https://"

    If Left(entry, Len(httpPrefix)) <> httpPrefix Then
        entry = httpPrefix & entry
    End If

    With Worksheets(1)
        .Hyperlinks.Add Anchor:=.Cells(1, 1), _
                Address:=entry, _
                TextToDisplay:="website"
    End With

End Sub

需要一些业务逻辑来决定是否编写https://或http://或类似的东西。您可以考虑使用Trim()从左侧和右侧移除可能的空单元格。