Alterando o formato...
 
Notifications
Clear all

Alterando o formato da data no MSExcel via VBA  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
13/04/2010 8:52 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/04/2010 7:22 pm  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/04/2010 10:55 am  

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


ResponderCitar (Quote)
Compartilhar: