EXCEL VBA StrConvの使い方(半角・全角・カタカナ・ひらがなの変換)

EXCEL VBA StrConvの使い方　(半角・全角・カタカナ・ひらがなの変換)

vbUpperCaseの使い方（小文字から大文字に変換）

Sub StrConv_Omoji() '大文字に変換

    Dim MojiEX As Range
    
    For Each MojiEX In Range("A2:A10") '範囲を指定する
        MojiEX.Value = StrConv(MojiEX, vbUpperCase)  '小文字から大文字に変換する。
    Next MojiEX

End Sub

vbLowerCaseの使い方（大文字から小文字に変換）

Sub StrConv_Komoji() '小文字に変換

    Dim MojiEX As Range
        
    For Each MojiEX In Range("A2:A10") '範囲を指定する
        MojiEX.Value = StrConv(MojiEX, vbLowerCase)  '大文字から小文字に変換する。
    Next MojiEX

End Sub

vbProperCaseの使い方（先頭文字を大文字に変換）

Sub StrConv_Sentou() '先頭文字を大文字に変換

    Dim MojiEX As Range
        
    For Each MojiEX In Range("A2:A10")  '範囲を指定する
        MojiEX.Value = StrConv(MojiEX, vbProperCase)  '先頭文字を大文字に変換
    Next MojiEX

End Sub

vbWideの使い方（半角文字を全角文字に変換）

Sub StrConv_Zenkaku() '半角文字⇒全角文字に変換

    Dim MojiEX As Range
        
    For Each MojiEX In Range("A2:A10")  '範囲を指定する
        MojiEX.Value = StrConv(MojiEX, vbWide)  '半角文字⇒全角文字に変換
    Next MojiEX

End Sub

vbNarrowの使い方（全角文字を小文字に変換）

Sub StrConv_Hankaku() '全角文字⇒半角文字に変換

    Dim MojiEX As Range
        
    For Each MojiEX In Range("A2:A10")  '範囲を指定する
        MojiEX.Value = StrConv(MojiEX, vbNarrow)  '全角文字⇒半角文字に変換
    Next MojiEX

End Sub

vbKatakanaの使い方（ひらがな文字をカナ文字に変換）

Sub StrConv_Kakana() 'ひらがな文字⇒カタカナ文字に変換

    Dim MojiEX As Range
        
    For Each MojiEX In Range("A2:A10")  '範囲を指定する
        MojiEX.Value = StrConv(MojiEX, vbKatakana)  'ひらがな文字⇒カタカナ文字に変換
    Next MojiEX

End Sub

vbHiraganaの使い方（カタカナ文字をひらがな文字に変換）

Sub StrConv_Hiragana() 'カタカナ文字⇒ひらがな文字に変換

    Dim MojiEX As Range
        
    For Each MojiEX In Range("B2:B10")  '範囲を指定する
        MojiEX.Value = StrConv(MojiEX, vbHiragana)  'カタカナ文字⇒ひらがな文字に変換
    Next MojiEX

End Sub