Range("d3") = 日付.Value + 0 '日付登録
でやってみましたが
実行時エラー'13':
型が一致しません。
でした。困りました。手ほどきお願いします。