Utilizando o Código do post anterior com uma pequena alteração, podemos adicionar mais um pouco de código para tentar simular um blink entre o negro e o encarnado no conteúdo da Label: O Código: Option Explicit Private Sub UserForm_Initialize() Dim dblTotal As Double Dim strTotal As String strTotal = Worksheets("Sheet1").Range("A7").Value dblTotal = Worksheets("Sheet1").Range("B7").Value Me.Label1.Caption = strTotal & " " & dblTotal End Sub Private …
Read More »Posts Recentes
Utilização de SUM() em Array
No post anterior, mostrei a utilização da função SUMPRODUCT(). Hoje, para o mesmo exemplo, mostro uma outra via para o mesmo resultado, com a utilização da função SUM(), mas utilizando um Array: Nota: para a obtenção do Array, ou seja, das chavetas que indicam tratar-se de um Array, utilizar as teclas Ctrl + Shift + Enter.
Read More »SUMPRODUCT()
Se pretendermos "contar" uma determinada ocorrência, mas que obedeça, por exemplo a um critério, podemos utilizar a Função SUMPRODUCT() ou SOMARPRODUTO().No exemplo, pretendemos contar o número de vezes em que o nome "joão" aparece na coluna A, obedecendo ao critério de lhe corresponder o algarismo 2 na coluna B:
Read More »Hyperlink personalizado
Normalmente, quando pretendemos colocar um hyperlink numa determinada célula, escrevemos o endereço na mesma: No entanto, se quisermos personalizar um pouco, podemos escrever o que entendermos e depois efectuar a inserção do endereço: Como é fácil verificar, o comentário que aparece mostra o endereço. Contudo, se quisermos que este comentário também esteja personalizado, podemos optar por inserir o hyperlink do …
Read More »UDFs
Às vezes temos necessidade de colocar numa célula o nome do livro activo ou da folha activa. Para isso, podemos construir uma UDF para cada situação, a que chamaremos NomeLivro() e NomeFolha(), respectivamente: Os Códigos: Public Function NomeLivro() Dim livro As String livro = ActiveWorkbook.Name NomeLivro = livroEnd Function Public Function NomeFolha()Dim folha As Stringfolha = ActiveSheet.NameNomeFolha = folhaEnd Function No entanto, se …
Read More »UDF
Como pode ser facilmente observado, se mudarmos o nome da folha, por exemplo, de SHEET1 para TESTE01, nada acontece na célula que contém a função =NomeLF("F"), ou seja, a célula não é actualizada, apesar da alteração efectuada.A maneira mais prática de "provocar" essa actualização, de um modo mais ou menos automático, é incluir no código a instrução Application.Volatile, porque o …
Read More »Somar ocorrências, obedecendo a critérios. Utilização das Funções SUM() e COUNTIF()
Se pretendermos somar determinadas ocorrências, como no exemplo (somar as ocorrências "Mário" e "Amadeu"): podemos utilizar as Funções SUM() e COUNTIF(): =SUM(COUNTIF(A1:A6;{"*Mário*","*Amadeu*"})) Nota: o asterisco (*) é um wildcard porque os nomes fazem parte de uma string que contém mais caracteres; os nomes são "case sensitive" ou seja, não é indiferente começarem por letra minúscula ou maiúscula.
Read More »