No dia 2 de Fevereiro, apresentei um post com uma fórmula que junta as funções Sumproduct()e Text(), para verificar a quantidade de ocorrências contidas num determinado Range. No entanto, a fórmula apenas funciona correctamente (problema só em relação a "Jan") se o Range estiver completamente preenchido; se houver células em branco, estas são igualmente contadas como se contivessem a ocorrência …
Read More »Posts Recentes
SUMPRODUCT()
Para resolver o problema do mês de Janeiro, por forma a não incluir as células em branco pertencentes ao Range, podemos optar por, pelo menos, mais duas fórmulas diferentes, a partir da Função SUMPRODUCT():
Read More »Trocar a posição do sinal (-)
Se pretendermos trocar a posição do sinal menos (-), podemos utilizar a seguinte fórmula, com a combinação das Funções IF(), ISNUMBER() e SUBSTITUTE(). De notar a inclusão do sinal menos (-) antes da Função SUBSITUTE():
Read More »Ainda a troca de posição do sinal menos (-)
No post anterior, mostrei como se altera a posição do sinal menos (-). Passo agora a mostrar duas novas fórmulas que, igualmente, para além de efectuarem a mudança de posição do sinal menos (-), transformam o valor/texto em valor/valor e, assim, susceptível de se poder efectuar a soma pretendida: Fórmula em B1 (com copy e paste para B2:B4): =IF(ISNUMBER(–A1);–A1;IF(AND(RIGHT(TRIM(A1))="-";ISNUMBER(-SUBSTITUTE(A1;"-";"";1)));-SUBSTITUTE(A1;"-";"");A1)) ou …
Read More »Função CLEAN() ou LIMPARB()
Por vezes, quando importamos dados de outros ficheiros ou aplicações, aparecem-nos caracteres indesejáveis, como seja o caracter de parágrafo, ou outro não imprimível.Uma maneira de apagar este tipo de caracteres, será com a utilização da Função CLEAN() ou, em português, LIMPARB():
Read More »Inserir Comentários em Células
Para inserir o mesmo Comentário em várias células de um determinado Range: Pode utilizar-se (adaptado ao/aos Ranges pretendidos) o seguinte Código: Private Sub Worksheet_Change(ByVal Target As Range) ' Macro para criar um Comentário numa célula Dim rng1 As RangeDim MyCommentDim Cell As RangeMyComment = "Comentário:" & Chr(10) & "Isto é um Teste!" Set rng1 = Intersect(Range("a1:a5"), Target) If Not rng1 …
Read More »Ainda o Comentário
Uma outra abordagem para a inclusão de comentários num determinado Range de células: o exemplo tem a ver com a apresentação, no comentário, da data e da hora da modificação do conteúdo da célula, ou seja, sempre que uma célula do Range é alterada, a data e a hora são actualizadas. O Código: Private Sub Worksheet_Change(ByVal Target As Range) On Error …
Read More »