vba) 행마다 각 시트로 링크 생성하기

'링크를 생성할 셀 가로 갯수. 예: 2일경우 가로 두칸 모두 동일한 링크 생성

Sub sub링크생성(Optional a = 1)

   '선택셀에 데이터 존재 확인

   Do While Selection.Offset(0, 1).Value <> ""

      

      '하이퍼 링크 생성

         '링크 생성할 셀 크기 설정

            '링크 주소 설정

               '링크 주소값. 주소는 선택한 셀값에 적힌 시트명으로 설정됨.

      ActiveSheet.Hyperlinks.Add Anchor:= _

         Selection.Resize(1, a), Address:="", _

            SubAddress:= _

               Selection.Offset(0, 0).Value & "!A1"

      

      아래셀 선택

      Selection.Offset(1, 0).Select

   Loop

End Sub