マクロで年月日が表示されない

投稿者 : ah     投稿日時 : 2024/09/10(Tue) 15:32:35     OS : Windows 11     EXCEL : Office 365

---

下記のコードでD列とE列は関数が入力され正常に年月日が表示されますが、F列とG列が「0」となり正常に表示されません。
原因が分かりませんので、ご教示いただけますでしょうか。


'作業シートの作成
Sheets("マクロ").Select
Range(Cells(2, 2), Cells(n, 2)).Select
Selection.copy
Sheets("作業シート").Select
Range("C4").Select
ActiveSheet.Paste

Sheets("マクロ").Select
Range(Cells(2, 14), Cells(n, 14)).Select
Selection.copy
Sheets("作業シート").Select
Range("H4").Select
ActiveSheet.Paste

Sheets("マクロ").Select
Range(Cells(2, 15), Cells(n, 15)).Select
Selection.copy
Sheets("作業シート").Select
Range("I4").Select
ActiveSheet.Paste

Sheets("マクロ").Select
Range(Cells(2, 16), Cells(n, 16)).Select
Selection.copy
Sheets("作業シート").Select
Range("J4").Select
ActiveSheet.Paste

Sheets("マクロ").Select
Range(Cells(2, 17), Cells(n, 17)).Select
Selection.copy
Sheets("作業シート").Select
Range("K4").Select
ActiveSheet.Paste

Range("D1").Value = "=COUNTA(C:C)-2"

n = Cells(1, 4) + 3
file = Range("F1")
filepass = Range("H1")

Range("A4").Value = "=VLOOKUP(B4,'" + filepass + "\[" + file + "]AmazonConnectUserアカウント一覧'!$C:$K,9,FALSE)"
Range("B4").Value = "=VLOOKUP(C4,'" + filepass + "\[" + file + "]AmazonConnectUserアカウント一覧'!$B:$C,2,FALSE)"
Range("D4").Value = "=H4+I4+J$1"
Range("D4").NumberFormatLocal = "yyyy/mm/dd"
Range("E4").Value = "=H4+I4+J$1"
Range("E4").NumberFormatLocal = "[$-x-systime]h:mm:ss AM/PM"
Range("F4").Value = "=J4+K4+J$1"
Range("F4").NumberFormatLocal = "yyyy/mm/dd"
Range("G4").Value = "=J4+K4+J$1"
Range("G4").NumberFormatLocal = "[$-x-systime]h:mm:ss AM/PM"

For t = 4 To n
Cells(4, 1).copy
Cells(t, 1).PasteSpecial (xlPasteAll)
Cells(4, 2).copy
Cells(t, 2).PasteSpecial (xlPasteAll)
If Cells(t, 8) = 0 Then
Cells(t, 8).copy
Cells(t, 4).PasteSpecial (xlPasteAll)
Else
Cells(4, 4).copy
Cells(t, 4).PasteSpecial (xlPasteAll)
End If
If Cells(t, 9) = 0 Then
Cells(t, 9).copy
Cells(t, 5).PasteSpecial (xlPasteAll)
Else
Cells(4, 5).copy
Cells(t, 5).PasteSpecial (xlPasteAll)
End If
If Cells(t, 10) = 0 Then
Cells(t, 10).copy
Cells(t, 6).PasteSpecial (xlPasteAll)
Else
Cells(4, 6).copy
Cells(t, 6).PasteSpecial (xlPasteAll)
End If
If Cells(t, 11) = 0 Then
Cells(t, 11).copy
Cells(t, 7).PasteSpecial (xlPasteAll)
Else
Cells(4, 7).copy
Cells(t, 7).PasteSpecial (xlPasteAll)
End If
Next t

投稿者 : 通行人     投稿日時 : 2024/09/11(Wed) 06:06:47

---

J4セルや、K4セルの値が「0」なのでは？
例えば、J4セルが「0」の場合、J4セルを F4セルへコピペしてるみたいだが、この辺問題ない？

投稿者 : anonymous     投稿日時 : 2024/09/11(Wed) 08:08:12

---

まず自分でステップ実行してみる事じゃないですか？
他人もあなたと同じ画面を見ているとでも思っているんでしょうか。
デバッグの方法をキチンと調べて下さい。

投稿者 : ah     投稿日時 : 2024/09/11(Wed) 11:27:12

---

■[返信 1] 通行人さん（2024-09-11 06:06:47）の記事
＞ J4セルや、K4セルの値が「0」なのでは？
＞ 例えば、J4セルが「0」の場合、J4セルを F4セルへコピペしてるみたいだが、この辺問題ない？
＞

ありがとうございます。
勿論、0ではない値が入力されております。
HとIは正常にコピペされておりますが、何故かJ列とK列が「0」となります。

投稿者 : 通行人     投稿日時 : 2024/09/11(Wed) 18:06:21

---

■[返信 3] ahさん（2024-09-11 11:27:12）の記事
＞ 勿論、0ではない値が入力されております。
これは私が聞いた「J4セルや、K4セルの値」の話？　なら私はお手上げ。（提示されたコードからはそれ位しか言えない）
既にご指摘のあるように、ステップ実行して確認した方が良いでしょう。