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

Question

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

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

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

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

Entry =“ \ directory \ folders_directory \ folder \ file”

在运行代码时， 地址变为

\ directory / folders_directory \ folder \ sub_folder“ \ directory \ folders_directory \ folder \ file”

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

如果您从Startup.cs中读取了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://从左侧和右侧删除可能的空白单元格。