Tạo siêu kết nối trong một ô Excel?

Question

Có thể tạo liên kết trong một ô Excel chỉ sử dụng một phần của văn bản ô cho liên kết có thể nhấp không? I E. mockup dưới đây sẽ đại diện cho cái gì đó có thể dễ dàng được xây dựng trong Excel 2010?

a mock up http://dl.dropbox.com/u/14119404/misc/Microsoft%20Excel%20-%20Book1_2012-04-16_14-24-47.jpg

Tôi biết rằng toàn bộ tế bào có thể được làm thành một siêu liên kết một cách dễ dàng, nhưng không phải là một phần cụ thể của tế bào như xa như tôi biết.

By siêu liên kết Tôi cũng đề cập đến một trong hai (a) tế bào khác

• hay,
• (b) một URL web.

Cảm ơn

Answer 1

này là không thể trong Excel. Siêu kết nối được liên kết với toàn bộ ô.

Nếu bạn nhìn vào số documentation for the Excel hyperlink object, bạn có thể thấy rằng nó được liên kết với Phạm vi. Nếu có thể liên kết các siêu liên kết với một khoảng trong ô, thì đối tượng Siêu kết nối sẽ cần có một Dải ô được liên kết và đối tượng Characters.

Answer 2

Sau khi tạo siêu liên kết, bạn có thể định dạng văn bản trong ô để chỉ các từ quan tâm được gạch chân/xanh lam. Siêu kết nối sẽ vẫn hoạt động, nhưng rõ ràng bạn vẫn có thể chỉ có một liên kết cho mỗi ô và nhấp vào bất kỳ vị trí nào trong văn bản sẽ kích hoạt siêu liên kết.

Ví dụ:

Sub Tester() 

    Dim rng As Range 

    Set rng = ActiveSheet.Range("A1") 

    rng.Parent.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:= _ 
     "Sheet1!A10", TextToDisplay:="this is long text" 

    With rng.Font 
     .ColorIndex = xlAutomatic 
     .Underline = xlUnderlineStyleNone 
    End With 

    With rng.Characters(Start:=9, Length:=4).Font 
     .Underline = xlUnderlineStyleSingle 
     .Color = -4165632 
    End With 

End Sub 

Answer 3

tôi cần phải liên kết đến một tên tập tin được hiển thị trong một tế bào, vì vậy đây là những gì làm việc cho tôi:

ActiveSheet.Hyperlinks.Add Anchor:=Cells(row, column), Address:=file.Path, TextToDisplay:=file.Path 

Answer 4

Trên đây lót rất hữu ích ... vì tôi mới, tôi không thể bình luận. Vì vậy, đây là biến thể của tôi ở trên mà phải mất mỗi hàng trên một bảng tính và xây dựng một URL từ một giá trị trên hàng.

CHGRow = 3 
Worksheets("Page 1").Select 
Cells(CHGRow, 1).Select 

Do Until Application.CountA(ActiveCell.EntireRow) = 0 

    URLVal = "https://our_url_here?some_parameter=" & Cells(CHGRow, cNumber) 
    URLText = Cells(CHGRow, cNumber) 
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(CHGRow, cURL), Address:=URLVal, TextToDisplay:=URLText 

    CHGRow = CHGRow + 1 
    Cells(CHGRow, 1).Select 

Loop