Collegamenti ipertestuali VBA - Come creare un collegamento ipertestuale in Excel utilizzando il codice VBA?

I collegamenti ipertestuali sono URL collegati a un valore che viene visualizzato quando si passa il mouse su di esso e quando si fa clic su di esso l'URL viene aperto, in VBA abbiamo una proprietà incorporata per creare collegamenti ipertestuali in VBA e per utilizzare questa proprietà usiamo il metodo Aggiungi insieme l'istruzione del collegamento ipertestuale per inserire un collegamento ipertestuale in una cella.

Collegamenti ipertestuali in Excel VBA

Anche se abbiamo i tasti di scelta rapida Pagina su e Pagina giù in Excel per spostarci da un foglio all'altro, ma diventa complesso quando dobbiamo passare da 10 a più fogli di lavoro. È qui che entra in gioco la bellezza di "Collegamenti ipertestuali in Excel". Il collegamento ipertestuale è un URL predeterminato che ti porta alla rispettiva cella o foglio di lavoro come assegnato.

Sappiamo tutti come creare collegamenti ipertestuali nel foglio di lavoro per passare rapidamente da un foglio a un altro e puoi anche andare a qualsiasi altro foglio. Ma nell'articolo di oggi, ti mostreremo come creare collegamenti ipertestuali utilizzando la codifica VBA.

La formula dei collegamenti ipertestuali VBA

Diamo un'occhiata alla formula dei collegamenti ipertestuali in Excel VBA.

  • Ancora: in quale cella desideri creare un collegamento ipertestuale.
  • Indirizzo: qual è l'URL del collegamento ipertestuale per navigare?
  • (Indirizzo secondario): qual è la posizione della pagina?
  • (Suggerimento sullo schermo): qual è il valore da visualizzare quando si posiziona il puntatore del mouse sul nome o sulla cella del collegamento ipertestuale?
  • (Testo da visualizzare): qual è il test da visualizzare nella cella? Ad esempio, Nome foglio di lavoro.

Come creare collegamenti ipertestuali in Excel VBA?

Supponiamo di voler creare un collegamento ipertestuale VBA al foglio denominato "Foglio principale" dall'altro foglio "Esempio 1".

Nel foglio di lavoro "Esempio 1" e nella cella A1, creerò il collegamento ipertestuale utilizzando Codice in VBA.

Passaggio 1: selezionare innanzitutto la cella A1 del foglio di lavoro Esempio 1.

Codice:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleziona Intervallo ("A1"). Seleziona End Sub

Passaggio 2: ora, utilizzando i collegamenti ipertestuali aperti dell'oggetto Cella attiva. Aggiungi metodo.

Codice:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleziona Range ("A1"). Seleziona ActiveCell.Hyperlinks.Add (End Sub

Passaggio 3: il primo argomento è "Anchor", ovvero in quale cella dovremmo collegarci per creare il collegamento ipertestuale VBA. In questo caso, la cella A1 e poiché abbiamo già selezionato la cella A1 per menzionarla come "Selezione".

Codice:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleziona Intervallo ("A1"). Seleziona ActiveCell.Hyperlinks.Add (Selection, End Sub

Passaggio 4: non stiamo creando alcun indirizzo qui, quindi ignora l'indirizzo per ora.

Codice:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleziona Intervallo ("A1"). Seleziona ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", End Sub

Passaggio 5: il prossimo è l'indirizzo secondario. Qui dobbiamo menzionare a quale foglio ci riferiamo e la prima cella di quel foglio.

Codice:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleziona Intervallo ("A1"). Seleziona ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", End Sub

Ho menzionato il nome del foglio come "Foglio principale" e in quel foglio l'indirizzo della cella è "A1".

Passaggio 6: ignora anche il suggerimento sullo schermo. Per visualizzare il testo, menzionare il nome del foglio.

Codice:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleziona Intervallo ("A1"). Seleziona ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", TextToDisplay : = "Main Sheet" End Sub

Ok, esegui questo codice usando il tasto F5 o manualmente. Quindi, creerà un collegamento ipertestuale nella cella A1 del foglio "Esempio 1".

Quando si fa clic sul collegamento ipertestuale "Foglio principale", viene reindirizzato al foglio principale.

Collegamenti ipertestuali di più fogli con loop

Abbiamo visto la creazione di un collegamento ipertestuale VBA per un foglio. Quando abbiamo molti fogli, non è facile creare un collegamento ipertestuale VBA per ogni foglio con la stessa riga di codice per ogni foglio.

Supponi di avere 11 fogli di lavoro, come mostrato nell'immagine sottostante.

Si desidera creare un collegamento ipertestuale per ogni foglio nel foglio indice utilizzando il codice VBA.

Passaggio 1: definire la variabile come foglio di lavoro.

Codice:

Sub Create_Hyperlink () Dim Ws As Worksheet End Sub

Passaggio 2: la prima cosa è selezionare l'indice del foglio di lavoro e selezionare la cella A1.

Codice:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select End Sub

Step 3: Now open For Each Loop in VBA.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets Next Ws End Sub

Step 4: Since we have already selected the cell A1 it is now an active cell. So start the hyperlink with the active cell.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add( Next Ws End Sub

Step 5: Anchor is a hyperlink cell. So it is the active cell.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Next Ws End Sub

Step 6: Address is nothing mention it as “.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="", Next Ws End Sub

Step 7: Subaddress is when we loop through the sheet, it should be the sheet name. To refer to the sheet name, we need a single quote, “’” with sheet name and “! Cell Address,” and close the sheet name with a single quote “’.”

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="",SubAddress:=""& Ws.Name&"!A1"&"", Next Ws End Sub

Step 8: Ignore Screen tip, and for Text to display, you can enter the worksheet name.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=Ws.Name Next Ws End Sub

Passaggio 9: per memorizzare il collegamento ipertestuale di ciascun foglio in una cella diversa, ogni volta che viene creato un collegamento ipertestuale per un foglio, è necessario spostarsi verso il basso di una cella dalla cella attiva.

Codice:

Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Select Range ("A1"). Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", ScreenTip: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0) .Seleziona Next Ws End Sub

Questo creerà un collegamento ipertestuale di tutti i fogli nel foglio Indice. Questo codice è dinamico ogni volta che viene aggiunta o eliminata dei fogli. Dobbiamo eseguire questo codice per avere un collegamento ipertestuale aggiornato.

Articoli interessanti...