ExcelのVBA・マクロでカタカナをひらがなに変換・変更する方法

ここでは、ExcelのVBA・マクロでカタカナをひらがなに変換・変更する方法を紹介します。

ExcelのVBA・マクロでカタカナをひらがなに変換・変更するには、StrConv使います。

<サンプル>

Sub test25()
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “値”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “タカハシ”
Range(“B3”).Value = “スズキ”
Range(“B4”).Value = “タナカ”
Range(“B5”).Value = “マツイ”
Range(“B6”).Value = “ノムラ”
Range(“B7”).Value = “タニシゲ”
Range(“C2:C7”).Value = “100です”

Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

Range(“B2”).Activate
Do
If ActiveCell.Value = “” Then Exit Do
ActiveCell.Value = StrConv(ActiveCell.Value, vbHiragana)
ActiveCell.Offset(RowOffset:=1).Select
Loop

End Sub

このプログラムでは、B列の値をB2セルからB7セルまで、空白のセルまで順にカタカナらひらがなに変換しています。
変換は、「StrConv(ActiveCell.Value, vbHiragana)」で行っています。

例えば、セルB2の値だけ単体で変換したいのであれば、「Range(“B2”) = StrConv(Range(“B2”).Value, vbHiragana)」で変換できます。