On Error Resume Nextのコードを記載しているのにセルに値が入力されてしまう

前提・実現したいこと

VBA初心者です。
8桁の数字（yyyymmdd）の入ったG列をスラッシュの入った
yyyy/mm/ddに書き換えるコードを作成したいです。
しかしながら列の中には空欄もあり、そちらはスキップして
空欄のまま表示させるようにしたいです。
何卒よろしくお願い申し上げます。
（下記のコードはネットから拾ったものを加工したものです）

発生している問題・エラーメッセージ

空欄の部分にもyyyy/mm/ddの形で入力がされてしまいます。

該当のソースコード

Option Explicit
Sub アクティブセルの8桁の数字を日付にする()
On Error Resume Next
Dim myDate As Date
Dim j As Integer
Dim y As Integer
y = Worksheets("sheet2").Cells(Rows.Count, "G").End(xlUp).Row
For j = 2 To y
myDate = Format(Cells(j, 7).Value, " ####/##/##")
Cells(j, 7).NumberFormat = "yyyy/mm/dd"
Cells(j, 7).Value = myDate
Next
End Sub

試したこと

あまりVBAに詳しくないので大変恐縮ですが、
ネットに掲載されていたOn Error Resume Nextに関する記述等を
読んでみましたが、解決には至りませんでした。

補足情報（FW/ツールのバージョンなど）

Excel for Microsoft 365 を使用しています。

ken3memo

2021/11/10 07:51 編集

エラーの＞空欄の部分にもyyyy/mm/ddの形で入力がされてしまいます。と関係ないですが、少し、気になったこと y = Worksheets("sheet2").Cells(Rows.Count, "G").End(xlUp).Row アクティブセルの8桁の数字を日付にする()なので、 Worksheets("sheet2")と指定しないほうが良いのでは？

opsy

2021/11/10 08:02

ご教示ありがとうございます！確かにそうですね。まだ勉強し始めて日が浅いので、ネットのコードを見よう見まねでして… 勉強になります！ありがとうございます！

行動規範の内容に同意します

回答2件

VBA
1Sub アクティブセルの8桁の数字を日付にする()
2    Dim myDate As Date
3    Dim j As Integer
4    Dim y As Integer
5    With Worksheets("sheet2")
6        y = .Cells(.Rows.Count, "G").End(xlUp).Row
7        For j = 2 To y
8            Dim strDate As String
9            strDate = Format(.Cells(j, 7).Value, " ####/##/##")
10            If IsDate(strDate) Then
11                .Cells(j, 7).NumberFormat = "yyyy/mm/dd"
12                .Cells(j, 7).Value = CDate(strDate)
13            End If
14        Next
15    End With
16End Sub

投稿2021/11/10 07:54

jinoji

総合スコア4585

opsy

2021/11/10 08:05

ご回答誠にありがとうございます！上手くいきました！ IsDateとCDateを組み合わせるのですね！全く知らない情報でしたので、大変勉強になります！

行動規範の内容に同意します

ベストアンサー

下記でどうでしょうか？

vba
1Sub アクティブセルの8桁の数字を日付にする()
2
3  Dim myDate As Date
4  Dim j As Integer
5  Dim y As Integer
6
7  On Error Resume Next
8
9  y = Worksheets("sheet2").Cells(Rows.Count, "G").End(xlUp).Row
10  For j = 2 To y
11    Err.Clear
12    myDate = Format(Cells(j,7).Value, " ####/##/##")
13    IF Err.number <> 13 Then
14      Cells(j, 7).NumberFormat = "yyyy/mm/dd"
15      Cells(j, 7).Value = myDate
16    End If
17  Next
18End Sub