Excel

엑셀 매크로 – 다른 시트의 특정 셀로의 링크

‘Hyperlink’ 라는 함수를 사용하면 되고 주의할 점은 시트를 참조할 때는 시트명 앞에 ‘#’을 붙여주어야 한다는 점.

그리고 작성하면서 ‘Find’ 라는 아주 유용한 함수 하나를 배웠다.

Sub cell_link()
    sn = “List”
    lc = Range(“A1”).End(xlDown).Address
    rs = “D4”
    re = Range(sn + “!” & rs).End(xlDown).Address

    i = 1
    For Each c In Range(“A1:” & lc)
        ci = “=COUNTIF(” + sn + “!” + rs + “:” + re + “,” + c.Address + “)”
        Range(“C1”).Value = ci
        If (Range(“C1”).Value > 0) Then
            ca = Range(“” + sn + “!” + rs + “:” + re + “”).Find(What:=c.Value).Address
            Range(“B” & i).Value = “=HYPERLINK(“”#” + sn + “!” & ca & “””,””” + c.Value + “””)”
        End If
        i = i + 1
    Next c
End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s