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")