• ベストアンサー

エクセル,ふりがなの自動設定

nishi6の回答

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.4

実際、テキストファイルから10000個の漢字を持ってきてフリガナを付け加えてみました。10000個で約1分くらいです。(500MH) まずは1000個くらい選択して様子を見て下さい。kenichiさんのPCの能力がわからないもので・・・ 使い方を余り説明しませんでしたが、フリガナを設定したいセルを複数選択して(10000個でも)ツール→マクロ→マクロで下記マクロを実行します。ただし、選択したセルの右にフリガナを書き込みますから選択セルの右は空白にしておいてください。 それから実際動かしてみて、画面のちらつきが気になるので下記の様に2行追加して下さい。画面更新をストップして、終わったら戻しています。 QNo.102191「エクセル、ソートの順序について」も同様にして下さい。 標準モジュールに貼り付け(2行追加) Public Sub SetFurigana() Dim rg As Range Application.ScreenUpdating = False For Each rg In Selection rg.SetPhonetic rg.Offset(0, 1) = Application.Phonetic(rg) Next Application.ScreenUpdating = True End Sub

kenichi
質問者

お礼

たくさんの回答ありがとうございます。 パソコンが800MHz程だったので、1分ほどで出来ました。その際、画面がちらついていましたが、実際ふりがなが振られているところを見ると、とても嬉しくなります(^^) 隣のセルにはいろいろあったので、Offsetのところを(0,3)として使わせていただきました。 また、nishi6さんのマクロはわかりやすく、とても勉強になりました。以前にも他の件で回答してくれてますよね? とても助かりました。また何かあるかも知れないですが、よろしくお願いしたいです(^^;) nishi6さんはどうやってExcel,マクロを勉強したんですか?よろしければ教えて下さい。

関連するQ&A

  • ふりがな

    エクセルでは書式からふりがなで、カタカナや、ひらがなのふりがなの設定が一変に出来ますよね。 そして、全てのセルを選んでおけば自動的に 振ってくれますよね。 ワードでは出来ませんか? 私のやり方ではいちいちしなくてはいけない気がするのですが。

  • EXCELでフリガナをつけると、入力したときの読み仮名で自動的にフリガ

    EXCELでフリガナをつけると、入力したときの読み仮名で自動的にフリガナが振られますが、 WORDのルビでふられるフリガナは何をもとにふられているのでしょうか? よろしくお願いいたします。

  • エクセルのふりがな編集ができません。どうすればよろしいですか?

    名簿の名前にふりがなをつけようと思ったのですが、表示後編集ができません。 「書式」→「ふりがな」でも編集のところだけ選択できない形になっていまして。 他から読み込んだものではなく、エクセルで新規に作った名簿なのですが。 どなたかよろしければ解決方法をご教授下さい。 よろしくお願いいたします。

  • Excelのふりがなについてお尋ねします

    ちょっとした疑問に答えてください。 あるEXCEL2002のサンプルデータをもらったのです。 そのデータのセルに入力されている文字列(漢字やカタカタの地名)にふりがなを出そうとして、「書式」「ふりがな」「表示/非表示」をクリックしましたら、ふりがなが出るセルもあれば出ないセルもありました。 これはどうしてでしょうか? 入力した文字がふりがなとなって出るのではないのでしょうか? 教えてください。

  • エクセルでふりがなを表示するには?

    エクセルでふりがなをつけたいのですが、表示されません。 書式→ふりがな→編集 でやっても編集後には表示されなくなってしまいます。 編集の下に表示/非表示とありますがアクティブになりません。 どのようにしたらよいでしょうか?バージョンはエクセル2002です。

  • ワードから貼り付けたエクセル上での一括ふりがなor関数PHONETIC

    教えて下さい。 ワード内のリスト(会社名・住所など)を管理し易い様にエクセルへ貼り付けをしました。(テキストで貼り付け)その後、あいうえお順にデータを並び変えしたく、ふりがな(書式→ふりがな)or関数PHONETICを使用したのですが、実行できません。書式をクリアにしても駄目でした。書式設定では標準になってます。(文字列にもしてみました・・) エクセルへ手入力すると普通にふりがなが実行できます。ちなみに、書式→ふりがな→編集の流れだと1つ1つは実行できます。リストが1000件以上ありますので、一括で通常通り実行できるためにはどの様にしたらいいのか教えて下さい。エクセルのバージョンは2002です。 よろしくお願いします。

  • エクセル2010のふりがなの不具合

    私が使用しているWindows7上のエクセル2002と,知り合いの使用しているWindows7上のエクセル2010の「ふるがな」の動作では,次のような違いがあります.エクセル2010の動作は大変不便ですが,2010の元々の仕様でしょうか,或いは何かの設定間違いなのでしょうか? 1,2002の操作/動作.   a)新規のエクセルブックを開き,適当なセルをクリック.   b)[全角/半角]で,かな漢字を有効にする.   c)メニューの[書式]-->[ふりがな]-->[表示/非表示]を    クリックすると,セルの高さが高くなる.   d)セルの中に「山田」と入力し,かな漢字を確定する.   e) 「ふりがな」が「山田」の上に表示される. 2.2010の操作/動作.   上のa)からd)までの操作をしても,「山田」の上に「ふりが   な」は表示されない.   [ふりがな編集」をクリックすると,「山田」の上に初めてふ   りがなが表示される.   ふりがなを表示するときは,漢字の入力の後でいつでも   個々のセルごとに [ふりがな編集]をクリックする必要がある.   

  • EXCELのふりがなリストについて

    エクセルのふりがなの編集をするときに、 ふりがなリストから選択するという機能があるらしいのですが、 (FOMのテキスト参照)現在しているパソコンでは、ふりがな編集の状態で 右クリックしても、「ふりがなリスト」メニューは表示されません。 これは、機能の追加等おこなわなければならないのでしょうか? どうか、よろしくお願いします。 使用マシン コンパック ARMADA E500 OS WINDOWS98 EXCEL2000を使用

  • エクセル で ふりがなを つける

    エクセルで 名前の上に振り仮名を つけたいのですが(20名くらい)  書式 ふりがな を選んで 設定しても ふりがなの つく人 付かない人 がでてきます なぜですか??? 特別難しなまえではありませんが つかない人がいます

  • エクセルのマクロでフリガナをつけるには

    初歩的なことだと推測しますが、一つのセルに対してメニュー[書式]-[ふりがな]-[編集]でふりがなをつけられるのですが、一度にひとつの列の沢山の漢字の読みを追加するにはどうしたらいいでしょうか。 「新しいマクロの記録」でマクロに操作を記録しても結果が表示されるだけで繰り返し処理に応用できません。 下記の例 ActiveCell.FormulaR1C1 = "・・・" ActiveCell.Characters(1, 3).PhoneticCharacters = "・・・" ActiveCell.Offset(1, 0).Range("A1").Select