Excel VBA：使用DatePicker将正确的date写入单元格

我有一个用户窗体中的DatePicker控件。 它工作正常，除了复制选定的date到电子表格。 这是代码：

Range("A1").Value = UserForm1.DTPicker1.Value 

哪个返回：

 00:00:00 

在单元格A1中，不pipeselect了哪个date。

Answer 1

您单元格格式可能设置为时间而不是date。

尝试改变，看看它是否工作。

此外，在此步骤之后，进行格式化“常规”，以查看是否有任何内容已被粘贴到“A1”中。

Answer 2

确保传输数据的命令与DTPicker本身位于多页表单的相同表单或页面中。

出于某种原因，当两者分离时，它不会工作，并将在目标单元格中​​显示一个零。 该零点是已经closures的date的“时间”部分。 尽pipe“date”部分拒绝转移，但由于某些原因，时间确实如此，并且零时间在单元中被读取为时间零点，即中午。

总之：

保持DTPicker和传输控制在同一页面，并应该解决问题。

代码非常简单。 它的

 Sheet1.Range("AA9") = Me.DTPicker1.Value