一番上の入り口へ > excel > VBA コーディングライブラリ集 > 選択範囲シート名にハイパーリンクを追加するマクロ

選択範囲シート名にハイパーリンクを追加するマクロ

選択範囲シート名にハイパーリンクを追加するマクロ



Sub 選択範囲シート名ハイパーリンク追加()
'
' ハイパーリンク Macro
'

'
    Dim height As Integer, width As Integer
    Dim row As Integer, column As Integer

    Dim i As Integer, j As Integer

    row = Selection.row
    column = Selection.column

    height = Selection.Rows.Count
    width = Selection.Columns.Count


    For i = column To (column + width - 1)
        For j = row To (row + height - 1)
            If Cells(j, i).Value <> "" Then
                Cells(j, i).Select
                stt = Cells(j, i).Value

                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="" & stt & "!A1" _
                , TextToDisplay:=stt
            End If
        Next
    Next

End Sub
        

類似リンク

全てのシート名を取得してA1に書きこむマクロ

文字列からハイパーリンクをまとめて作成するVBA

選択範囲のハイパーリンクを一瞬で削除するVBA

VBA マクロライブラリ集