VBA　セルの文字を変換-TakasanYo

今回は、セルに表示されたひらがなをカタカナに変換してみます。

関数　StrConv(対象文字, 変換方式)を使用します。

セルにこのように表示されたひらかなを

このプログラムで変換します。

Sub 練習1()

Dim i As Integer

Dim cnt As Integer

cnt = Cells(Rows.Count, 1).End(xlUp).Row '最終行を取得

For i = 1 To cnt

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

Next i

End Sub

実行するとこんなふうになりました。

関数　StrConv(対象文字, 変換方式)

の変換方式部分を指定するといろいろなことができます。

変換方式にはこんな種類があります。

vbUpperCase 大文字に変換。

vbLowerCase 小文字に変換。

vbProperCase 文字列の各単語の先頭の文字を大文字に変換。

vbWide 半角文字を全角文字に変換。

vbNarrow 全角文字を半角文字に変換。

vbKatakana ひらがなをカタカナに変換。

vbHiragana カタカナをひらがなに変換。

vbUnicode 文字列を Unicode に変換。

vbFromUnicode 文字列を Unicode からシステムの既定のコードページに変換。

VBA　セルの文字を変換