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