サンプルコード

その他

ハイパーリンクのアドレスの取得

Function HyperlinkAddress(target As Range) As String

    HyperlinkAddress = target.Hyperlinks(1).Address

End Function

アクティブセルの制御

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row = 10 Then

        Cells(1, Target.Column + 1).Activate

    End If

End Sub