Excel e Outras Coisas (Excel Things)

Para o planeamento de tarefas e projecto, utilizo normalmente o MSPROJECT.. Há algum tempo atrás porém, tive necessidade de criar no Excel algo similar, de modo a poder juntar no mesmo ficheiro vários tipos de informação, para que o cliente pudesse usar o mesmo programa e abrir um único ficheiro. Após inúmeras consultas e pesquisas em sites e fóruns da especialidade, consegui criar um modelo de planeamento com gráfico de GANTT, com algumas funções do MSPROJECT, suficientes para satisfazer as necessidades daquele projecto em particular e poder, assim, incluir no ficheiro Excel que enviei ao cliente o respectivo planeamento que, de outro modo, só seria possível apresentando um outro ficheiro do MSPROJECT. O exemplo que aqui apresento está bastante simplificado em relação ao modelo final. A seu tempo mostrarei a evolução e as melhorias que fui incrementando, adaptando-o assim a outras projectos. No entanto, este já permite trabalhar com barras e predecessores, indentação e wbs. Fo

Enviar por Email uma folha de cálculo (criando um novo ficheiro) Email a spreadsheet (creating a new file) Sub Mail_ActiveSheet()     Dim strDate As String     ActiveSheet.Copy     strDate = Format (Date, "dd-mm-yy") & " " & Format (Time, "h-mm-ss")     ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _                         & " " & strDate & ".xls"     ActiveWorkbook.SendMail "nome@domain.com", _                             "Assunto" 'Subject Line     ActiveWorkbook.ChangeFileAccess xlReadOnly     Kill ActiveWorkbook.FullName     ActiveWorkbook.Close False End Sub

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

Imagine que pretende eliminar todas as caixas de texto existentes numa folha de cálculo mas não consegue localizar todas. E se pretender saber, por exemplo, quais as células que contêm formatações condicionais. E se quiser seleccionar as células com fórmulas numéricas ou de texto ou que contenham valores de erro. F5 é uma tecla a partir da qual pode seleccionar o que pretende e, depois, proceder à sua eliminação ou alteração de dados. Por exemplo, se quisermos eliminar todas as imagens existentes: Imagine you want to delete all existing text boxes on a spreadsheet but can not find all of them . And if you want to know, for example , which cells containing conditional formats . And if you wish to select cells with text formulas or numerical or  containing error values. F5 is a key from which you can select what you want and then proceed to their elimination or data changing. For example , if you want to delete all  existing images: 1. Prem

Por vezes, copiamos números de outros programas (Word, PDF, etc.) para Excel e reparamos que os mesmos são colados em formato texto, porque a separação das casas decimais é um ponto em vez de vírgula. Se se trata de uma ou duas células, podemos fazer a substituição manualmente, mas se for uma tabela de dados considerável, vamos perder um tempo precioso a proceder à substituição em cada célula. Existe uma forma rápida de executarmos o procedimento de uma só vez: Sometimes when copy numbers from other programs (Word , PDF , etc. ) to Excel we notice that they are stuck in text format, because decimal separation is a   point instead of comma. Whether it is one or two cells , we can make the substitution manually , but if it is a considerable data table , we will lose valuable time to replace it in each cell. Here is a quick way to execute the procedure once: 1. Seleccionar o intervalo de valores ou células que pretende alterar 2. CTRL+U - abr

Abrir um Ficheiro numa Folha específica Open a workbook in a specific sheet Sub AbrirFicheiro() Dim Ws As Worksheet Dim SProc As String Dim SEncontrar As String Application.ScreenUpdating = False 'Procurar a Folha Específica (Look for the specific sheet) SProc = WorkSheets ("Folha1") .Range ("A1") 'Abrir o livro (Open workbook to look in) Workbooks.Open Filename: ="C:\...\Livro1.xls" ' Procurar em todas as folhas até encontrar a pretendida (Look through each sheet until found the wanted one) For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next SEncontrar = Ws.Cells.Find _ ( What: =SProc, after: =Ws.Cells(1, 1)) .Address If SEncontrar <> "" Then Application.ScreenUpdating = True End If Next Ws End Sub

Existem duas formas de bloquear ou congelar uma determinada área da folha de cálculo, de modo a fixar a sua visualização, sempre que entramos na folha: There are two ways to block or freeze a particular area of the spreadsheet in order to establish their view , whenever we enter the spreadsheet 1. Sobre o separador da folha de cálculo, clicar no botão direito do rato Over the tab of the worksheet , right click the mouse button Escolher "Ver Código" Choose " View Code" Premir F4 Press F4 Em "ScrollArea" editar o intervalo que queremos fixar, por exemplo "G2:AI50" In " ScrollArea " edit the range that we set , for example " G2: AI50 " Premir Alt+Q para fechar a janela VBA Press Alt+Q to close the VBA window Guardar Save 2. Sobre o separador da folha de cálculo, clicar no botão direito do rato Over the tab of the worksheet , right click the mouse button Escolher &

Uma forma de importar ou copiar dados de um livro ("Livro1") fechado para o livro activo ("Livro2"), atendendo a um conjunto de condições. Este exemplo mostra como podemos importar ou copiar um conjunto de dados de um livro para outro, sem ser necessário o recurso a colar e copiar. Para tal, basta colocar este código num módulo VBA e correr a macro. Podemos igualmente associar a macro a uma botão, possibilitando assim a execução do processo através de um único click. A simple way to import or copy data from a closed book (" Livro1 ") for the active workbook (" Livro2 ") , given a set of conditions.   This example shows how we can import or copy data from one workbook to another without requiring the use of copy and paste. Simply put this code in a VBA module and run the macro. We can also associate the macro to a button, allowing the execution of the process through a single click.   Sub ImportarDados ()     Workbooks.

Uma das situações recorrentes na utilização do EXCEL é esconder as linhas em branco que, propositadamente ou não, vamos deixando para trás à medida que construímos uma folha de cálculo. Mais tarde, constatamos que aquelas linhas estariam melhor escondidas. Um opção rápida e consistente é utilizar uma pequena macro em VBA que, mediante um ou mais critérios, permite num só clique escolher as linhas que pretendemos esconder. Aqui deixo três possibilidades: One recurring situations in the use of EXCEL is to hide blank lines that, intentionally or not, we will leave behind as we build a spreadsheet. Later , we found that those lines would be better hidden . One option is to quickly and consistently use a small VBA macro that, through one or more criteria, allows one-click to select the lines you want to hide. Here I leave three possibilities: 1.  Esconder todas as linhas em branco desde a linha 2 até à 65000 Hide all blank lines from the l

Hoje é o início de um projecto que já estava pensado há algum tempo mas que, por manifesta indisponibilidade, foi sendo adiado mês após mês. Penso agora ter as coisas mais ou menos organizadas e, sobretudo, a disponibilidade necessária para poder ir em frente com este desejo antigo. O propósito deste blog é simplesmente partilhar os meus conhecimentos em algumas áreas relacionadas com a minha actividade, em particular a criação de macros e modelos em EXCEL. Sendo esta a minha primeira abordagem no que respeita a blogs, estou convencido que os primeiros posts serão ainda tímidos quanto à forma e conteúdo e que demorará ainda algum tempo até que possa optimizar a página, nomeadamente na suas perspectivas estética e funcional. Vamos ver como corre. Today is the beginning of a project that was thought for some time but, for obvious unavailability, it was being delayed month after month. I now have things more organized and, above all , the availability needed to