回答編集履歴
2
修正
test
CHANGED
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
|
17
|
-
なので、こんな感じで文字コードを調べます。
|
|
17
|
+
なので、こんな感じで文字コード(Unicode)を調べます。
|
|
18
18
|
|
|
19
19
|
```VBA
|
|
20
20
|
|
|
@@ -44,7 +44,7 @@
|
|
|
44
44
|
|
|
45
45
|
For i = 1 To Len(s)
|
|
46
46
|
|
|
47
|
-
Debug.Print Asc(Mid(s, i, 1))
|
|
47
|
+
Debug.Print Hex(AscW(Mid(s, i, 1)))
|
|
48
48
|
|
|
49
49
|
Next
|
|
50
50
|
|
1
修正
test
CHANGED
|
@@ -62,8 +62,12 @@
|
|
|
62
62
|
|
|
63
63
|
|
|
64
64
|
|
|
65
|
+
```VBA
|
|
66
|
+
|
|
65
67
|
Sub test()
|
|
66
68
|
|
|
67
69
|
MsgBox CommandBars("cell").Controls("コピー" & ChrW(&H200B) & ChrW(&H200B) & "(&C)").Index
|
|
68
70
|
|
|
69
71
|
End Sub
|
|
72
|
+
|
|
73
|
+
```
|