回答編集履歴
3
修正
answer
CHANGED
@@ -22,5 +22,5 @@
|
|
22
22
|
End Sub
|
23
23
|
```
|
24
24
|
|
25
|
-
2019/12/11 とか 2019-12-11 とか令和1年12月11日というように日付と扱えるようなデータは、日付としてセルに格納されます。(実際には1900年1月1日を基準日としてその日から経過日数が格納されている。)
|
25
|
+
2019/12/11 とか 2019-12-11 とか令和1年12月11日というように日付と扱えるようなデータは、日付としてセルに格納されます。(実際には1900年1月1日を基準日としてその日から経過日数が格納されている。=日付シリアル値)
|
26
|
-
それを書式設定で、いろいろな書式に変換して表示している。
|
26
|
+
それを書式設定で、いろいろな書式に変換して表示している。表示上の値と内部に格納されている値は異なる。
|
2
ちょっと修正
answer
CHANGED
@@ -2,7 +2,6 @@
|
|
2
2
|
|
3
3
|
書式を変更すればご希望の表示になります。
|
4
4
|
|
5
|
-
|
6
5
|
```vba
|
7
6
|
Sub date_change()
|
8
7
|
Dim i As Long
|
@@ -21,4 +20,7 @@
|
|
21
20
|
Range(”B1:B100").NumberFormatLocal = "yyyy-mm-dd"
|
22
21
|
|
23
22
|
End Sub
|
24
|
-
```
|
23
|
+
```
|
24
|
+
|
25
|
+
2019/12/11 とか 2019-12-11 とか令和1年12月11日というように日付と扱えるようなデータは、日付としてセルに格納されます。(実際には1900年1月1日を基準日としてその日から経過日数が格納されている。)
|
26
|
+
それを書式設定で、いろいろな書式に変換して表示している。
|
1
コード追加
answer
CHANGED
@@ -5,11 +5,20 @@
|
|
5
5
|
|
6
6
|
```vba
|
7
7
|
Sub date_change()
|
8
|
-
Dim i
|
8
|
+
Dim i As Long
|
9
9
|
|
10
10
|
For i = 1 To 100
|
11
11
|
Cells(i, 2).NumberFormatLocal = "yyyy-mm-dd"
|
12
12
|
Next
|
13
13
|
|
14
14
|
End Sub
|
15
|
+
```
|
16
|
+
ループさせなくても一気に変更することもできます。
|
17
|
+
|
18
|
+
```vba
|
19
|
+
Sub date_change()
|
20
|
+
|
21
|
+
Range(”B1:B100").NumberFormatLocal = "yyyy-mm-dd"
|
22
|
+
|
23
|
+
End Sub
|
15
24
|
```
|