VBAで®と™を一括置換したい

Question

禁則文字を一括で置換するVBAを作成しています。
®と™はVBE上で文字変換できず、自動置換ができません。

よろしくお願いいたします。

Comments

[deadjupiter]

何が宜しくなの？

Answer 1

VBE上で ® ™ などのUnicode拡張文字が直接表示できないという問題かな？

VBAの文字列は Unicode なんですが、なぜか、VBEはUnicodeじゃないんですよね。

VBE上では ChrW関数を使用して文字コードで文字を指定することになります。

® は ChrW(174)
™ はChrW(8482)

となります。
文字コードは、A1セルに対象文字列を入力して、=UNICODE(A1) とすれば確認できます。

Comments

[hatsuk0i1216]

言葉足らずでわかりにくいところありがとうございました。
VBEはUnicodeじゃないところまでは理解していたのですが、じゃあどうやれば、というところまではたどり着けませんでした。

おかげで無事にマクロ化できました。

Answer 2

おそらくある変数に文字列が入っていてその中に、置換したい®や™が入っているが、VBE上で入力できないから困っている、ということでしょうか。
文字コードを直接指定すれば可能と思われます。
以下サンプルです。
A1セルには「®と™」と入力してある場合。

Dim str As String
str = Cells(1, 1).Value
Debug.Print Replace(str, ChrW(&HAE), "あーる")
Debug.Print Replace(str, ChrW(&H2122), "てぃーえむ")

あーると?
Rとてぃーえむ

イミディエウトウィンドウでも表示はできないみたいなので?になりますが、置換はできているようです。
「®と™」の文字コードは以下のサイトで調べました。
http://www.m-hoz.com/jsp/unicode.jsp?Bgn=0&End=65536

Comments

[hatsuk0i1216]

言葉足らずでわかりにくいところありがとうございました。
またサイトについても確認させていただきました。勉強させていただきます。