エクセルマクロ　半角全角変換

エクセルには、

JIS（ジス）関数
=JIS(文字列)
■半角文字を全角にする ASC（アスキー）関数
=ASC(文字列)
■全角文字を半角にする


のような関数があるので、マクロでも、

Object.WorkSheetFunction.JIS(文字列)

でいけそうに思うが、WorksheetFunctionで使える関数はワークシート関数の全てではない。
JISはWorkSheetFunctionでは利用できないコマンドである。


そこで、StrConv関数を使う。

使用方法は、

StrConv(変換文字列,定数)

定数については、ここや、ヘルプファイルを参照。


使用例：

x="ABCDEFG"
Worksheet1.Cells(1,1)=StrConv(x,vbWide)


これを実行すると、A1に"ＡＢＣＤＥＦＧ"と入力される。


第2引数の指定を工夫すれば、一気に複数の変換もできる。

例えば小文字→大文字変換と全角→半角変換を同時に行なうのであれば、第2引数を「1+8」または「9」と指定します。VBAであれば

「vbUpperCase + vbNarrow」と指定するいいだろう。





参考文献：
http://www.relief.jp/itnote/archives/001056.php(2007/11/21)
Officeヘルプ
検索:エクセルexcelmacro文字形式変換VBA文字列変換