The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBA【Application.Unionメソッド】複数のセルを参照する - 2018年11月8日
- Excel関数【CONCAT関数】文字列を結合する - 2018年11月5日
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
どうも、takaです(^^♪
Excel上で参考にした表で、webサイトを参照させる場合があります。その時にただの「文字列」で入力すると「参照先に移動する場合、パスをブラウザにコピー＆ペーストするなどをしなくてはいけないです(;^ω^)
この手間を省くには「ハイパーリンク」という機能を使用します(^^♪
VBAでハイパーリンクを設定する[Hyperlinks.Add メソッド]
VBAでハイパーリンクを追加するには、「Hyperlinks.Add メソッド」 を使用します。
Hyperlinks.Add メソッドの書式は以下の通りになります。
1 | 式 . Add( Anchor, Address, SubAddress, ScreenTip, TextToDisplay ) |
名前 必須 / 省略可能 データ型 説明 Anchor 必須 オブジェクト型 (Object) ハイパーリンクのアンカーを指定します。 Range オブジェクトまたは Shape オブジェクトを指定します。 Address 必須 文字列型 (String) ハイパーリンクのアドレスを指定します。 SubAddress 省略可能 バリアント型 (Variant) ハイパーリンクのサブアドレスを指定します。 ScreenTip 省略可能 バリアント型 (Variant) ハイパーリンク上をマウス ポインターで指した場合に表示されるヒントを指定します。 TextToDisplay 省略可能 バリアント型 (Variant) ハイパーリンクで表示されるテキストを指定します。 参考:https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/hyperlinks-add-method-excel
実際にVBAでハイパーリンクを設定してみる
という訳で実際にVBAでハイパーリンクを使用してみましょう(^^♪
コードの実行後は画像のようになります。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | 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 |
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す