Excel e Outras Coisas (Excel Things)

Com o Excel 2007, é muito simples criar uma tabela personalizada. A maioria dos utilizadores comuns desconhece esta ferramenta ou simplesmente não a usa porque pensa que é complicada. Nada de mais errado. With Excel 2007, it's very simple to create a custom table. Most ordinary users don't know about this tool or simply do not use it because they think it is very complicated. Nothing much wrong.  

Encontrei esta maravilha na net por acaso, quando procurava algo completamente diferente para um outro projecto. Terá uma utilidade muito relativa mas achei piada. Este exemplo mostra como criar, através de uma pequena macro, uma guia que realça a linha e a coluna da célula activa, funcionando como uma espécie de coordenada. I found this piece on the net by accident when I was looking for something completely different for another project . It has a very relative usefulness but I found it funny . This example shows how to create, through a small macro, a guide that highlights the row and column of the active cell , working as a sort of coordinates .

Criar um novo ficheiro, a partir do livro existente, exportando ou copiando apenas as folhas de cálculo que desejamos. Create a new file from the existing book , exporting or copying only the worksheets that we desire. Sub ExportarFolhas() Dim wb As Workbook Dim fNome As Variant Worksheets(array ("Folha1", "Folha2")) .Copy   ' cria novo livro (Creates new workbook) Set wb = ActiveWorkbook fNome = Application.GetSaveAsFilename( _  FileFilter: ="Excel Files (*.xla), *.xla", _   Title: ="Especificar Localização:") 'Specify Location for Copy If fNome = False Then  '  Se o utilizador escolhe "cancelar" a cópia é eliminada  ' If user has chosen "cancel" delete the copy  wb.Close Savechanges: = False Else   wb.SaveAs Filename: =fNome   wb.Close Savechanges: = False End If End Sub