UDF

A Função que apresento hoje, mostra a data e a hora da última alteração que uma folha teve: O Código: Public Function DataHora(s As String) As String    Application.Volatile     s = "Última alteração à folha efectuada em: " & Date & "  hora:" & Time     DataHora = s End Function  

À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 …

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 …

Leal Diogo, a propósito de um post meu, datado de 30 do passado mês de Abril, sobre uma UDF [NomeLF()] que devolve o nome da folha, (opção “F”), formulou a seguinte questão: “Se se tiverem 2 folhas em que se faz uso desta função, sempre que se mude o nome de uma das folhas a outra também devolve o mesmo …

Se pretendermos contar quantas células existem num determinado Range e que contenham valores apresentadas numa determinada cor, ou se quisermos somar os valores com a mesma cor contidos nesse mesmo Range, como no exemplo seguinte: , podemos criar duas User Defined Functions (UDF). Por outro lado, para sabermos a que número corresponde cada uma das 56 cores da palette de …