vba - 单击 CommandButton 以显示带有 URL 链接的用户窗体

Question

我正在尝试编写 CommandButton1 代码来显示 UserForm1。在 Userform1 中，我想要一个使用工作表中单元格值的超链接。我希望在单击链接时卸载 UserForm1。

我会写下我(认为)我所知道的。但我缺少大部分代码。具体来说:

如何实际显示链接？

如何编写代码以在单击链接时关闭 UserForm1？

Private Sub CommandButton_Click()
    UserForm1.Show
End Sub

Private Sub UserForm1_Click()
    Dim URL As Hyperlink
        URL = "http://www.example.com/" & Cells.Range("Q5") & "/index"
    ...
End Sub

Answer 1

我会在您的用户表单中添加一个标签。

Private Sub Label1_Click()
    Dim URL As String
    Dim cellvalue As Variant

    cellvalue = ActiveWorkbook.Sheets(1).Range("Q5").Value
    URL = "http://www.example.com/" & cellvalue & "/index"

    On Error GoTo urlnotopen
    ActiveWorkbook.FollowHyperlink Address:=URL, NewWindow:=True
    Unload UserForm
    Exit Sub
urlnotopen:
    MsgBox "Cannot open " & URL
End Sub

问候