☰

如何使用 VBA 在单元格注释中添加 URL？

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2003
如何使用 VBA 在单元格注释中添加 URL？

我正在使用 Microsoft Excel 2003，其中有一个单元格包含注释。注释包含文本和 URL。是否可以在注释框中创建一个超链接 (URL)，用户单击该链接会自动打开 URL？

谢谢，

答案1

詹姆斯，如果是我，我会尽量保持简单。我会在某个不显眼的地方放一个颜色鲜艳的方框，上面写着这些指导方针和链接。

但是，如果您有兴趣，可以按照以下步骤插入 VBA，以在当前选定的单元格旁边创建一个弹出矩形文本框，其中包含您想要显示的任何文本：

  1. 在 Excel 中打开工作簿。
  2. 选择插入菜单 > 图片 > 自动形状。选择一个矩形。
  3. 将一个矩形放置在要使用的工作表的任意位置。
  4. 编辑文本并使其表达您喜欢的任何内容，包括超链接。
  5. 选择该矩形的框架（而不是里面的文本），然后在 Excel 的左上角找到名称框。现在它可能会命名为“Rectange11”。将名称更改为“Guideshape”（因为这是代码要查找的内容）。6.右键单击 Excel 底部的工作表选项卡，然后选择查看代码。

  6. 将此代码粘贴到屏幕右侧的大空白文本区域中：

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.EnableEvents = False

    On Error Resume Next

    Shapes("GuideShape").Visible = msoFalse

    If Not Intersect(Target, Range("C5:C8")) Is Nothing Then

        With Me.Shapes("Guideshape")
             .Visible = msoTrue
             .Top = Target.Top
             .Left = Target.Left + 150
        End With
    End If

    On Error GoTo 0

    Application.EnableEvents = True

End Sub

  7. 查找("C5:C8")包含可编辑单元格范围的行，并进行更改，此消息应在该范围内弹出。保留括号和双引号！

  8. 关闭 VB 编辑器并返回 Excel。

现在，只要您单击代码中输入的范围内的单元格，您创建的矩形就会出现在该单元格的右侧。使用代码中的TOP和数字来更改该位置。LEFT

祝你好运！

答案2

不可以，您不能在评论中创建超链接。您只能插入 URL 文本。

超链接是 Range 或 Worksheet 的属性（注释不是）。Shape 也有一个超链接属性，但这里不适用（尽管可能有一些非常巧妙的方法，你可以用图像覆盖注释并提供超链接）。

答案3

我认为 Excel 不支持注释中的超链接。VBA 可能不会帮助您。

您能不能将 URL 放在单元格旁边的列上？

如果您坚决要使用某种工具提示链接，您可能可以在 VBA 中从头开始编写工具提示行为（创建小黄色表单，将其放在单元格旁边，在用户单击另一个单元格时将其隐藏等），但这将与实际评论分开工作，并且可能有些东西不能很好地整合，而且可能不是一个好主意。

相关内容