Se pretendermos, ao abrir um workbook, que a célula (resultado da diferença entre duas datas) que contenha um resultado igual ou superior a x dias (no exemplo, 27) apresente uma coloração ( no exemplo, azul) e um comentário, que desaparecerão (coloração e comentário) se a diferença for inferior, como no exemplo: podemos utilizar o seguinte Código: Private Sub Workbook_Open() Dim r As …
Read More »Posts Recentes
Comments
Uma pequena adaptação ao post anterior para mostrar como é que se pode apresentar, no comentário, quantos dias já passaram sobre determinada data (cfr. exemplo): O Código, adaptado: Private Sub Workbook_Open() Dim r As Long Dim temp, temp1 As String temp = "Atenção!!! Já passaram " temp1 = " dias sobre o início da baixa!" For r = Range("C1:C10").Count …
Read More »Ordenação por escolha. Utilização de InputBox
Se pretendermos efectuar uma ordenação por escolha através de uma InputBox, como no exemplo: para o resultado: ou: para o resultado: podemos utilizar o seguinte código: Sub Ordena()'' Macro recorded 04-04-2007 by JRod' ' Dim Choice As String Choice = InputBox("Ordenar por:") If Choice = "data" Then Range("A2:B6").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ElseIf Choice …
Read More »Funções de Data
A propósito de uma questão que me foi formulada por e-mail sobre funções de Data, mostro, de seguida, algumas aplicações dessas funções, nomeadamente das Funções DATE(), DAY() e EOMONTH(), esta última incluída no Add-In Analysis ToolPak e ainda da sua conjugação com a Função ROWS() e com a Função TEXT(). Nos exemplos, pretende-se mostrar como se pode apresentar o último …
Read More »A Função INDIRECT()
Abaixo, mostro uma utilização curiosa da Função Indirect(), em B13, utilizando o operador de intersecção ESPAÇO (caracter espaço):
Read More »MEDC 2007 Europe
MDC 2007 Europe nos dias 26 e 26 de Junho 2007 No The Maritim proArte Hotel, Berlin, Germany A MEDC é a conferência anual dedicada ao Mobile e Tecnologias Embedded, desenhada para Programadores e outros profissionais que procurem trazer maior inovação às suas aplicações e soluções nestas áreas.
Read More »Bem-vindo ao EXCELer.org
Bem-vindo ao Site EXCELer.org, o primeiro Site pessoal sobre EXCEL em Portugal, pertencente a Jorge Rodrigues – Microsoft Excel MVP. Esperamos que encontre aqui alguma ajuda que lhe seja ou possa vir a ser útil. Pode colocar as suas questões, directamente no forum. Obrigado. A equipa do EXCELer.org
Read More »