[Excel]半角カタカナのみを全角カタカナに変換するカスタムワークシート関数

'* @fn Public Function FULLWIDTHKANA(ByRef Text As Variant, Optional ByVal Convert8bitSymbols As Boolean = True) As Variant
'* @brief 半角カナを全角に変換します。半角英数字は影響を受けません。引数に文字列以外を指定した場合、戻り値は文字列に変換されます。
'* @param[in] Text 変換する文字列を指定します。
'* @param[in] Convert8bitSymbols 8ビット記号(｡｢｣､･ｰ)を全角に変換する場合はTRUE、変換しない場合はFALSEを指定します。省略した場合はTRUEが指定されます。
'* @return Variant 変換した文字列を返します。
'*
Public Function FULLWIDTHKANA(ByRef Text As Variant, Optional ByVal Convert8bitSymbols As Boolean = True) As Variant

    '引数が文字列型以外なら引数を文字列に変換して終了
    If (VarType(Text) <> vbString) Then
        FULLWIDTHKANA = CStr(Text)
        Exit Function
    End If
    
    '引数が空白のみなら処理なし
    If (Trim(Text) = "") Then
        FULLWIDTHKANA = Text
        Exit Function
    End If
        
    '変換文字のパターン設定
    Dim Pattern As String   '変換対象文字のパターン(Like右辺値)
    
    If (Convert8bitSymbols) Then
        Pattern = "[｡-ﾟ]"
    Else
        Pattern = "[ｦ-ｯｱ-ﾟ]"
    End If
    
    
    '変換
    Dim i As Long
    Dim Char As String      '引数Textの文字を1文字ずつ抽出する際の格納先
    Dim Buffer As String    '引数中の変換対象文字を連結するバッファ
    Dim Result As String    '戻り値
    
    For i = 1 To Len(Text)
        Char = Mid(Text, i, 1)
        
        '引数Text中の連続した変換対象文字をBufferに結合していく。
        If (Char Like Pattern) Then
            Buffer = Buffer & Char
            
        Else '変換対象外の文字を検出したら、Bufferを変換して戻り値に結合。その後ろに変換対象外の文字を結合
            
            'Bufferが空ならStrConv()の呼び出しを省略
            If (Buffer = "") Then
                Result = Result & Char
            Else
                Result = Result & StrConv(Buffer, vbWide) & Char
                Buffer = ""
            End If
        End If
    Next i
    
    '引数Textの末尾が変換対象文字の場合は、ループ内の変換処理を通らないため、ここで変換
    If (Buffer <> "") Then
        Result = Result & StrConv(Buffer, vbWide)
    End If
    
    FULLWIDTHKANA = Result
    
End Function