回答編集履歴
2
こちらかがいいかも
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
簡単なサンプルで
|
|
1
|
+
簡単なサンプルで、検証するとこんな感じでしょうか・・。
|
|
2
2
|
|
|
3
3
|
```VBA
|
|
4
4
|
Sub test()
|
1
こちらかがいいかも
answer
CHANGED
|
@@ -2,16 +2,17 @@
|
|
|
2
2
|
|
|
3
3
|
```VBA
|
|
4
4
|
Sub test()
|
|
5
|
-
|
|
6
|
-
Dim
|
|
5
|
+
Dim str1 As String
|
|
7
6
|
Dim str2 As String
|
|
8
7
|
|
|
9
|
-
|
|
8
|
+
str1 = "01-1234-5678-0000"
|
|
10
9
|
|
|
11
|
-
|
|
10
|
+
MsgBox "変換前：" & str1
|
|
12
11
|
|
|
13
|
-
|
|
12
|
+
str2 = StrConv(str1, vbWide)
|
|
14
13
|
|
|
14
|
+
MsgBox "変換後：" & str2
|
|
15
|
+
|
|
15
16
|
End Sub
|
|
16
17
|
|
|
17
18
|
```
|