2

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
4

1 に答える 1

2

UserForm にラベルを付けます。

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-10T12:38:06.953 に答える