VBA로 숫자형식으로된 셀에 하이퍼링크를 할려고 하면, 위 VBA 문구 중 어떤 부분을 수정해야 하는지요..?

Question

숫자형식의 셀에 하이퍼링크 할 경우, 에러 발생됨 

안녕하십니까...?   아래와 같이 하이퍼링크를 셀에 삽입하는 VBA 문구를 만들어 보았습니다..!

With 번호.Offset(, i)

ActiveSheet.Hyperlinks.Add Anchor:=종목번호.Offset(, i), Address:= _

"http://paxnet.moneta.co.kr/stock/stockIntro/flashChart/markkangChart.jsp?code=" & 번호 & "&wlog_pip=T_Chart", _

TextToDisplay:=.Value: .Font.Size = 8: .Font.Underline = xlUnderlineStyleNone: .Font.ThemeColor = xlThemeColorLight1: .Font.Bold = False

End With

그런데, VBA 를 실행시키면  아래와 같은 오류가 나타납니다.

(특히, "TextToDisplay:=.Value:"  에서 Error 가 나는 것 같습니다.)

참고로, 하이퍼링크를 시킬려는 셀의 경우, 현재 형식이 아래와 같이 숫자로 되어 있습니다.

숫자형식으로된 셀에 하이퍼링크를 할려고 하면, 위 VBA 문구 중 어떤 부분을 수정해야 하는지요..?

참고로,

1. 빈칸도 하이퍼링크를 걸게 할 수 있는데, 왜 숫자형식만 이런 에러가 일어나는지 모르겠습니다.
2. , _

TextToDisplay:=.Value: .Font.Size = 8: .Font.Underline = xlUnderlineStyleNone: .Font.ThemeColor = xlThemeColorLight1: .Font.Bold = False

  이 부분을 삭제하면, 또 하이퍼링크가 또 하이퍼링크가 정상 부여되는 것 같습니다.

숫자라서 하이퍼링커가 안 걸리는지요..?  TextToDisplay:=.Value: 를 포함한 부분을 삭제하면 하이퍼링크가 걸리는데

꼭 숫자라서 하이퍼링커가에서 에러난다고 보기는 힘든 것 같아서 문의 드립니다.

상세한 답변하여 주시면 감사하겠습니다.

Answer 1

안녕하십니까? JaewonLom_6143님

Microsoft Community 사이트를 방문해 주셔서 감사합니다.

문의 하신 VBA 매크로에 대해 안내를 드리겠습니다.

말씀해 주신 VBA 매크로의 경우 프로그래밍에 해당되기 때문에 해당 포럼에서는 지원이 어렵습니다. 불편하시더라도 MSDN 개발자 포럼에 문의하여 도움을 받아 보시기 바랍니다.

http://msdn.microsoft.com/ko-kr/office/

http://social.msdn.microsoft.com/Forums/vstudio/ko-KR/home?forum=visualbasicko

추가적인 내용이 있다면 하단의 [응답] 버튼을 눌러 회신해주시기 바랍니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.

감사합니다.