サイト内のVBAコードを検索できます。
[2008/10/07] Update / by dz02572i
No.[45] いろいろな文字列の変換(半角・全角・フリガナ・ひらがな・カタカナ) / StrConv |
|
|
|
|
<--- 一覧へ戻る
[いろいろな文字列の変換(半角・全角・フリガナ・ひらがな・カタカナ) / 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





