2016-08-05 4 views
0

하이퍼 링크를 통해 여러 시트에 액세스하기 위해 인덱스로 사용하는 요약 시트가 있습니다. 각 시트 내의 적절한 행에 직접 링크되도록 확장 중입니다.동적 하이퍼 링크의 변수 값 사용

VBA에 익숙하며 구문에 대해 잘 모르겠습니다. 기본적으로 변수 j의 값을 셀 참조의 행 번호로 사용하려고합니다. "'!A"은 아래 코드에서 내 셀 참조의 첫 번째 부분입니다. 그런 다음 문자열을 연결하여 행 번호로 j을 추가하려고합니다. 아래 코드를 사용하여이 작업을 수행 할 수 있습니까? 나는 주변에 j을 괄호로 묶어 썼다. 아포스트로피는 쓸모가 없었다. j.Value

까다로운이다 VBA 문자열 내에서 따옴표를 포함

답변

1

Debug.Print=Hyperlink("#'SheetName'!A2","SheetName")

link = "=Hyperlink(""#'" & (ThisWorkbook.Worksheets(i).Name) & "'!A" & j & """,""" & (ThisWorkbook.Worksheets(i).Name) & """)" 

은 얻을 것이다. 이것은 당신이 당신의 현재 코드 ( j = 1 가정 및 ThisWorkbook.Worksheets(i).Name = "Sheet1")로 무엇을 얻을 수 있습니다 :

=Hyperlink("#'Sheet1'!A1,"Sheet1") 

공식은 다음과 같아야합니다 : 그래서

=HYPERLINK("#'Sheet2'!A1","Sheet2") 

... 단지 " 누락 추가 :

link = "=HYPERLINK(""#'" & (ThisWorkbook.Worksheets(i).Name) & _ 
     "'!A" & j & """,""" & (ThisWorkbook.Worksheets(i).Name) & """)" 
+0

굉장. 그 점에 대해 많은 감사를드립니다! –

-1

당신은 당신이 같은 J에서 끌어하려는 작업에 호출해야합니다. 당신의 친구입니다 link

+1

j는 정수이며 속성을 갖지 않습니다. – hstay

+0

누가 그런 말을 했습니까? j가 2에서 LastUsedRow까지 범위 인 것 같습니다. 따라서 j의 값을 호출하려면 j.value를 사용합니다. – AnthonyT

+0

'Dim j As Range' 'j = 2' 언제 작동 할 수 있는지 알려주십시오. – hstay

1

:

For j = 2 To LastUsedRow 

    link = "=Hyperlink(""#'" & (ThisWorkbook.Worksheets(i).Name) & "'!A" & j",""" & (ThisWorkbook.Worksheets(i).Name) & """)" 

많은 감사

+0

입력 해 주셔서 감사합니다 , 잘 작동 지금 –