URL 링크가있는 UserForm을 표시하려면 CommandButton을 클릭하십시오.

Question

CommandFormat1을 표시하여 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 

감사