|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
VBA에서 hyperlink를 지정하는 코드를 짜던 중,
---------------------------------
sub HyperlinkSet()
Dim strTarget As String
Dim rngTarget As Range
Dim 링크하고자하는행 As Integer
strTarget = "WhereToGo"
Set rngTarget = Sheets("Target").Cells(링크하고자하는행,1)
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:= rngTarget, _
TextToDisplay:= strTarget
End Sub
---------------------------------
Hyperlinks.Add의 SubAddress에 제가 원하는 위치(다른시트의 특정영역)를 지정하고 싶은데요.
Address와 SubAddress의 차이점도 잘 모르겠고,
SubAddress를 어떻게 주어야 할지...(위와 같이 하면 에러가 나거든요)
고수님의 답변 부탁드립니다.
그럼 미리 감사드릴께요..꾸벅^^
==============[ist공원님 글에 대한 답변입니다]==============
바쁘신 와중에도 답변 주셔서 감사합니다.
조언해 주신대로, ...Cells(*,*).Address로 바꾸니까 되는데요.
무조건 현재시트에 링크가 됩니다. 저는 shtTarget의 특정한 곳으로 링크하고 싶은데,
Target sheet를 어떻게 주어야 하는지 잘 모르겠습니다.
-------------------------------------------------------------
Sub 일치하는행찾기()
Dim strTarget As String
Dim rngTarget As Range
Dim shtTarget As Worksheet
Dim shtNow As Worksheet
Dim intTargetRow As Integer
strTarget = Selection
Set shtTarget = Sheets("다른시트")
Set shtNow = Sheets("dvd개요목록")
shtTarget.Select
intTargetRow = Cells.Find(what:=strTarget).Row
shtNow.Select
shtNow.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:=shtTarget.Cells(intTargetRow, 2).Address, _
TextToDisplay:=strTarget
Debug.Print intTargetRow
End Sub
|
|