No Excel tenho a seguinte situação :
09/01/2015 00:04 9 1 2015 00:04:00
09/01/2015 00:05 9 1 2015 00:05:00
09/01/2015 00:05 9 1 2015 00:05:00
09/01/2015 00:06 9 1 2015 00:06:00
Na parte da esquerda en negrito temos quatro linhas do Excel com a data e horas juntas (coluna A). Ao lado deles, temos mês, dia, ano e horas separadas (colunas B a E). Foi usado separador de colunas passo a passo manualmente (Dados --> Texto para Colunas --> ...).
Então foi feita um macro seguindo passo a passo no item anterior. Abaixo o resultado após rodar a macro.
09/01/2015 00:04 9 1 2015 12:04:00 AM
09/01/2015 00:05 9 1 2015 12:05:00 AM
09/01/2015 00:05 9 1 2015 12:05:00 AM
09/01/2015 00:06 9 1 2015 12:06:00 AM
Observamos que temos a data igual ao primeiro exemplo e horas aparece no sistema americano.
Então para que rodemos um macro e que apresentem os resultados do primeiro exemplo, qual(is) modificações devo fazer ?
Segue abaixo o macro do segundo exemplo :
Sub Macro1()
'
' Macro1 Macro
''
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
"/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro com resultado não previsto
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Macro com resultado não previsto
Aparentemente nada errado, no teste que efetuei não ocorreu o relatado; creio eu que a rotina tenderá utilizar as configurações de seu sistema operacional.
Experimente então acrescentar uma formatação na coluna apos o texttocolum.(ou mesmo antes)
Experimente então acrescentar uma formatação na coluna apos o texttocolum.(ou mesmo antes)
Código: Selecionar todos
Sub Macro1()
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
"/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
Columns("E:E").Select
Selection.NumberFormat = "h:mm:ss"
End Sub
Re: Macro com resultado não previsto
Obrigado por responder, mas o resultado continua como no sistema americano (AM / PM) após rodar Macro. Já tentei no computador do trabalho, de casa, mas continua mesma coisa.
Onde temos por exemplo 0:05, deveria também na separação dar 0:05, mas aparece dando 12:05 AM usando o Macro. Já formatei a coluna no item Fontes, configuraçao para horas, mas sempre me dá resultado no sistema americano.
Mas se eu fizer manualmente no Excel aparece o resultado que quero. Talvez se voce salvar o macro (o excel) e abrir logo em seguida o resultado pode ser em sistema americano.
Onde temos por exemplo 0:05, deveria também na separação dar 0:05, mas aparece dando 12:05 AM usando o Macro. Já formatei a coluna no item Fontes, configuraçao para horas, mas sempre me dá resultado no sistema americano.
Mas se eu fizer manualmente no Excel aparece o resultado que quero. Talvez se voce salvar o macro (o excel) e abrir logo em seguida o resultado pode ser em sistema americano.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Macro com resultado não previsto
Pode postar seu modelo de planilha, com alguns dados e a rotina