Página 1 de 1

Macro com resultado não previsto

Enviado: Qui Set 10, 2015 8:11 am
por walsug
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

Re: Macro com resultado não previsto

Enviado: Qui Set 10, 2015 9:33 am
por Reinaldo
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)

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

Enviado: Qui Set 10, 2015 2:02 pm
por walsug
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.

Re: Macro com resultado não previsto

Enviado: Qui Set 10, 2015 2:37 pm
por Reinaldo
Pode postar seu modelo de planilha, com alguns dados e a rotina