• ベストアンサー
  • すぐに回答を!

エクセルのハイパーリンクについて教えて下さい

  • 質問No.1545446
  • 閲覧数4176
  • ありがとう数13
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 41% (16/39)

エクセルのあるセルにハイパーリンクの設定でURLがリンクしています。そのセルの表示にはURLではなく、いろいろな名前が表示されているのですが、このセルのURLのみを一発で読み取る方法はないのでしょうか?
例えば、違うセルにURLのみをコピーする関数など、
あったら教えて下さい。
今は1回1回ハイパーリンクの編集を開いて行っているのですが、非常に数が多いため効率を上げたいと思っています。
まだまだ、素人でよく分からないことが多いのですが、
どうぞよろしくお願いします。

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 50% (3003/5914)

ALT+F11で標準モジュールを挿入して貼り付けて使ってください。
使い方:
A1にハイパーリンクが有る時
=linkAddress(A1)
------------------8<-------------------8<-----------------
Public Function linkAddress(r As Range) As String
If r.Hyperlinks.Count > 0 Then '指定したセルにハイパーリンクオブジェクトがある
linkAddress = r.Hyperlinks(1).Address
Else
If InStr(r.Formula, "=HYPERLINK") Then 'HYPERLINK関数を使っている
linkAddress = Mid(r.Formula, 13, InStr(13, r.Formula, """") - 13)
Else
linkAddress = ""
End If
End If
End Function
お礼コメント
komusemari

お礼率 41% (16/39)

夜中なのに大変使える回答ありがとうございました!
使ってみたらばっちりできました!ありがとうございます!
投稿日時:2005/07/29 05:36
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ