vba - Excel Vba 运行时错误？

Question

当我尝试执行以下代码时，收到错误消息“需要运行时错误‘424’对象”，

Sub test()
Range("Q" & i).Text = x1.Text
End Sub

其中 x1 是日历对象。

如果我使用下面的代码作为

Range("Q" & i) = x1.Text

我的代码会将日期存储为 02-11-2013 而不是 11-02-2013，这里的问题是它重新安排了月份和日期。

希望我能找到解决方案。

提前致谢

Answer 1

您在第一个实例中遇到错误，因为范围的 .Text 属性是只读的，并且用于从单元格获取当前格式化值/范围。

我会使用格式函数，但也会设置您要放入的单元格的数字格式以确保安全:

Range("Q" & i).Value = Format(x1.Text, "dd-mm-yyyy")
Range("Q" & i).NumberFormat = "dd-mm-yyyy;@"

编辑:根据您的评论，我建议尝试将传入日期格式化为交换日期和月份，然后应用 NumberFormat，如下所示:

Range("Q" & i).Value = Format(x1.Text, "mm-dd-yyyy")
Range("Q" & i).NumberFormat = "dd-mm-yyyy;@"