A "magica" e o macro (código VBA) que está na planilha.
Com a planilha aberta tecle Alt+F11, irá abrir o editor VBE, de 2 clicks na linha Plan1(Plan1) (janela superior esquerda)
Esta é a rotina:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim HoraDigitada As String
Dim HoraFormatada As String
Dim Tamanho As Integer
Dim Retorno
Dim Endereço
If Target.HasFormula Then
Exit Sub
End If
If IsNumeric(Target.Value) = False Then
Exit Sub
End If
On Error Resume Next
Application.EnableEvents = False
HoraDigitada = Target.Value
Tamanho = Len(HoraDigitada)
If Tamanho = 1 Then
HoraDigitada = "000" & HoraDigitada
ElseIf Tamanho = 2 Then
HoraDigitada = "00" & HoraDigitada
End If
HoraFormatada = Left(HoraDigitada, Len(HoraDigitada) - 2) & ":" & Right(HoraDigitada, 2)
Target = HoraFormatada
Application.EnableEvents = True
On Error GoTo 0
End Sub
Abra o editor VBE (Alt+F11)da planilha que deseja utilizar, copie o código acima e cole no modulo da planilha desejada.
Qualquer duvida e só retornar.
Postado : 18/11/2014 8:45 pm