回答編集履歴
2
コード修正
answer
CHANGED
|
@@ -7,5 +7,9 @@
|
|
|
7
7
|
|
|
8
8
|
'桁数可変で元の桁数に合わせる場合
|
|
9
9
|
Target = "00001203"
|
|
10
|
-
Debug.Print Format(Val(Target),String(Len(Target),"@"))
|
|
10
|
+
Debug.Print Format(Val(Target),String(Len(Target),"@"))
|
|
11
|
+
|
|
12
|
+
'"00000000"の場合は、" 0" となる。
|
|
13
|
+
Target = "00000000"
|
|
14
|
+
Debug.Print Format(Val(Target),String(Len(Target),"@"))
|
|
11
15
|
```
|
1
コード修正
answer
CHANGED
|
@@ -3,9 +3,9 @@
|
|
|
3
3
|
```vba
|
|
4
4
|
'7桁固定の場合
|
|
5
5
|
Target = "0001203"
|
|
6
|
-
Debug
|
|
6
|
+
Debug.Print Format(Val(Target),"@@@@@@@")
|
|
7
7
|
|
|
8
8
|
'桁数可変で元の桁数に合わせる場合
|
|
9
9
|
Target = "00001203"
|
|
10
|
-
Debug
|
|
10
|
+
Debug.Print Format(Val(Target),String(Len(Target),"@"))
|
|
11
11
|
```
|