Creare un collegamento ipertestuale all'interno di una cella di Excel?

Question

È possibile creare un collegamento ipertestuale all'interno di una cella di Excel che utilizza solo una sezione del testo della cella per il collegamento cliccabile? OSSIA il mockup della tabella seguente rappresenta qualcosa che può essere facilmente costruito in Excel 2010?

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

So che un'intera cellula può essere trasformato in un collegamento ipertestuale facilmente, ma non una parte specifica della cellula per quanto ne so.

tramite hyperlink mi riferisco anche a uno

• (a) un'altra cella o,
• (b) un URL web.

Grazie

Answer 1

questo non è possibile in Excel. I collegamenti ipertestuali sono associati a intere celle.

Se si guarda allo documentation for the Excel hyperlink object, è possibile vedere che è associato a un intervallo. Se fosse possibile associare i collegamenti ipertestuali con una span all'interno della cella, l'oggetto Collegamento ipertestuale dovrebbe avere un intervallo associato e l'oggetto Characters.

Answer 2

Dopo aver creato il collegamento ipertestuale, è possibile formattare il testo nella cella in modo che solo le parole di interesse siano sottolineate/blu. Il collegamento ipertestuale funzionerà ancora, ma ovviamente puoi ancora avere un solo collegamento per cella e facendo clic in qualsiasi punto del testo verrà attivato il collegamento ipertestuale.

Ad esempio:

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

avevo bisogno di un collegamento a un nome di file visualizzato in una cella, ecco cosa ha funzionato per me:

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

Answer 4

È possibile che uno di linea è stato molto utile ... dal momento che sono nuovo, non ho potuto commentare. Quindi ecco la mia variazione di sopra che prende ogni riga su un foglio di lavoro e crea un URL da un valore sulla riga.

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