错误的日期,错误设置或另一对

时间:2015-05-29 10:05:49

标签: excel vba excel-vba date

我对VBa很新,我现在面临一个问题。我有一个多页,有2页,每个框架,每个框架内,我有日期选择器的初始日期和最终日期,名为DTPicker1Li,DTPicker2LI,DTPicker3LI和DTPicker4LI。它们的形式是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

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

提前致谢

1 个答案:

答案 0 :(得分:1)

设置值后只需添加格式:

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