2007/11/30
VBAのReplace
VBAには、指定された文字列の一部を、別の文字列で指定された回数分で置換した文字列を返す、Replace 関数があります。
先日、ユーザから入力された文字を、日本語：全角、英数字：半角に整形するモジュールで、「う」が「ウ」に変換されてしまう不具合が見つかりました。
このモジュールではReplace関数を使い、以下のように置換している箇所がありました。
formatString = Replace(strResult, "ｳ", "ウ")指定しているのは半角の「ｳ」なのですが、なぜか「う」も置換されてしまいます。
ですので、以下のように、文字列式を評価するときに使用する文字列比較のモードをバイナリ モードで比較するようにして対処しました。
formatString = Replace(strResult, "ｳ", "ウ", Compare:=vbBinaryCompare)ラベル: vba