0

Excelでvbaを使用してハイパーリンクにマクロを割り当てるときに問題が発生します。セルB2：B5に独自のセルにリンクされている4つのハイパーリンクがある場合、以下のコードを使用して動作させることができます。

Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
For i = 1 To 5
    If Target.Range.Address = "$B$" & 1 + i Then
    MsgBox "test" & i & " works!"
    End If
Next
End Sub

同じシートのマクロにも割り当てられているハイパーリンクを別の列に追加したい場合に問題が発生します。誰かがこれを行う方法を知っていますか？

よろしくお願いします、JW。

4

1 に答える 1

1

これはどう？

Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Select Case Target.Range.Column

    Case Is = 2, 3, 4 'change to whichever columns you need to reference

        For i = 1 To 5

            If Target.Range.Address = Cells(i + 1, Target.Range.Column).Address Then

                MsgBox "test " & i & " works!"

            End If

        Next

End Select


End Sub
于 2012-08-10T13:36:14.387 に答える