错误date，设置错误或另一对

VBa相当新，我现在面临一个问题。 我有一个多页，有2页，在每个框架，每帧我必须dateselect器的初始date和最后的date，名为DTPicker1Li，DTPicker2LI，DTPicker3LI和DTPicker4LI。 他们的forms是frmInserirImpLI。

获取价值

DInicioILI = frmInserirImpLI.DTPicker1LI.Value DFimILI = frmInserirImpLI.DTPicker2LI.Value DInicioLImp = frmInserirImpLI.DTPicker3LI.Value DFimLImp = frmInserirImpLI.DTPicker4LI.Value 

写在Excel的细胞我有

  Range("H" & linhaAEscreverLI) = DInicioILI Range("I" & linhaAEscreverLI) = DFimILI Range("O" & linhaAEscreverLI) = DInicioLImp Range("P" & linhaAEscreverLI) = DFimLImp 

问题是它只传递了两个单元格的正确date。 或者在列H和I中写入正确的date，然后在O和P列中出现： 00-01-1900或者如果date在O和P列中正确显示，它将出现在列H和I中：12: 00-01-1900 : 00-01-1900 12:00:00 AM我做错了什么？

提前致谢

Answer 1

只需在设置值后添加格式：

 Range("H" & linhaAEscreverLI) = DInicioILI Range("H" & linhaAEscreverLI).NumberFormat = "dd/mm/yy"