【Excel・VBA】半角→全角、全角を半角にする

ExcelとVBAの半角文字を全角文字にしたり、全角文字を半角文字にしたりする方法を毎回忘れて調べ直してしまうので、というメモ。

関数

全角文字→半角文字

=ASC("abc") 
結果:abc

半角文字→全角文字

=JIS("abc") 
結果:abc

VBA

全角文字→半角文字

MsgBox StrConv("abc", vbNarrow)
結果:abcと表示される

半角文字→全角文字

MsgBox StrConv("abc", vbWide)
結果:abcと表示される

VBAでワークシート関数を使うと全角文字→半角文字は出来て、半角文字→全角文字だとエラーになってしまいました。

MsgBox WorksheetFunction.Asc("ABC")
で実行すると、

このように、半角のABCと表示されるのですが、

MsgBox WorksheetFunction.Jis("ABC")
で実行するとエラーになってしましました。

このようなエラーメッセージが出てしまいます。
VBAはまだまだ難しいです。

VBA