[[20200219164344]]　『異なる場合』（お初）　ページの最後に飛ぶ

『異なる場合』（お初）

初歩的なことでしたら申し訳ございません
VBAでsheet2のD1が日付となっていない場合は日付とする方法を
ご教授いただけますでしょうか
宜しく願いいたします。

＜使用 Excel：unknown、使用 OS：unknown ＞

日付でないものを日付にはできないと思いますが…？
日付でない場合は現在日付に変える、とかなら可能。
（???） 2020/02/19(水) 16:51

 Sub test()
    With Sheets("Sheet2").Range("D1")
        If IsDate(.Text) = False Then
            .Value = Int(Now())
        End If
    End With
 End Sub
（???） 2020/02/19(水) 16:54

 ぶつかりまくり

 初歩的な事だったら、きちんと説明してください。
 山勘、
 sheet2のD1選択、データ、区切り位置、次へ、次へで、日付を選んで完了。
 書式は標準であるとして。

（BJ） 2020/02/19(水) 16:57

書式の話なら、今が日付であろうがなかろうが
強制的に変更すればいいのでは？
日付を日付に変更してもなんの問題もない。
（γ） 2020/02/19(水) 17:05

 えー、 文字列の日付をシリアル値にする方法を知らない方が結構多いので。
 それになんとなくD1セルだけじゃないと思ったので。
 1セルなら、D1セルを選択して、書式を標準に戻してF2キー、Enterで済みますけど。

 20200219
 と
 文字列で
 2020/2/19
 になっているのと混合してましたけど。

（BJ） 2020/02/19(水) 17:26

Sub test()

    'With Sheets("Sheet2").Range("D1")
    'With Sheets("Sheet2").Range("D4")
    With Sheets("Sheet2").Range("D6")
        Debug.Print "Value:", .Value
        Debug.Print "Text:", .Text
        Debug.Print "NumberFormatLocal:", .NumberFormatLocal
    End With
End Sub

例えばこんなコードでイミディエイトウィンドウに出力してみた結果を貼り付けてみて
はいかがでしょうか？

値が、日付っぽいのにセルの書式設定が日付にならないということでしょうか？

Value: 令和2年2月10日
Text: 令和2年2月10日
NumberFormatLocal: G/標準
Value: 平成30年12月12日
Text: 平成30年12月12日
NumberFormatLocal: G/標準
Value: 2018/12/12
Text: 平成30年12月12日
NumberFormatLocal: [$-411]ggge"年"m"月"d"日"

こちらのパソコンではアップデートしてないので令和の日付が勝手に日付には
変わってくれません。
というか、どう転んでも、日付として認識できないです＾＾；
（まっつわん） 2020/02/19(水) 19:31

コメント返信：

[ 一覧(最新更新順) ]

[[20200219164344]] 『異なる場合』（お初） ページの最後に飛ぶ

[[20200219164344]]　『異なる場合』（お初）　ページの最後に飛ぶ