Sub Sample()
'Withを個別に分ける必要はありませんよ(笑)
'webサイトへリンク
With Worksheets("Sheet1")
.Hyperlinks.Add Anchor:=.Range("A1"), _
Address:="https://e-vba.com", _
ScreenTip:="他とは一味違うVBAサイト", _
TextToDisplay:="WEBサイトはこちら"
End With
'セルにリンク「SubAddress」を使用します。
With Worksheets("Sheet1")
.Hyperlinks.Add Anchor:=.Range("A2"), _
Address:="", _
SubAddress:="Sheet3!A3", _
ScreenTip:="Sheet3へ移動します", _
TextToDisplay:="Sheet3のA3へ移動します"
End With
'Addressに「mailto:」を記載することでメーラーを起動します
With Worksheets("Sheet1")
.Hyperlinks.Add Anchor:=.Range("A3"), _
Address:="mailto:宛先@co.jp?subject=件名です", _
ScreenTip:="メールを起動します", _
TextToDisplay:="メールへ"
End With
End Sub
コメントを残す