teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

3

修正

2019/12/11 10:26

投稿

hatena19
hatena19

スコア34367

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

ちょっと修正

2019/12/11 10:26

投稿

hatena19
hatena19

スコア34367

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

コード追加

2019/12/11 10:23

投稿

hatena19
hatena19

スコア34367

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
  ```