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;@"

Answer 2

您可以使用格式化功能：

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

Answer 3

请使用Range("Q" & i) = Format(x1.Text,"dd-MM-yyyy")