[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기

목적
: 각셀에 하이퍼 링크 파일을 걸어주기

실행결과
: 순환하면서 해당 셀의 값을 기초로 각 파일의 하이퍼 링크를 걸어준다.

코드

Sub hyperlinksub()      Dim wb As Workbook      Dim template_sheet, format_sheet, skill_sheet, jobdef_sheet As Worksheet      Dim pre_file_name, file_name, job_title, skill_value, jfg_value, vp_file_check As String      Dim template_row As Integer, template_col As Integer      Dim i, j, k, skill_length, skill_competency, skill_description, tb_value, tb1_col, end_num As Integer      Dim varTmp() As String      Dim skillTmp() As String                Set template_sht = Sheets("R&D")            template_row = template_sht.UsedRange.Rows.Count      template_col = template_sht.UsedRange.Columns.Count                  For i = 3 To template_row          If Not IsEmpty(template_sht.Rows(i).Columns(8).Value) Then              file_name = Mid(template_sht.Rows(i).Columns(8).Value, 5, 9)              template_sht.Hyperlinks.Add Anchor:=template_sht.Rows(i).Columns(8), Address:="연구개발\" & file_name & ".xlsx"          End If      Next        End Sub