HOME>TOP>その他

ひらがなをカタカナに変換するには？

キーワード>>StrConv・変換　

Point ：ひらがなをカタカナに変換・カタカナをひらがなに変換したい。

Sub Test()
　　Dim strMoji
　　　strMoji = "こむらがえり"

　　　MsgBox "『" & strMoji & "』をカタカナに変換します。"

　　　strMoji = StrConv(strMoji, vbKatakana)
　　　'カタカナに変換

　　　MsgBox "『" & strMoji & "』"

　　　MsgBox "今度は、『" & strMoji & "』をひらがなに変換します。"

　　　strMoji = StrConv(strMoji, vbHiragana)
　　　'ひらがなに変換

　　　MsgBox "『" & strMoji & "』"

End Sub

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