Tomando por norma um horário de 8 horas diário, para podermos verificar quanto tempo de atraso (débito) ou de avanço (crédito) temos em determinado dia, como no exemplo abaixo ( horário de 8H:00 e tempo trabalhado 7H:52 [na célula F39], o que dará um défice de 8 minutos), poderemos utilizar o seguinte acervo de fórmulas combinadas: =SE(F39>VALOR.TEMPO(“08:00”);(F39-TEMPO(HORA(F39);0;0))*1440;SE(F39<VALOR.TEMPO(“08:00”);(TEMPO(HORA(F39);MINUTO(F39);0)-VALOR.TEMPO(“08:00”))*1440;0)) Nota: A célula …
Read More »Posts Recentes
Converter ficheiros PDF em formato XLS – How to Turn PDFs into Easily Editable Excel Files for Free
How to Turn PDFs into Easily Editable Excel Files for Free As a format, PDF has a lot going for it. PDF files are very neatly compresses and lightweight, which makes the format ideal for storing information and archiving it. It’s also a universal format, which means that someone viewing a PDF will seeing the exact same thing …
Read More »VBA: WorksheetFunction.Sum() no procedimento Worksheet_Change
Eis um código VBA que me serviu para ir registando quantidades de produtos em determinadas células, fazendo com que, na coluna seguinte e nas células correspondentes, fossem sendo adicionadas essas quantidades às quantidades anteriormente apuradas, como no exemplo – imagem: Option Explicit ‘————————————————————————————— ‘ Procedure : Worksheet_Change ‘ Author : JRod ‘ Date : 03/03/2013 ‘ Purpose …
Read More »UDF: GetFormula()
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
Read More »UDF: Função CalculaData()
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 …
Read More »A Função Environ() – II
Por vezes, podemos ter necessidade de saber qual foi o utilizador que acedeu e quando acedeu a uma determinada worksheet, nomeadamente quando se trabalha em rede. O Código: Private iNextRow As Long Const HIDDEN_SHEET As String = "Sheet3" ' ou outro nome Private Sub Workbook_Open() With Worksheets(HIDDEN_SHEET) .Range("A1").Value = Environ("UserName") .Range("B1").Value = Format(Date + Time, _ "dd mmm yyyy hh:mm:ss") …
Read More »VBA: UDF – Função DiasDoMes()
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 …
Read More »