VBAでひらがな・カタカナの小文字(捨て仮名)を全角に変換する

VBAで半角文字から全角文字に変換したり、ひらがなをカタカナに変換するには、「StrConv」関数に引数を指定することで意図した文字に変換することができます。ただし、「StrConv」関数では、ひらがな・カタカナの小文字(捨て仮名)を変換することができません。

この記事ではひらがな・カタカナの小文字(捨て仮名)を全角に変換するユーザ定義関数を記載します。

ユーザ定義関数

ユーザ定義関数を追加して引数に変換対象の文字列を渡します。

Option Explicit

Private Const ConvFromChar = "ぁぃぅぇぉっゃゅょゎァィゥェォッャュョｧｨｩｪｫｯｬｭｮ"
Private Const ConvToChar = "あいうえおつやゆよわアイウエオツヤユヨアイウエオツヤユヨ"

'************************************************************
'* 名称     : LowerConv
'* 機能概要 : ひらがな・カタカナの小文字(捨て仮名)を全角に変換する
'* 入力引数 : 変換対象文字列
'* 出力引数 : なし
'* 戻り値   : 変換後文字列
'* 備考     :
'************************************************************
Public Function LowerConv(args As String) As String
    Dim l, pos As Long

    LowerConv = args
    For l = 1 To Len(LowerConv)
        '小文字が含まれていないかチェック
        pos = InStr(ConvFromChar, Mid(LowerConv, l, 1))
        If pos > 0 Then
            '小文字が含まれていれば全角文字に置換
            Mid(LowerConv, l) = Mid(ConvToChar, pos, 1)
        End If
    Next l
End Function