3

以下のコードを実行しようとすると、「Run-time error '424' Object Required」というエラー メッセージが表示されました。

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

x1 はカレンダー オブジェクトです。

以下のコードを次のように使用する場合

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

私のコードは、日付を 11-02-2013 ではなく 02-11-2013 として保存します。ここでの問題は、月と日付を再配置することです。

これに対する解決策があることを願っています。

前もって感謝します

4

3 に答える 3

4

.Text範囲のプロパティは読み取り専用であり、セル/範囲から現在の書式設定された値を取得するために使用されるため、最初のインスタンスでエラーが発生します。

format 関数を使用するだけでなく、安全のためにセルの数値形式を設定します。

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;@"
于 2013-02-19T07:22:54.147 に答える
0

フォーマット機能を使用できます。

    Range("Q" & i).Value = Format(x1.Text, "dd-mm-yyyy")
于 2013-02-19T07:19:41.713 に答える
0

どうぞご利用くださいRange("Q" & i) = Format(x1.Text,"dd-MM-yyyy")

于 2013-02-19T07:20:02.940 に答える