[いろいろな文字列の変換（半角・全角・フリガナ・ひらがな・カタカナ） / StrConv ]



今回は文字列からフリガナを取り出すマクロを追加しています。　

「TextBox1〜TextBox8」を作成して、「TextBox1_Change」に以下のマクロを貼り付けてください。

---

Private Sub TextBox1_Change()

'=========================
'いろいろな文字列の変換
'=========================

Dim myStr As String
myStr = TextBox1.Text


'半角カタカナ
TextBox2.Text = StrConv(StrConv(Application.GetPhonetic(myStr), vbKatakana), vbNarrow)

'全角カタカナ
TextBox3.Text = StrConv(StrConv(Application.GetPhonetic(myStr), vbKatakana), vbWide)

'全角ひらがな
TextBox4.Text = StrConv(StrConv(Application.GetPhonetic(myStr), vbHiragana), vbWide)

'半角
TextBox5.Text = StrConv(myStr, vbNarrow)

'全角
TextBox6.Text = StrConv(myStr, vbWide)

'大文字
TextBox7.Text = StrConv(myStr, vbUpperCase)

'小文字
TextBox8.Text = StrConv(myStr, vbLowerCase)

End Sub

---