[[20190723170625]]　『一括でふりがなを付けたい』（ちこちゃん）　ページの最後に飛ぶ

『一括でふりがなを付けたい』（ちこちゃん）

取引先名称等にふりがなを付けたいのですが、一括でふりがなに変換すると
法人格がバラバラに変換されてしまいます。

株式会社　⇒　カブシキカイシャ
株式会社　⇒　カブ

その法則性が読み取れません。

20,000データくらいあるので手作業で見つけて修正することが難しいです。

ふりがなは、関数　PHONETIC　を使用して変換しています。
関数を使用する前に下記のマクロを実行しています。

Sub Macroふりがな()

Selection.SetPhonetic

End Sub

また、名称には英数字が含まれていて、これにもふりがなを付けたのですが
何かよい方法はありますか。アルファベットの読みを付けるのではなく意味
のある単語はそれないに読んでくれるような方法があれば大変助かります。

よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 解決策ではありませんが・・・。

 「かぶ」と入力して「株式会社」と変換するようにIME辞書に登録して
 変換すると、今回のようなことが起こるようです。
（カリーニン） 2019/07/23(火) 17:23

＞取引先名称等にふりがなを付けたい

例えば
＞株式会社　⇒　カブシキカイシャ
に統一するだけなら　↓　なのでできると思いますが

 Sub Test()
     Dim W1 As Range
     Dim i As Long
     Dim Kana As Phonetics
     Dim CHECK As String
     Application.ScreenUpdating = False
     For Each W1 In Selection
         Set Kana = W1.Phonetics
         For i = 1 To Kana.Count
             CHECK = Mid(W1.Value, Kana(i).Start, Kana(i).Length)
             W1.Characters(Kana(i).Start, Kana(i).Length).PhoneticCharacters = IIf(CHECK = "株式会社", "カブシキカイシャ", Kana(i).Text)
         Next
     Next
     Application.ScreenUpdating = True
 End Sub
※ カブシキガイシャの方が多いかも（結局は正確な情報が必要）

～～～～～～～～～～～～　ではなくて

＞ふりがなは、関数　PHONETIC　を使用して変換
別セルにふりがな情報がほしいだけですか？
（チオチモリン） 2019/07/24(水) 01:03

コメント返信：

[ 一覧(最新更新順) ]

[[20190723170625]] 『一括でふりがなを付けたい』（ちこちゃん） ページの最後に飛ぶ

[[20190723170625]]　『一括でふりがなを付けたい』（ちこちゃん）　ページの最後に飛ぶ