VBAサンプル集
ユーザー定義関数でハイパーリンクのURLを取得(Hyperlink)

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2014-01-23

ユーザー定義関数でハイパーリンクのURLを取得(Hyperlink)


ネットから、何らかの一覧をエクセルにコピペすると、


文字列や画像等に、リンクの設定がくっついてきます。

URLが表記されていれば良いですが、表示されていない事の方が多いでしょう。

そこで、VBAでユーザー定義関数を作成し、URLを取得できるようにします。

Excel VBA 解説

A1は、文字にURLのリンクが設定されています。

A2は、画像にURLのリンクが設定されています。

A3は、文字と画像にURLのリンクが設定されています。

A4は、文字にメールアドレスのリンクが設定されています。

B列は、以下のユーザー定義関数を設定しました。

=GetHyperlink(A1)

A2以下にも同様の関数を設定しました。


以下が、ユーザー定義関数になります。



Function GetHyperlink(セル As Range) As String
    Dim sp As Shape
    If セル.Hyperlinks.Count > 0 Then
        GetHyperlink = セル.Hyperlinks(1).Address
    End If
    For Each sp In ActiveSheet.Shapes
        If セル.Address = sp.TopLeftCell.Address Then
            GetHyperlink = GetHyperlink & vbLf & sp.Hyperlink.Address
        End If
    Next
End Function


標準モジュールに作成して下さい。


説明

Dim sp As Shape
図形オブシェクトの変数定義です。

セル.Hyperlinks.Count
セルに含まれるハイパーリンクがあるかの判定です。

For Each sp In ActiveSheet.Shapes
現在シートの図形コレクションから1つづつ取り出します。

sp.TopLeftCell
図形の左上のセルを取得します。

つまり、図形の左上が、当該セルに含まれているかを判定しています。

全体が入っているかの判定をしてしまうと、漏れが発生します。

逆に、一部が含まれているかの判定では、重複が発生します。

左上での判定が、最も見た目の間隔に近いと思います。


セル.Hyperlinks(1).Address
sp.Hyperlink.Address
URLを文字列で取得します。

複数のハイパーリンクが1つのセルに含まれる場合は、(複数図形等)

改行コードで結合しています。

セルの書式を、「折り返して全体を表示」に設定して下さい。


注意.
セルは、Hyperlinks(1)
図形は、Hyperlink
です。

この違いを理解するには、CellsがRangeオブジェクトである事を理解する必要があります。


Rangeオブジェクトは、セル範囲ですので、Hyperlinkのコレクションになります。

コレクションですから、インデックスを指定します。

この場合は、1つのセル範囲なので、(1)しか存在しません。

図形は、指定された図形1つだけですので、Hyperlinkになります。

上のRangeオブシェクトの話が理解できない場合は、

RangeとCellsの深遠 を参考にして下さい。
RangeとCells特集にします。今さら…と、あなどるなかれ、結構奥が深いのです。すでに説明した内容もありますが、知っておいた方が良い事、知らなくても困らない事(笑) これらを、まとめてみました。まずは基本 A1セルに"エクセル"と入れる場合。

ただ、結構難しい解説となっています。

できれば、ExcelマクロVBA入門 を順序良く読んで下さい。
ExcelVBAとは、エクセルの操作を自動化するマクロ機能で使われているプログラミング言語です。VBAは、「MicrosoftVisualBasicApplications」の略になります。このVBA入門シリーズでは、実務で必要とされるVBAの入門として、基礎から業務応用までのVBA全般を基礎解説していきます。


少しVBAが解る方は、

For~Next等で処理し、値のみをセルに入れた方が、使い勝手は良いと思います。

例えば以下のように。

Sub GetHyperlink2()
  Dim i As Long, iMax As Long
  Dim strUrl As String
  iMax = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To iMax
    strUrl = ""
    If Cells(i, 1).Hyperlinks.Count > 0 Then
      strUrl = Cells(i, 1).Hyperlinks(1).Address
    End If
    For Each sp In ActiveSheet.Shapes
      If Cells(i, 1).Address = sp.TopLeftCell.Address Then
        strUrl = strUrl & vbLf & sp.Hyperlink.Address
      End If
    Next
    If Not IsEmpty(strUrl) Then
      Cells(i, 2) = strUrl
    End If
  Next
End Sub


少し面倒ですね。


セル内に、左上が入っている図形を簡単に取得できれば良いのですが、

現在、私には解りません。(多分無理かなと思っています。)

従って、シート内の図形を全て検索し、当該セルに含まれるかの判定をしています。

注意.
前回は、Do~Loopを使用しました。
今回は、For~Nextを使用しています。
特段の理由はありません。
同じ事をするにも、いろいろなVBAコードがある事の紹介にすぎません。

ネットからコピーして、資料等を作成する場合には、使う機会があると思います。




同じテーマ「VBAサンプル集」の記事

ユーザー定義関数でフリガナを取得する(GetPhonetic)
ユーザー定義関数でハイパーリンクのURLを取得(Hyperlink)
カラーのコード取得、256RGB⇔16進変換
時刻になったら音を鳴らして知らせる(OnTime)
指定文字、指定数式でジャンプ機能(Union)
「値の貼り付け」をショートカットに登録(OnKey)
「セルの結合」をショートカットに登録(OnKey)
半角カナのみ全角カナに変換する
計算式の元となる数値定数を消去する(Precedents)
Beep音で音楽(Beep,Sleep)
日付の検索(配列の使用)


新着記事NEW ・・・新着記事一覧を見る

トランザクション処理|SQL入門(12月11日)
インデックスを作成して高速化(CREATE INDEX)|SQL入門(12月9日)
他のテーブルのデータで追加/更新/削除|SQL入門(12月8日)
データの削除(DELETE)|SQL入門(12月7日)
データの更新(UPDATE)|SQL入門(12月6日)
複数のSELECT結果を統合(UNION,UNION ALL)|SQL入門(12月5日)
テーブルを結合して取得(INNER JOIN,OUTER JOIN)|SQL入門(12月4日)
データベースの正規化とマスタの作成|SQL入門(12月3日)
データベースにおけるNULLの扱い方|SQL入門(12月2日)
オブジェクト変数とは何か|VBA技術解説(12月2日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|VBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数宣言のDimとデータ型|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.マクロって何?VBAって何?|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説
10.ひらがな⇔カタカナの変換|エクセル基本操作



  • >
  • >
  • >
  • ユーザー定義関数でハイパーリンクのURLを取得(Hyperlink)

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
    掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ