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 »Posts Recentes
Interior.ColorIndex & Comments
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 »Ordenação por escolha. Utilização de InputBox
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 »Funções LEFT() e RIGHT(), LEN() e FIND()
Se pretendermos extrair um determinado conteúdo de uma célula que contém letras e números, como no exemplo: podemos utilizar, no primeiro caso, as Funções LEFT() e FIND() e no segundo, as Funções RIGHT(), LEN() e FIND():
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 »