Criar índice de hiperlink de todas as planilhas na pasta de trabalho
Vamos usar a macro para listar todas as planilhas em uma pasta de trabalho um passo adiante e criar um menu com hiperlink para cada planilha em uma pasta de trabalho. Essa é uma grande economia de tempo para quem tem muitas planilhas e está tentando fazer um menu de hiperlinks para cada uma manualmente.
Para usar a macro, basta substituir a palavra Folha1 (ela aparece duas vezes) no código pelo nome da guia onde deseja os resultados. Certifique-se de que não haja nenhuma informação importante na guia de saída, pois ela limpa os dados antes de gravá-la. Depois que a macro é executada, uma lista de cada folha com um hiperlink para cada folha é criada.
| 1234567891011121314151617181920 | Sub ListSheets ()Dim ws como planilhaDim x As Integerx = 1Folhas ("Folha1"). Intervalo ("A: A"). LimparPara cada ws nas planilhasFolhas ("Folha1"). Células (x, 1) .SelecionarActiveSheet.Hyperlinks.Add _Âncora: = Seleção, Endereço: = "", Subendereço: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Próximo wsEnd Sub |
