Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Alterando o formato...
 
Notifications
Clear all

Alterando o formato da data no MSExcel via VBA

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
1,310 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Prezados,

criei um botão e coloquei o seguinte código:

'Atualizando data.
Worksheets("Ficha Descritiva").Range("AQ14") = Format(Now(), "dd/mm/yyyy")

De forma que se for o dia 01/04/2010, deve ser escrito na célula "01/04/2010".
Não consegui entender porque, mas em alguns computadores o mês é invertido com o dia, ficando assim "04/01/2010".

Alguém poderia me ajudar?
Abraços.

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

 
Postado : 13/04/2010 8:52 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Verifique a formatação da celula. pode esta com o formato apontando para mm/dd/yyyy

caso seja necessário forçar, inclua uma linha forçando a formatação correta

Range("A1").NumberFormat = "dd/mm/yyyy"

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

 
Postado : 14/04/2010 7:22 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Já verifiquei a formatação da célula ,configurações regionais do computador e tentei forçar com o código indicado.

Só consegui resolver utilizando o seguinte procedimento:

Worksheets("Ficha Descritiva").Range("AQ14") = "'" & Format(Now(), "dd/mm/yyyy")

Abraços e obrigado.

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

 
Postado : 15/04/2010 10:55 am
Forum Jump:
  Tópico Anterior
Próximo Tópico