回答編集履歴
3
追記
test
CHANGED
|
@@ -1,4 +1,8 @@
|
|
|
1
1
|
> 化けてしまった年月日の「シリアル値」を元号年月日に変えたいです。
|
|
2
|
+
|
|
3
|
+
|
|
4
|
+
|
|
5
|
+
シリアル値がそのまま表示されているなら、そのセルの書式が標準になっています。
|
|
2
6
|
|
|
3
7
|
|
|
4
8
|
|
2
推敲
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
```
|
|
10
10
|
|
|
11
|
-
上記判定が問題無いということは、変更対象外のセルは文字列書式という事ですので、統一するにはそのセルの書式を文字列に変
|
|
11
|
+
上記判定が問題無いということは、変更対象外のセルは文字列書式という事ですので、統一するにはそのセルの書式を文字列に変更して下さい。
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
1
推敲
test
CHANGED
|
@@ -2,7 +2,13 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
+
```VBA
|
|
6
|
+
|
|
7
|
+
If InStr(1, ipt, "明") = 1 Or InStr(1, ipt, "大") = 1 Or InStr(1, ipt, "昭") = 1 Or InStr(1, ipt, "平") = 1 Or InStr(1, ipt, "令") = 1 Then GoTo 99
|
|
8
|
+
|
|
9
|
+
```
|
|
10
|
+
|
|
5
|
-
そのセルの書式を文字列に変えてから、行ってみて下さい。
|
|
11
|
+
上記判定が問題無いということは、変更対象外のセルは文字列書式という事ですので、統一するにはそのセルの書式を文字列に変えてから、行ってみて下さい。
|
|
6
12
|
|
|
7
13
|
|
|
8
14
|
|