digitar horas sem t...
 
Notifications
Clear all

digitar horas sem ter que colocar : (dois pontos)

6 Posts
3 Usuários
0 Reactions
3,069 Visualizações
(@thalesrap)
Posts: 10
Active Member
Topic starter
 

Pessoal, sou novo aqui e estou precisando muito de ajuda...
Não intendo de programar no excell
Sou bem básico...
Mas estou precisando de um passo a passo ou se possível até uma planilha que me ajude a digitar horas sem ter que colocar os : (dois pontos)
ex:

Preciso digitar 12:30 e gostaria de digitar direto 1230 e sair com os dois pontos para conseguir calcular.

alguém poderia me esclarecer da forma mais didática possível ou se melhor uma planilha para que eu possa observar a logica.

obrigado.

 
Postado : 18/11/2014 2:07 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use a pesquisa do fórum!
viewtopic.php?t=4616

Ou

http://www.google.com.br/cse?cx=partner ... s%20pontos

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/11/2014 2:45 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Segue um modelo

Reinaldo

 
Postado : 18/11/2014 7:10 pm
(@thalesrap)
Posts: 10
Active Member
Topic starter
 

Reinaldo muito obrigado...
Resolveu como magica. Mas preciso de mais uma ajuda... Precisaria transportar esse seu comando para a minha planilha que é extensa com e toda formatada já. Teria como?

 
Postado : 18/11/2014 7:35 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

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.

Reinaldo

 
Postado : 18/11/2014 8:45 pm
(@thalesrap)
Posts: 10
Active Member
Topic starter
 

Mestre Reinaldo!!!
Muito obrigado meu caro!!!
Não sabe como isso vai me ajudar!
Te agradeço d+ e fico te devendo uma...

Grande abraço e uma boa noite.

 
Postado : 18/11/2014 9:17 pm