回答編集履歴
1
説明修正（原因追加）、図追加
answer
CHANGED
|
@@ -4,7 +4,8 @@
|
|
|
4
4
|
VBAは疎いのでこれを消している理由はわかりませんが、結果的には不要と思われます。
|
|
5
5
|
|
|
6
6
|
|
|
7
|
+
原因としてはA列が.FullSeriesCollection(1).Deleteが消されていたことと（<-追記 原因追加）、
|
|
7
|
-
|
|
8
|
+
A列が日付ではなく数値として認識されていたので、項目軸ラベルとして認識されなかったようです。
|
|
8
9
|
下記のやり方がうまいやり方なのかわかりませんが、日付として入力することで想定通りの結果がえられると思います。
|
|
9
10
|
A1セルは変換の必要がないのでifを使って A2列以下のA列という条件で、4桁の数値を日付に変換しています。
|
|
10
11
|
|
|
@@ -68,4 +69,6 @@
|
|
|
68
69
|
End With
|
|
69
70
|
|
|
70
71
|
End Sub
|
|
71
|
-
```
|
|
72
|
+
```
|
|
73
|
+
結果こうなりました（追記 図追加）
|
|
74
|
+
|