Excel: Segundos s/ digitar 0 e : antes

[TELEFONIA FIXA]

Pessoal precisava digitar minutos e segundos gastos em contas telefonicas em uma planilha, mas tinha que arrumar um jeito de formatar a celular pra não precisar toda hora digitar 06 numeros e 02 sinal de 02 pontos

Ex: pra digitar 19 seguntos eu preciso digitar tudo isso= 00:00:19 queria poder digitar somente: 19 e ja formasse 00:00:19.

Ou ainda 01 minuto e 19 segundos com virgulas e virasse 02 pontos

Ex: 1,42 = 00:01:42 entenderam:D:D

[Visitante]

experimente formatar as células para:

Formatar células >> Número >> Personalizado >> Tipo: 00":"00":"00

[TELEFONIA FIXA]

experimente formatar as células para:

Formatar células >> Número >> Personalizado >> Tipo: 00":"00":"00

Deu certo, valeu mas fiquei confuso com outra situação eu precisava somar tipo:

00:00:20+00:00:20+00:00:20+00:00:20+00:00:20 = 00:01:40

em vez de dar 01 minhto e 40 segundos ta dando 01 minuto só(00:01:00)

Se sabe como faço auto soma ai que mostre a quantidade de minutos?????

[deejaywesley]

Boa Noite!

Tentando ajudar

use esse codigo!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim TimeStr As String

On Error GoTo EndMacro

If Application.Intersect(Target, Range("B2:B32")) Is Nothing Then

Exit Sub

End If

If Target.Cells.Count > 1 Then

Exit Sub

End If

If Target.Value = "" Then

Exit Sub

End If

Application.EnableEvents = False

With Target

If .HasFormula = False Then

Select Case Len(.Value)

Case 1 ' e.g., 1 = 00:01 AM

TimeStr = "00:00:0" & .Value

Case 2 ' e.g., 12 = 00:12 AM

TimeStr = "00:00:" & .Value

Case 3 ' e.g., 735 = 7:35 AM

TimeStr = "00:0" & Left(.Value, 1) & ":" & _

Right(.Value, 2)

Case 4 ' e.g., 1234 = 12:34

TimeStr = "00:" & Left(.Value, 2) & ":" & _

Right(.Value, 2)

Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45

TimeStr = "0" & Left(.Value, 1) & ":" & _

Mid(.Value, 2, 2) & ":" & Right(.Value, 2)

Case 6 ' e.g., 123456 = 12:34:56

TimeStr = Left(.Value, 2) & ":" & _

Mid(.Value, 3, 2) & ":" & Right(.Value, 2)

Case Else

Err.Raise 0

End Select

.Value = TimeValue(TimeStr)

End If

End With

Application.EnableEvents = True

Exit Sub

EndMacro:

MsgBox "Digite a hora sem os pontos"

Application.EnableEvents = True

End Sub

ele coloca os 0 e os : você so precisa digitar os numeros

1 --------------- 00:00:01

12 -------------- 00:00:12

123 ------------- 00:01:23

1234 ------------ 00:12:34

12345 ----------- 01:23:45

123456 ---------- 12:34:56

ele esta configurado para a coluna B

altere esta linha

If Application.Intersect(Target, Range("B2:B32")) Is Nothing Then

conforme sua necessidade

espero ter ajudado!

um abraço!

[Visitante]

a sugestão anterior, formatando as células, somente mostra os números com "aparência" de hora, então inserindo 1025 será mostrado 10:25 mas isso não é hora, continua sendo o número 1025

para trabalhar com horas, efetuar cálculos, utilize a fórmula abaixo em uma coluna auxiliar, por exemplo na coluna 'B'; arraste para baixo se precisar

1. formate a coluna 'A' para Texto

2. insira na coluna 'A' sempre a hora ou com 2 ou com 4 ou com 6 dígitos, exs. 15seg >> 15, 3seg >> 03, 12min37seg >> 1237, 5min9seg >> 0509, 10h7min3seg >> 100703, 2h6seg >> 020006

3. formate a coluna auxiliar 'B' para hora

=SE(A1="";"";SE(NÚM.CARACT(A1)=2;"00:00:"&A1;SE(NÚM.CARACT(A1)=4;"00:"&ESQUERDA(A1;2)&":"&DIREITA(A1;2);ESQUERDA(A1;2)&":"&EXT.TEXTO(A1;3;2)&":"&DIREITA(A1;2)))+0)

[TELEFONIA FIXA]

Ai postei no 04 Shared:

http://www.4shared.com/file/7M6znW5R/DIGITAR_MINUTO_OU_SEGUNDO.html

Se puder testar as sugestões, e me enviar pelo 4Shared de volta,

Deejaywesley, mesmo se colocar ai na Planilha,se puder me ensinar passo a passo como inserir esse codigo,precisava aprender pois muitos codigos postados assim aqui no forum, eu precisei e nao sei como fale-lo

[deejaywesley]

Olá veja o ex:

http://www.4shared.com/file/UOcO1s9v/AJUDA_732.html

quanto a usar os codigo

com a planilha aberta aperte Alt+F11

na janela que se abre, do seu lado esquerdo você verá

EstaPasta_de_trabalho

Plan1 (Plan1)

Plan2 (Plan2)

Plan3 (Plan3)

e mais se tiver mais na planilha

clique com o botao direito do mouse em um, e depois em exibir codigo!

se você clicar na Plan1 (Plan1) deste ex que postei, e pedir para

exibir o codigo, você vai ver o codigo q postei antes...

ah! alguns codigos que precisa de ser colocados em modulos

para inserir um modulo, o esquema é o mesmo, clica com o direito inserir modulo e cola o codigo!

espero ter ajudado!

[TELEFONIA FIXA]

Olá veja o ex:

http://www.4shared.com/file/UOcO1s9v/AJUDA_732.html

quanto as usar os codigo

com a planilha aberto aperte Alt+F11

na janela que se abre, do seu lado esquerdo você verá

EstaPasta_de_trabalho

Plan1 (Plan1)

Plan2 (Plan2)

Plan3 (Plan3)

e mais se tiver mais na planilha

clique com o botao direito do mouse em um, e depois em exibir codigo!

se você clicar na Plan1 (Plan1) deste ex que postei, e pedir para

exibir o codigo, você vai ver o codigo q pestei

ah! alguns codigos que precisa de ser colocados em modulos

para inserir um modulo, o esquema é o mesmo, clica com o direito inserir modulo e cola o codigo!

espero ter ajudado!

Valeu vou testar ja

Muito bom era isso que eu queria, eu simplesmente modifiquei a soma ao limite de a1:a32 e colei na minha planilha oficial, vou adiantar o trabalho que preciso fazer, depois vou aprender a inserir o codigo e espero poder contar com vocês se complicar, por enquanto muito obrigado:cool:

[Douglas]

Conforme solicitado, estamos reabrindo este tópico!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.