HOME>TOP>その他

半角文字を全角文字に変換するには？

キーワード>>StrConv・変換　

Point ：半角文字を全角文字に変換したい。

Sub Test()
　　strMoji = "ABCDE"

　　MsgBox "『" & strMoji & "』を全角文字に変換します。"

　　strMoji = StrConv(strMoji, vbWide)
　　'全角に変換

　　MsgBox "『" & strMoji & "』"

　　MsgBox "今度は、『" & strMoji & "』を半角文字に変換します。"

　　strMoji = StrConv(strMoji, vbNarrow)
　　'半角に変換

　　MsgBox "『" & strMoji & "』わかりにくい・・"

End Sub

当サイトの全ての内容の無断転載等を一切禁止します。
掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。
Copyright (C) 2000-2001 reizo All rights reserved.