Excel e Outras Coisas (Excel Things)

Agora que se fala cada vez mais na supressão de alguns feriados em Portugal, bem como das "abençoadas pontes" que proporcionam fins de semana prolongados ou autênticas mini-férias, deixo aqui um modelo de cálculo dos feriados móveis e das "pontes" para os próximos 20 anos. A sua utilidade será discutível mas serve sempre como curiosidade de cultura geral. Neste modelo foi considerado que, de um modo geral, os feriados móveis são religiosos e estão indexados ao evento da Páscoa. Assim, o Domingo de Páscoa é por definição o primeiro Domingo de lua cheia após o equinócio de Março (ou da Primavera). No Hemisfério Norte, o equinócio ocorre no dia 20 ou 21 de Março. Deste modo, o Domingo de Páscoa só pode acontecer entre os dias 22 de Março e 25 de Abril. A Terça-feira de Carnaval acontece 47 dias antes do Domingo de Páscoa e o feriado de Corpo de Deus 60 dias após o Domingo de Páscoa e calha sempre numa quinta-feira. O Senhor de Matosinhos é sempre numa terça-...

Para quem pensa que construir um gráfico no Excel é complicado, aqui está uma maneira muito simples de criar gráficos usando a Função REPETIR. Obviamente, não se pode esperar um resultado técnico e/ou visual muito apurado, mas ajuda a resolver pequenos problemas relacionados com a necessidade de apresentação de gráficos. E as possibilidades são imensas, tal como as imagens mostram. For those who think that building a chart in Excel is complicated , here is a very simple way to create charts using the REPT function. Obviously , you can not expect a technical result and / or look very accurate , but it helps to solve minor problems with the need to display graphics . And t he possibilities are endless , as the pictures show . Positive / Negative Barras Verticais (Vertical Bars)

Este é um modelo para gerar um gráfico por cada linha de dados, promovendo assim uma análise individual de cada série de dados. This is a template to generate a chart for each data line, to promote an individual analysis of each data series.   Grafico de Barras Bar Chart Gráfico de Linhas Line Chart Gráfico de Área Area Chart Podemos construir uma tabela de dados de qualquer tamanho e configurar o gráfico como quisermos. Basta alterar os parâmetros assinalados a vermelho no código da macro: We can build a data table of any size and configure the chart as we please . Just change the parameters marked in red in the macro code :   Dim grafico As ChartObject Private Sub Worksheet_SelectionChange(ByVal Target As Range)     If Target.Column < 2 Then Exit Sub     If Target.Column > 14 Then Exit Sub     If Target.Row < 6 Then Exit Sub     If Targe...

Criar uma lista de validação é, para a maior parte dos utilizadores de Excel, uma tarefa muito simples de assimilar. No entanto, a rotina proporcionada pelo Excel tem limitações, dado que a única forma de acrescentarmos novos itens é introduzi-los manualmente e reconfigurar a lista. Por sua vez, a sua reordenação alfabética tem de ser também manual. Aqui está um pequeno exemplo de uma lista de validação que pode ser aumentada e, à medida que vão sendo acrescentados novos itens, estes são automaticamente listados por ordem alfabética. Create a validation list is, for most Excel users , a simple and easy task . However , the routine provided by Excel has limitations , since the only way to add new items is to enter   manually and reset the list . In the same way , their alphabetical reordering must also be manual. Here is a small example of a validation list that can be increased and, as new items are being added , they are automatically listed...

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: ...

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 -...

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....