エクセルで半角を全角に変えるマクロは？

質問

ワークシート関数の JIS のようにVBAで「半角英数かな」を「全角英数かな」に変換するにはどのように書けばいいでしょうか？

たとえば、Dialogsheets("Dialog1")の Editboxes("ABC")に入力された半角文字をWorksheets("AAA")のセルA1に全角で出す場合です。

変換せずそのままなら
Sub test()
Sheets("AAA").Range("A1") = DialogSheets("Dialog1").EditBoxes("ABC").Text
End Sub
だというのはわかりますが。

回答No.3

taknt · ベストアンサー

あ、すみません。

ＪＩＳは ＶＢＡで使用できない関数でした。

Sub test()
Sheets("Panf").Range("F14") = StrConv(DialogSheets("見積").EditBoxes("名前").Text, VbStrConv.vbWide)
End Sub

とすればいいでしょう。

End Sub

参考URL：

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vafctstrconv.asp

お礼

ありがとうございました。
うまくいきました！
たすかりました！！

回答No.2

GuruGuru22

strconv関数を使いましょう。

お礼

初めて知った関数です。
ありがとうございました！

回答No.1

taknt

ＶＢＡでも ワークシート関数は 使えますよ。

参考URL：

http://www.asahi-net.or.jp/~zn3y-ngi/YNxv956.html

補足

ありがとうございます。URLを見てさっそく以下のように直しましたがだめでした。どこがわるいのでしょうか？

Sub test()
Sheets("Panf").Range("F14") = Application.WorksheetFunction.JIS(DialogSheets("見積").EditBoxes("名前").Text)
End Sub