Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)
- [[20190723170625]]
- #score: 13344
- @digest: 5ef3b1adb990dc5dd4d829a5b6940d88
- @id: 80288
- @mdate: 2019-07-23T16:03:27Z
- @size: 1854
- @type: text/plain
- #keywords: 社⇒ (20299), シキ (16651), キカ (12838), 数ph (11604), カブ (10999), 称等 (9146), kana (8156), イシ (7799), 換別 (7748), phonetics (6922), 株式 (5487), キガ (5440), 式会 (4599), ャ", (4306), カイ (4141), 人格 (3564), シャ (2965), setphonetic (2788), phoneticcharacters (2659), ブシ (2513), check (2271), 法人 (2123), 社", (1926), phonetic (1824), ガイ (1727), ふり (1590), 先名 (1509), 引先 (1434), チモ (1424), チオ (1399), 名称 (1335), 取引 (1223)
- 『一括でふりがなを付けたい』（ちこちゃん）
取引先名称等にふりがなを付けたいのですが、一括でふりがなに変換すると 法人格がバラバラに変換されてしまいます。 株式会社 ⇒ カブシキカイシャ 株式会社 ⇒ カブ その法則性が読み取れません。 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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201907/20190723170625.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97039 documents and 608037 words.
訪問者：