回答編集履歴
1
解説追記
answer
CHANGED
|
@@ -43,4 +43,23 @@
|
|
|
43
43
|
|
|
44
44
|
[VBA - VBAで®と™を一括置換したい｜teratail](https://teratail.com/questions/119957)
|
|
45
45
|
|
|
46
|
-
[VBA - VBAで機種依存文字を含んだ文字列をifの条件とする｜teratail](https://teratail.com/questions/136057)
|
|
46
|
+
[VBA - VBAで機種依存文字を含んだ文字列をifの条件とする｜teratail](https://teratail.com/questions/136057)
|
|
47
|
+
|
|
48
|
+
追記
|
|
49
|
+
---
|
|
50
|
+
質問のコードの間違いをコメントしておきます。
|
|
51
|
+
|
|
52
|
+
```vba
|
|
53
|
+
Sub moji()
|
|
54
|
+
Dim s As String
|
|
55
|
+
s = Cells(1, 1).Value
|
|
56
|
+
'この時点でsの中身は文字化けしていない。
|
|
57
|
+
If s Like "*[?]*" Then 'よってこれはFalseになり
|
|
58
|
+
MsgBox "文字化けしている"
|
|
59
|
+
s = StrConv(s, vbWide) 'は実行されない。
|
|
60
|
+
End If
|
|
61
|
+
Debug.Print s 'イミディエイトウィンドウ出力時に文字化けする。
|
|
62
|
+
'以下確認用
|
|
63
|
+
Cells(1, 1).Value = s '文字化けしていない
|
|
64
|
+
End Sub
|
|
65
|
+
```
|