回答編集履歴
3
追記
answer
CHANGED
|
@@ -1,5 +1,7 @@
|
|
|
1
1
|
> 化けてしまった年月日の「シリアル値」を元号年月日に変えたいです。
|
|
2
2
|
|
|
3
|
+
シリアル値がそのまま表示されているなら、そのセルの書式が標準になっています。
|
|
4
|
+
|
|
3
5
|
```VBA
|
|
4
6
|
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
|
|
5
7
|
```
|
2
推敲
answer
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
```VBA
|
|
4
4
|
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
|
|
5
5
|
```
|
|
6
|
-
上記判定が問題無いということは、変更対象外のセルは文字列書式という事ですので、統一するにはそのセルの書式を文字列に変
|
|
6
|
+
上記判定が問題無いということは、変更対象外のセルは文字列書式という事ですので、統一するにはそのセルの書式を文字列に変更して下さい。
|
|
7
7
|
|
|
8
8
|
```VBA
|
|
9
9
|
ActiveCell.NumberFormatLocal = "@"
|
1
推敲
answer
CHANGED
|
@@ -1,6 +1,9 @@
|
|
|
1
1
|
> 化けてしまった年月日の「シリアル値」を元号年月日に変えたいです。
|
|
2
2
|
|
|
3
|
+
```VBA
|
|
4
|
+
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
|
|
5
|
+
```
|
|
3
|
-
そのセルの書式を文字列に変えてから、行ってみて下さい。
|
|
6
|
+
上記判定が問題無いということは、変更対象外のセルは文字列書式という事ですので、統一するにはそのセルの書式を文字列に変えてから、行ってみて下さい。
|
|
4
7
|
|
|
5
8
|
```VBA
|
|
6
9
|
ActiveCell.NumberFormatLocal = "@"
|