VBA DateValue について

Question

日付をシリアル値で取得したいと思い、調べたところDateValueを使用することで、日付からシリアル値を取得できることがわかりました。
しかし、実際に日付から取得しようとマクロを組んでみても思うように取得することができませんでした。

自身でも何が原因か分からない部分があり、教えていただけないでしょうか。

以下にサンプルコードを記載いたします。

Sub dateValue値()

Cells(2, 2).Value = DateValue(Cells(2, 1).Value)
Cells(3, 2).Value = DateValue(Cells(3, 1).Value)
Cells(4, 2).Value = DateValue(Cells(4, 1).Value)

End Sub

上記のコードに対応するシートとしては以下の画像のようになります。
本来であれば、 dateValue値 の列にシリアル値が出てくるようにしたいはずなのですが、画像のように全て日付が出力されてしまいます。

質問は以上でございます。
お手数ですが、教えていただけますと幸いです。

Answer 1

セルの表示形式を標準にしてみました。
＜追記＞
Excel関数とVBA関数は異なる場合があり、VBAでシリアル値へ変換する場合、CDbl関数を用います。

Sub dateValue値2()
    Cells(2, 2).Value = DateValue(Cells(2, 1).Value)
    Cells(2, 2).NumberFormatLocal = "G/標準"
    Cells(2, 3).Value = CDbl(Cells(2, 1).Value)
    Cells(3, 2).Value = DateValue(Cells(3, 1).Value)
    Cells(3, 2).NumberFormatLocal = "G/標準"
    Cells(3, 3).Value = CDbl(Cells(3, 1).Value)
    Cells(4, 2).Value = DateValue(Cells(4, 1).Value)
    Cells(4, 2).NumberFormatLocal = "G/標準"
    Cells(4, 3).Value = CDbl(Cells(4, 1).Value)
End Sub

Comments

[TanakaHiroaki]

CDbl関数は、引数を文字列にすると、型が一致しないためエラーが返されます。

[tttkkk]

ありがとうございます！

実際にCDbl を使用することでイミディエイトウィンドウにもシリアル値を出すことができました。
私が調べていたシリアル値への変換はExcel関数の方だったのですね。
教えていただき助かりました。

Answer 2

B2～B4 セルを、右クリック-セルの書式設定 で「数値」にしてください。

ちなみに セルに 2021/7/11 と表示されているのも、
実は、内部的には、44388 というシリアル値がセルに入っているだけなのです。
書式が「日付」であれば、そのシリアル値が日付に変換されて 2021/7/11 という「見た目で」表示される、
という仕組みになっているのです。

Comments

[tttkkk]

大変申し訳ございません。
私の質問の仕方が悪かった部分がございました。

私としても日付とシリアル値については理解しているつもりなのですが、
実際 debug.print でイミディエイトウィンドウに dateValue を出力してみても、シリアル値が出力されず、日付が出力されてしまいます。

上記のサンプルコードで言いますと、
Debug.Print DateValue(Cells(2, 1).Value)
Debug.Print DateValue(Cells(3, 1).Value)
Debug.Print DateValue(Cells(4, 1).Value)
を走らせると
全て 2021/07/11 が出力されてしまいます。

このようなことがあり、 dataValue で上手くシリアル値に変換できていないと思い、質問させていただきました。
このイミディエイトでもシリアル値に変換されていないのは何か原因があるのでしょうか。