回答編集履歴
1
説明追記
test
CHANGED
@@ -18,7 +18,7 @@
|
|
18
18
|
|
19
19
|
'応募日時
|
20
20
|
|
21
|
-
Cells(n, 1).Value = DateValue(tmp(0))
|
21
|
+
Cells(n, 1).Value = DateValue(tmp(0))
|
22
22
|
|
23
23
|
'年齢
|
24
24
|
|
@@ -83,3 +83,25 @@
|
|
83
83
|
rng.NumberFormat = "@"
|
84
84
|
|
85
85
|
```
|
86
|
+
|
87
|
+
|
88
|
+
|
89
|
+
追記
|
90
|
+
|
91
|
+
---
|
92
|
+
|
93
|
+
コメントで指摘がありましたが、
|
94
|
+
|
95
|
+
`Cells(n, 1).Value = DateValue(tmp(0))`
|
96
|
+
|
97
|
+
でDateValueがエラーの原因ですね。
|
98
|
+
|
99
|
+
日付にならない文字列だとエラーになります。
|
100
|
+
|
101
|
+
そもそも DateValue は必要ないです。
|
102
|
+
|
103
|
+
日付と判断できる文字列ならExcelが自動で日付にしてくれますので。
|
104
|
+
|
105
|
+
|
106
|
+
|
107
|
+
必用なら上記の後の方法であとから書式設定すればいいでしょう。
|