回答編集履歴
2
修正
answer
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
[https://teratail.com/questions/136057](https://teratail.com/questions/136057)
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
なので、こんな感じで文字コードを調べます。
|
|
9
|
+
なので、こんな感じで文字コード(Unicode)を調べます。
|
|
10
10
|
```VBA
|
|
11
11
|
Sub sample100()
|
|
12
12
|
Dim obj
|
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
|
|
22
22
|
s = obj.Caption
|
|
23
23
|
For i = 1 To Len(s)
|
|
24
|
-
Debug.Print
|
|
24
|
+
Debug.Print Hex(AscW(Mid(s, i, 1)))
|
|
25
25
|
Next
|
|
26
26
|
End Sub
|
|
27
27
|
```
|
1
修正
answer
CHANGED
|
@@ -30,6 +30,8 @@
|
|
|
30
30
|
「200B」と分かるので、それに書き換えればよいのですが、そのままでは使えない文字なので、
|
|
31
31
|
Unicodeで指定します。
|
|
32
32
|
|
|
33
|
+
```VBA
|
|
33
34
|
Sub test()
|
|
34
35
|
MsgBox CommandBars("cell").Controls("コピー" & ChrW(&H200B) & ChrW(&H200B) & "(&C)").Index
|
|
35
|
-
End Sub
|
|
36
|
+
End Sub
|
|
37
|
+
```
|