Macro com resultado não previsto
Enviado: Qui Set 10, 2015 8:11 am
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
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