並べ替え用の「ふりがな」を隣のセルに自動表示します。
指定されたセルの「ふりがなテキスト文字列」を右隣のセルに表示します。
(コピーした場合など、指定されたセルに「ふりがなテキスト文字列」が無いこともあります。)
方法
まず、指定したセルに「ふりがなテキスト文字列」があるかどうか。
あれば、「ふりがなテキスト文字列」を変数に入れる。
並べ替えには、変数から、㈱や㈲などは邪魔なので消す。
右隣のセルに、ふりがなを表示する。
ただし、並べ替えに適した「ふりがな」を手入力している場合もあるので、既に入力があれば、なにもしない。
Dim Furigana As String
'入力した際の 「ふりがなテキスト文字列」が無ければ終了
If Cells(ActiveCell.Row, "C").Phonetic.Text = "" Then Exit Sub
'ふりがな列のセルに入力が無ければ、以下を行う(既に手入力されていたら何もしない)
If Cells(ActiveCell.Row, "D").Value = "" Then
' 「ふりがなテキスト文字列」を変数に持つ
Furigana = StrConv(Cells(ActiveCell.Row, "C").Phonetic.Text, vbHiragana)
'並べ替えの際に邪魔になる ㈱や㈲を消す
Furigana = Replace(Furigana, "㈱", "")
Furigana = Replace(Furigana, "(株)", "")
Furigana = Replace(Furigana, "㈲", "")
Furigana = Replace(Furigana, "(有)", "")
Furigana = Replace(Furigana, "(有)", "")
Furigana = Replace(Furigana, "(かぶ)", "")
Furigana = Replace(Furigana, "(かぶ)", "")
Furigana = Replace(Furigana, "(ゆう)", "")
Furigana = Replace(Furigana, "(ゆう)", "")
'ふりがなを ふりがな列に表示する
Cells(ActiveCell.Row, "D").Value = Furigana
End If