今回は文字種の変換についてメモしておきます。
実行プログラム
|
|
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 |
実行結果
変換種類一覧
| 変換方法 |
定数 |
定数値 |
| 大文字に変換 |
vbUpperCase |
1 |
| 小文字に変換 |
vbLowerCase |
2 |
| すべての単語の最初の文字を大文字に変換 |
vbProperCase |
3 |
| 全角文字に変換 |
vbWide |
4 |
| 半角文字に変換 |
vbNarrow |
8 |
| カタカナに変換 |
vbKatakana |
16 |
| 平仮名に変換 |
vbHiragana |
32 |
| Unicodeに変換 |
vbUnicode |
64 |
| Unicode からシステム既定コードに変換 |
vbFromUnicode |
128 |
