Definizione di VBA Hyperlink
Il collegamento ipertestuale viene comunemente utilizzato con i siti Web per navigare da una pagina all'altra o da un sito Web a un altro su Internet. Allo stesso modo, possiamo controllare anche i movimenti all'interno del foglio di lavoro Excel. Le diverse operazioni che possono essere eseguite in Excel sono:
- Passare a una posizione specifica all'interno della cartella di lavoro corrente.
- Aprire documenti diversi e selezionare un'area menzionata all'interno del documento.
- Navigazione verso pagine Web dal foglio di lavoro.
- Invio di e-mail a un indirizzo definito.
Il collegamento ipertestuale è facile da riconoscere a causa del suo cambio di colore, principalmente in blu. Esistono diversi metodi per creare un collegamento ipertestuale in Excel e consentire l'utilizzo di VBA.
Come creare un collegamento ipertestuale in Excel utilizzando il codice VBA?
È possibile aggiungere un collegamento ipertestuale a un testo o un foglio in un altro foglio di lavoro all'interno di Excel utilizzando la proprietà aggiungi collegamento ipertestuale. Il formato deve essere seguito specificando dove creare il collegamento ipertestuale e l'URL di navigazione, ecc.
Formato per Aggiungi hyperlink VBA
Il formato mostra i parametri che devono essere forniti per aggiungere un collegamento ipertestuale a un foglio di lavoro.
- Ancoraggio: definisce la cella in cui si desidera creare il collegamento ipertestuale.
- Indirizzo: l'URL in cui deve essere spostata la navigazione.
- (Indirizzo secondario): indirizzo secondario dell'URL.
- (Suggerimento): il valore del puntatore del mouse da mostrare mentre si posiziona un puntatore del mouse.
- (Testo da visualizzare): il testo deve essere visualizzato nella cella.
Utilizzare la proprietà della cella attiva per aggiungere un collegamento ipertestuale.
Seleziona il metodo di aggiunta dall'elenco
Esempi per creare collegamenti ipertestuali in Excel VBA
Di seguito sono riportati i diversi esempi per creare collegamenti ipertestuali in Excel utilizzando il codice VBA.
È possibile scaricare questo modello Excel hyperlink VBA qui - Modello Excel hyperlink VBAEsempio n. 1: creazione di un collegamento ipertestuale dal foglio di lavoro a un sito Web
Vogliamo creare un collegamento ipertestuale dal foglio di lavoro denominato sub a un sito Web utilizzando il codice VBA in Excel.
Di seguito sono riportati i passaggi per creare un collegamento ipertestuale in Excel VBA:
Passaggio 1: creare una funzione denominata hyper per aggiungere il collegamento ipertestuale.
Codice:
Private Sub hyper () End Sub
Passaggio 2: utilizzare l'oggetto Cella attiva per aprire il metodo di aggiunta del collegamento ipertestuale.
Codice:
Private Sub hyper () ActiveCell.Hyperlinks.Add (End Sub
Passaggio 3: fornire i valori dei parametri al metodo di aggiunta del collegamento ipertestuale.
Codice:
Sottotitolo privato () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "è un collegamento ipertestuale", TextToDisplay: = "Excel Training" End Sub
- Ancora: nome del foglio di lavoro
- Indirizzo: collegamento ipertestuale al punto in cui deve essere navigato il controllo, dato l'indirizzo del sito Web
- Suggerimento: il testo del puntatore del mouse
- TextToDisplay: a quale testo deve essere assegnato il collegamento ipertestuale
Passaggio 4: Premi F5 o il pulsante Esegui sotto VBE per eseguire questo codice e vedere l'output.
Viene selezionato l'intervallo di celle A1 e il testo viene assegnato con un collegamento ipertestuale, una volta fatto clic sul testo "Excel Training" verrà reindirizzato al sito Web https://www.educba.com/. Quando si sposta il puntatore del mouse accanto al testo, verrà visualizzato il testo del puntatore del mouse.
Esempio n. 2: collegamento ipertestuale per la connessione di due fogli di lavoro
Abbiamo due fogli di lavoro chiamati Home e sub . Proviamo a creare un collegamento ipertestuale da sub a home usando il codice VBA.
Seguire i passaggi seguenti per creare un collegamento ipertestuale da un foglio di lavoro a un altro all'interno della stessa cartella di lavoro utilizzando il codice VBA.
Passaggio 1: creare una funzione, in cui scriveremo tutti i codici per eseguire l'azione. Scrivi il codice per selezionare il 'sotto' foglio di lavoro usando il metodo di selezione del foglio di lavoro.
Codice:
Private Sub hyper1 () Fogli di lavoro ("sub"). Seleziona End Sub
Poiché il controllo si sposta all'interno del foglio, è necessario selezionare il foglio di lavoro in cui si sta creando il collegamento ipertestuale.
Passaggio 2: selezionare l'intervallo di celle all'interno del foglio in cui si desidera creare il collegamento ipertestuale.
Codice:
Private Sub hyper1 () Fogli di lavoro ("sub"). Seleziona Range ("A1"). Seleziona End Sub
Passaggio 3: ora aggiungiamo il collegamento ipertestuale utilizzando la proprietà della cella attiva.
Codice:
Private Sub hyper1 () Fogli di lavoro ("sub"). Seleziona Range ("A1"). Seleziona ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Fai clic per spostare il foglio di casa" End Sub
Poiché il foglio di lavoro è già selezionato, Anchor viene indicato come "Selezione". Il collegamento ipertestuale è specificato come foglio "Home" e intervallo A1.
Passaggio 4: eseguire il codice e il foglio secondario verrà mostrato il collegamento ipertestuale come di seguito.
Passaggio 5: Dopo aver fatto clic sul testo, il controllo verrà spostato nel foglio " Home ". E verrà selezionata la cella A1.
Esempio n. 3: collegamento ipertestuale con più fogli di lavoro
Se si desidera creare un collegamento ipertestuale su più fogli di lavoro, è anche possibile. In questo esempio, abbiamo più fogli all'interno della stessa cartella di lavoro. Esistono diversi tipi di funzioni Excel dal foglio di lavoro principale "Funzioni". Proviamo a creare un collegamento ipertestuale al diverso foglio di lavoro denominato con diverse funzioni utilizzando il codice VBA:
I fogli di lavoro multipli sono denominati come di seguito con nomi di funzioni Excel diversi
Poiché desideriamo creare un collegamento ipertestuale per ciascun foglio di lavoro, è difficile ripetere il codice. Seguire i passaggi seguenti per creare un collegamento ipertestuale utilizzando il codice VBA in Excel:
Passaggio 1: creare una variabile per gestire facilmente il foglio di lavoro.
Codice:
Sottotitolo privato hyper2 () Dim ws As Sub foglio di lavoro Fine
Passaggio 2: ora vogliamo selezionare la pagina principale che funge da pagina indice e selezionare l'intervallo di celle A1.
Codice:
Private Sub hyper2 () Dim ws As Fogli di lavoro ("Funzioni"). Seleziona Range ("A1"). Seleziona End Sub
Passaggio 3: per spostarsi tra più fogli di lavoro e collegamenti ipertestuali, stiamo creando un per ogni ciclo. A1 è già selezionato come cella attiva, quindi creando un collegamento ipertestuale da questo.
Codice:
Sub2 privato Hyper2 () Dim ws Asheheet fogli di lavoro ("Funzioni"). Seleziona intervallo ("A1"). Seleziona per ciascuno ws in ActiveWorkbook.Worksheets ActiveCell.Hyperlink.Add Anchor: = ActiveCell Next ws End Sub
Passaggio 4: fornire i valori dei parametri per creare un collegamento ipertestuale per ciascun foglio di lavoro. Poiché il collegamento ipertestuale inizia dall'ancoraggio della cella attiva = cella attiva, l'indirizzo viene indicato come "" .
Codice:
Sub2 privato Hyper2 () Dim ws Asheheet fogli di lavoro ("Funzioni"). Seleziona intervallo ("A1"). Seleziona per ciascuno ws in ActiveWorkbook.Worksheets ActiveCell.Hyperlink.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub
Passaggio 5: il collegamento ipertestuale viene eseguito il ciclo attraverso il foglio di lavoro, quindi dovremmo fornire l'indirizzo secondario come nomi dei fogli. Per ottenere i nomi dei fogli possiamo usare la variabile ws e l'intervallo di celle come A1. Il nome del foglio avrà fatto riferimento con una singola citazione. Il nome e l'intervallo del foglio verranno specificati e chiusi anche con una singola citazione.
Codice:
Hyper2 privato (2) Dim ws As fogli di lavoro del foglio di lavoro ("Funzioni"). Seleziona intervallo ("A1"). Seleziona per ciascuno di essi in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", indirizzo secondario: = "" & ws.Name & "! A1" & "" Successivo ws End Sub
Passaggio 6: per ottenere il collegamento ipertestuale con il nome del foglio, si ottiene TextToDisplay come ws.Name
Codice:
Sottotitoli secondari privati2 () Dim ws as fogli di lavoro ("Funzioni"). Seleziona intervallo ("A1"). Seleziona per ciascuno ws in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", indirizzo secondario: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Successivo ws End Sub
Questo codice memorizzerà il collegamento ipertestuale per ciascun foglio di lavoro nella stessa cella A1.
Passaggio 7: per modificare questo ogni foglio in una cella diversa giù una cella dalla cella attiva.
Codice:
Hyper2 privato (2) Dim ws As fogli di lavoro del foglio di lavoro ("Funzioni"). Seleziona intervallo ("A1"). Seleziona per ciascuno di essi in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", indirizzo secondario: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Seleziona Next ws End Sub
Passaggio 8: eseguire il programma e ciascun nome del foglio verrà visualizzato sul foglio 'Funzioni' e facendo clic su di esso il controllo si sposterà sul foglio corrispondente.
Cose da ricordare
- Proprietà del collegamento ipertestuale della cella attiva utilizzata per creare collegamenti ipertestuali in VBA.
- Il collegamento ipertestuale aiuta a spostarsi facilmente all'interno della cartella di lavoro.
Articoli consigliati
Questa è una guida ai collegamenti ipertestuali VBA. Qui apprendiamo come creare collegamenti ipertestuali nel foglio di lavoro usando il codice VBA per spostarsi rapidamente da un foglio a un altro insieme ad alcuni esempi pratici e modello scaricabile di Excel. Puoi anche consultare i nostri altri articoli suggeriti:
- Introduzione ai loop VBA
- Rimuovi collegamenti ipertestuali in Excel
- Pausa VBA per Loop
- Trova collegamenti esterni in Excel