excel - 如何添加弹出窗口以将超链接添加到 Excel 中的单元格？

Question

我是 Excel 新手。我有一个数据表，很多用户必须在表中输入他们的数据。我有一列带有标题 - 'linkToData'。每当用户单击一个单元格时，必须有一个弹出窗口，要求输入“链接文本”和“URL”，因此用户可以轻松输入它，而不是使用“插入->链接->插入链接” '。如何进行此自定义？你能帮忙吗？

谢谢。

Answer 1

如果现有的右键菜单项“链接”不够用，那么可以尝试拦截工作表的 SelectionChange() 事件。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim nCol As Integer
    nCol = Target.Column
    
    If Target.Row > 1 And Cells(1, nCol) = "linkToData" Then
        If Target.Hyperlinks.Count = 0 Then
            Application.Dialogs(xlDialogInsertHyperlink).Show
        End If
    End If
End Sub

将此代码放入工作表的 VBA 模块中（例如“Sheet1(Sheet1)”）。

如果列中的顶部单元格是“linkToData”，并且单元格中还没有超链接，则显示“插入链接”对话框。您可以编写自己的输入表单，但此对话框可以满足您的需要。