Excelの関数(VBA)で対象セルのリンク情報を取得する方法

VBA に以下関数を追加。

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

使い方
=GetHyperlink(対象セル)

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です