[[20220706102840]]　『別セルにフリガナを入力したい』（はなはな）　ページの最後に飛ぶ

『別セルにフリガナを入力したい』（はなはな）

どなたか助けてください。
ふりがな入力を行いたいのです。
Ａ1に漢字名、Ｂ1にフリガナを自動で入力したいのです。
PHONETICを使いましたが、表示されるのはA1と同じ漢字が表示され、カタカナ表記になりません。どのようにすればいいでしょうか？

＜使用 Excel：Excel2003、使用 OS：Windows7 ＞

 A1セルはどのように入力しているのだろうか？
（ねむねむ） 2022/07/06(水) 10:40

A1のセルは手入力しました。
B1に自動でカナがふられるようにしたいです。
（はなはな） 2022/07/06(水) 10:42

 A1セルを選択してホーム-フォントのふりがなの表示/非表示でふりがなの表示とした場合にふりがなが表示されるだろうか？
 もし表示されない場合、ふりがなの編集としてみてはどうだろうか？
（ねむねむ） 2022/07/06(水) 10:57

 Alt+F11 を押す　VBEが表示される
 Ctrl+G を押す　イミディエイトウインドウが表示される
 Cells.SetPhonetic と入力して　Enter

 としてはどうでしょう
（´・ω・`） 2022/07/06(水) 11:16

     |[A]     |[B]             |[C]               
 [1] |会員一覧|                |                  
 [2] |        |                |                  
 [3] |No      |氏名            |フリガナ          
     |        |                |
 [4] |    1001|青木　茉莉      |青木　茉莉        
     |        |                |
 [5] |    1002|上田　鈴        |上田　鈴      
     |        |サカモト　シンジ|
 [6] |    1003|坂本　真治      |サカモト　シンジ  
     |        |サトウ　ミチコ  |
 [7] |    1004|佐藤　美智子    |サトウ　ミチコ    
     |        |スズキ　ジュンコ|
 [8] |    1005|鈴木　順子      |スズキ　ジュンコ

 C4=PHONETIC(B4)

 「ふりがな表示」にして、入力するとふりがなが表示されますか。

（???） 2022/07/06(水) 11:20

 横から失礼します。

 手入力したのであれば、=PHONETIC(A1)でフリガナが返るはずですが、不思議ですね。

 Sub test()
     Range("B1").Value = Application.GetPhonetic(Range("A1").Value)
 End Sub
 というマクロを試してみてください。（自動はさて置いて。）
 標準モジュールにコピーして、testを実行します。

（γ） 2022/07/06(水) 11:33

 >A1のセルは手入力しました

 IMEがBaiduということはないですか？

 余談ですがバージョンが2003は本当ですか？
（コナミ） 2022/07/06(水) 13:02

 確認ですが、
 手入力ってコピペではないですよねぇ。
（通りすがり） 2022/07/06(水) 13:11

 >PHONETICを使いましたが、表示されるのはA1と同じ漢字が表示され、
 >A1のセルは手入力しました。

 手入力では無いね。
 コピペですね。

 手入力なら、漢字変換した時のカナが使われますから。

 漢字の入ってセルを選んで、Shift + Alt + ↑ で、ひょっとしたら思ってた 通りの読みが入るかも？
 私は、読めない漢字の時はエクセルに張り付けてこれやります。
（暑いっす） 2022/07/06(水) 13:23

すいません。
データ入力した者に確認したら、コピペでした・・・。
コピペならば、PHONETIC関数は使えないですか？

（はなはな） 2022/07/07(木) 00:33

 ルビ情報は漢字変換した時の情報としてセルが持ってます。
 漢字の部分だけをコピペすればルビ情報はもってません。

 ですから上で書いた方法でルビ情報を持たせるか、
 自分で読みを指定（修正）する必要があります。
 エクセルの学校と書いて、ルビを「マドンナノオウチ」とすることも可能。
（暑いっす） 2022/07/07(木) 08:16

色々提案があったが試したのか。返事しろや。
（怒り） 2022/07/07(木) 09:09

    Sub Macro1()
        [B1:B10].FormulaR1C1 = "=PHONETIC(RC[-1])"
        [A1].FormulaR1C1 = "鈴木"
        [A1].Characters(1, 2).PhoneticCharacters = "スズキ"
        [A1].Copy
        [A2].PasteSpecial Paste:=xlPasteFormulas
        [A3].Formula = [A1].Formula
        [A4].PasteSpecial Paste:=xlPasteValues
        [A5].Value = [A1].Value
        [A6].Value = [A1].Value2
    End Sub

 [値貼り付け]ってフリガナ情報も貼り付くんですね。考えてみたら意外。
 フリガナ情報抜くつもりでコピペしたら抜けなかった。なんて事になりそう。

（白茶） 2022/07/07(木) 09:20

 >コピペでした・・・。
 試してみたけどふりがな情報もコピーされますけど。
 例えば「ふじさん」と入力し「富士山」と変換する。
「富士山」をコピーして他のセルに貼り付ける。
 ふりがな表示にするとふりがなが振られていることが確認できる。
 コピーしたもの自体にふりがなが振られていないのではないですか。
 >コピペならば、PHONETIC関数は使えないですか？
 そんなことないです。
 ふりがなが振られているかいないかの違いです。
 >色々提案があったが試したのか。返事しろや。 
 これに一票投票します。
（???） 2022/07/07(木) 09:36

 元の漢字データにフリガナがあったのかどうか。
 １．あったのなら
 　　どの処理過程で無くなったのか、それを確認するのは、はなはなさんの仕事でしょう。
     その状況を説明して、対策の有無を質問するのが筋である。

 ２．なかったなら
 　　そもそも、フリガナが出て来なくて当たり前。
 　　自動的に振る案は既に提示されているが、
     あくまでたたき台のフリガナでしかないので、(日向を漢字だけ入れてみれば分かる）
     目視で正否を確認して修正する。

（半平太） 2022/07/07(木) 09:46

 コピペというのがEXCEL内ではなく他のアプリなどからなのでは？
（ねむねむ） 2022/07/07(木) 09:51

 >コピペでした・・・。
 数式バーからコピーしたものを張り付けるとふりがなは付記されませんでした。
 >データ入力した者に確認したら、コピペでした・・・。
 コピペの操作をどのようにしたのか入力した者に確認する必要がありますね。
（???） 2022/07/07(木) 10:01

返信遅れてすいません。
担当者に確認したら、コピペはCSVファイルからコピーしたものでした。

Alt+F11 を押す　VBEが表示される

 Ctrl+G を押す　イミディエイトウインドウが表示される
 Cells.SetPhonetic と入力して　Enter

で試すと解決しました。
（はなはな） 2022/07/07(木) 10:16

 念のため書いておきますが、
 SetPhoneticでフリガナを勝手に設定してくれますが、
 その読みが正しいかどうかはまた別の問題です
（´・ω・`） 2022/07/07(木) 10:22

（´・ω・`）様
ありがとうございます。
（はなはな） 2022/07/07(木) 11:47

コメント返信：

[ 一覧(最新更新順) ]

[[20220706102840]] 『別セルにフリガナを入力したい』（はなはな） ページの最後に飛ぶ

[[20220706102840]]　『別セルにフリガナを入力したい』（はなはな）　ページの最後に飛ぶ