Sommario
Crea indice di collegamento ipertestuale di tutti i fogli di lavoro nella cartella di lavoro
Prendiamo la Macro per elencare tutti i fogli in una cartella di lavoro un passo avanti e creiamo un menu con collegamento ipertestuale per ogni foglio in una cartella di lavoro. Questo è un ottimo risparmio di tempo per qualcuno che ha molti fogli e sta cercando di creare manualmente un menu di collegamenti ipertestuali a ciascuno di essi.
Per utilizzare la macro basta sostituire la parola Foglio1 (appare due volte) nel codice con il nome della scheda in cui si desidera ottenere i risultati. Assicurati che non ci siano informazioni importanti nella scheda di output perché cancella i dati prima di scriverci. Dopo l'esecuzione della macro, viene creato un elenco di ogni foglio con un collegamento ipertestuale a ciascun foglio.
| 1234567891011121314151617181920 | Fogli sottolista()Dim ws come foglio di lavoroDim x As Integerx = 1Fogli("Foglio1").Intervallo("A:A").CancellaPer ogni ws nei fogli di lavoroFogli("Foglio1").Celle(x, 1).SelezionaFoglio attivo.Collegamenti ipertestuali.Aggiungi _Ancora:=Selezione, Indirizzo:="", Sottoindirizzo:= _ws.Name & "!A1", TextToDisplay:=ws.Namex = x + 1Avanti wFine sottotitolo |
