vba - 单击命令按钮以显示带有 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

问候