UDF

No seguimento da publicação anterior, para podermos ver a fórmula que digitámos, em termos de exemplo, podemos utilizar a seguinte função UDF: '--------------------------------------------------------------------------------------- ' Procedure : GetFormula ' Author : JRod ' Date : 02/12/2013 ' Purpose : Fornece a fórmula da célula pretendida '--------------------------------------------------------------------------------------- ' Public Function GetFormula(cell As Range) As String GetFormula = cell.Formula End Function

Eis uma Função UDF, para adicionar anos, meses e dias a uma determinada data:   '--------------------------------------------------------------------------------------- ' Procedure : CalculaData ' Author : JRod ' Date : 01/12/2013 ' Purpose : Utilização da Função VBA DateAdd() ' : Soma Anos, Meses e Dias a uma determinada Data ' : Exemplo da Função numa célula: Em A1: =CalculaData("01-12-2013";5;1;24) ' : Ou …

  Se pretendermos obter o número de dias que determinado mês tem, como no exemplo, podemos utilizar uma UDF (User Defined Function), que, no caso concreto, denominaremos como DiasDoMes(). Se quisermos, anteriormente, obter o número do mês a que corresponderá o mês inserido como texto (cfr. células A2, A3 e A4), conseguiremos o resultado, por exemplo em B2, B3 e …

Por mail, recebi a seguinte pergunta: "Tenho o office 2003 instalado e necessito de colocar numa fórmula mais de sete "IF's" consecutivos, pois estou a comparar valores do mês actual com valores de meses anteriores. Como fazer?"  

Dave Peterson, deu a conhecer uma UDF (Função definida pelo utilizador) que mostra, numa célula, o conteúdo de um comentário de outra célula. No exemplo, a Função chama-se GetComment(): O Código: Public Function GetComment(FCell As Range) As Variant    Application.Volatile        Set FCell = FCell(1)        If FCell.Comment Is Nothing Then        GetComment = “”    Else        GetComment = FCell.Comment.Text    End If    End Function