ベストアンサー

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

2003/08/27 14:31

ワークシート関数の JIS のようにVBAで「半角英数かな」を「全角英数かな」に変換するにはどのように書けばいいでしょうか？たとえば、Dialogsheets("Dialog1")の Editboxes("ABC")に入力された半角文字をWorksheets("AAA")のセルA1に全角で出す場合です。変換せずそのままなら Sub test() Sheets("AAA").Range("A1") = DialogSheets("Dialog1").EditBoxes("ABC").Text End Sub だというのはわかりますが。

otasukey
お礼率77% (105/136)

オフィス系ソフト
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

taknt
ベストアンサー率19% (1556/7783)

2003/08/27 15:13 回答No.3

あ、すみません。ＪＩＳはＶＢＡで使用できない関数でした。 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

質問者

お礼 2003/08/27 15:20

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

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

GuruGuru22
ベストアンサー率51% (177/346)

2003/08/27 14:53 回答No.2

strconv関数を使いましょう。

質問者

お礼 2003/08/27 15:16

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

ログインすると、全ての回答が全文表示されます。

taknt
ベストアンサー率19% (1556/7783)

2003/08/27 14:34 回答No.1

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

参考URL：: http://www.asahi-net.or.jp/~zn3y-ngi/YNxv956.html

質問者

補足 2003/08/27 14:45

ありがとうございます。URLを見てさっそく以下のように直しましたがだめでした。どこがわるいのでしょうか？ Sub test() Sheets("Panf").Range("F14") = Application.WorksheetFunction.JIS(DialogSheets("見積").EditBoxes("名前").Text) End Sub

ログインすると、全ての回答が全文表示されます。