文字種を変換する

今回は文字種の変換についてメモしておきます。

実行プログラム

Sub Sample5_5_1()

    Cells(1, 3).Value = StrConv(Cells(1, 2).Value, vbUpperCase)   ' 大文字に変換
    Cells(2, 3).Value = StrConv(Cells(2, 2).Value, vbLowerCase)   ' 小文字に変換
    Cells(3, 3).Value = StrConv(Cells(3, 2).Value, vbProperCase)  ' 最初の文字を大文字に変換
    Cells(4, 3).Value = StrConv(Cells(4, 2).Value, vbWide)        ' 全角文字に変換
    Cells(5, 3).Value = StrConv(Cells(5, 2).Value, vbNarrow)      ' 半角文字に変換
    Cells(6, 3).Value = StrConv(Cells(6, 2).Value, vbKatakana)    ' カタカナに変換
    Cells(7, 3).Value = StrConv(Cells(7, 2).Value, vbHiragana)    ' 平仮名に変換

End Sub

Sub Sample5_5_1()

Cells(1, 3).Value = StrConv(Cells(1, 2).Value, vbUpperCase) ' 大文字に変換

Cells(2, 3).Value = StrConv(Cells(2, 2).Value, vbLowerCase) ' 小文字に変換

Cells(3, 3).Value = StrConv(Cells(3, 2).Value, vbProperCase) ' 最初の文字を大文字に変換

Cells(4, 3).Value = StrConv(Cells(4, 2).Value, vbWide) ' 全角文字に変換

Cells(5, 3).Value = StrConv(Cells(5, 2).Value, vbNarrow) ' 半角文字に変換

Cells(6, 3).Value = StrConv(Cells(6, 2).Value, vbKatakana) ' カタカナに変換

Cells(7, 3).Value = StrConv(Cells(7, 2).Value, vbHiragana) ' 平仮名に変換

End Sub

実行結果

memo カタカナを平仮名に変換するには”vbHiragana”を設定しますが、半角カタカナは変換されません。

半角カタカナを平仮名に変換

“vbWide”で全角文字に変換した後、”vbHiragana”で平仮名に変換することで実現できます。

実行プログラム

Sub Sample5_5_2()

    Cells(8, 3).Value = StrConv(StrConv(Cells(8, 2).Value, vbWide), vbHiragana)

End Sub

Sub Sample5_5_2()

Cells(8, 3).Value = StrConv(StrConv(Cells(8, 2).Value, vbWide), vbHiragana)

End Sub

実行結果

変換種類一覧

変換方法	定数	定数値
大文字に変換	vbUpperCase	1
小文字に変換	vbLowerCase	2
すべての単語の最初の文字を大文字に変換	vbProperCase	3
全角文字に変換	vbWide	4
半角文字に変換	vbNarrow	8
カタカナに変換	vbKatakana	16
平仮名に変換	vbHiragana	32
Unicodeに変換	vbUnicode	64
Unicode からシステム既定コードに変換	vbFromUnicode	128