單擊命令按鈕以顯示帶有URL的用戶窗體鏈接

我試圖編寫CommandButton1來顯示用戶窗體1。在Userform1中，我想要一個使用工作表中單元格的值的超鏈接。我希望UserForm1在鏈接被點擊時卸載。單擊命令按鈕以顯示帶有URL的用戶窗體鏈接

我會放下我認識的東西。但我錯過了大部分代碼。具體如下：

我該如何顯示鏈接？

如何在單擊鏈接時解除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

來源

2013-07-10 halcyon27

我會在您的用戶窗體中放置一個標籤。

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

問候

來源

2013-07-10 12:38:06 funk

感謝。作爲後續，是否可以編寫命令按鈕來執行同樣的操作以刪除一個步驟？ – halcyon27

因此，如果你的第一張紙上有你的命令按鈕，你可以在你的工作表中放置代碼'Private Sub CommandButton_Click（）UserForm1.Show End Sub'。但是你必須在你的UserForm和我寫的代碼中添加一個標籤。 – funk

你明白我的意思嗎？ – funk

單擊命令按鈕以顯示帶有URL的用戶窗體鏈接

回答

相關問題