>

표시된 텍스트가 선택 될 때 시트와 셀로 이동하는 하이퍼 링크가되도록 텍스트를 표시하려고합니다.

내가 잘못한 것은 무엇입니까?

미리 감사합니다,

If wb.sheets("Coversheet").Cells(lastRowC, 8) <> WS.Cells(i, 5) Then
    wb.sheets("Coversheet").Cells(lastRowC + 1, 2) = "Carrier"
    wb.sheets("Coversheet").Cells(lastRowC + 1, 3) = "Employee with a $0 salary found. Unable to calculate salary based benefits. Please rerun Census report"
    wb.sheets("Coversheet").Cells(lastRowC + 1, 4) = WS.Cells(i, 4).Hyperlinks(1).Address
End If

  • 답변 # 1

    귀하의 경우에는 하이퍼 링크를 만들기 위해 간단히 그렇게하겠습니다. 유연하고 조작하기 쉽습니다.

    Dim hyperlinkLocation As String
    hyperlinkLocation = "[ActiveWorkBook.Name"&".xls]1!A1" '<- 1 is the sheet index (important in your case)   
    
     ActiveWorkSheet.Hyperlinks.Add Anchor:=.(where the link is), Address:=hyperlinkLockation, _ 
            TextToDisplay:=(name of the link)
    
    

관련 자료

  • 이전 PHP - php - ms sql server에 연결
  • 다음 javascript - 사진 라디오 버튼 변경