엑셀 vba - 하이퍼링크/한번에 하이퍼링크/셀 순서대로 하이퍼링크하기/순차/차례대로 링크걸기

보고서를 작성할때 이미지를 첨부해야하는데 본문 sheet에 작성하면 너무 지저분하다. 

 

그래서 사진은 시트를 만들어서 따로 정리를 하자

 

근데 항목이 100개를 넘어간다면 본문 sheet의 해당하는 사진을 찾는데 시간이 오래걸린다.

 

하이퍼링크를 통해 본문의 해당 내용의 사진으로 연결할 수 있도록 해보자. 

 

코드는 아래와 같다. 

 

---

Sub 하이퍼링크()

sheet_name1 = "Pending_Image"
sheet_column = "!A"

  For i = 31 To 190
 
      sheet_name2 = sheet_name1 & sheet_column & (Cells(i, 2) + 1)
      Cells(i, 3).Select
      Selection.Value = "Image"
      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
      sheet_name2, TextToDisplay:="Image"
     
  Next
  MsgBox ("완료")
 
End Sub

 

---

 

1. 우선 아래와 같이 양식을 준비한다.

   no는 보고서 정리에 있는 필수요소지? 항상있는거니 no 이용해서 원하는 위치로 이동할 생각이다. 

  링크는 하이퍼 링크를 작성할 위치이다. 

 

2. 코드를 돌려준다. 

   코드는 대충 for문 해서 항목 개수를 정하지 않고 대충 31~190 으로 했다.

   31은 no 시작 위치다. 

 

 

 

3. 이제 저링크를 타고 들어가면 내가 원하는 sheet 의 셀 위치로 이동하게된다. 

 링크의 위치는 아래와 같이 sheet_name2 로 이동하게 되는데 

 sheet_name2는 내가 정의한 셀위치 변수다. 

여기서는 pending image 시트의 A열의 no 번호에 맞게 이동한다. 

 즉 본문의 no 번호에 맞게 다른시트의 A열 no 로 이동하게 된다. 

 숫자는 잘조정하면 된다.