ワーキングマザーの日々の思い、読書とPCと大学生(母)日記など
PTA広報のお仕事。

2年生で職場体験というのがあります。
現在体験先を、候補から選んでいる最中です。
そのリストを使って次回の広報のための準備です。
web拍手 by FC2
過去の記事を見ると、職場体験でお世話になった体験先のリストを
五十音順に列挙してありました。

配布された体験先リストをスキャナ、OCRでテキスト化で、手間をなくす作戦です。

体験先の希望を取る紙、応募状況など何回かリスト配布がありますが、
2回目からは塗りつぶしがあったりして、字を読み取りづらいので
初回のを、捨てたり、くしゃくしゃになる前に読み取りに使うのがよさそう。

OCRでテキストを得たものは、読み取りエラーが結構あり、手直しが必要です。
そして、エクセルで機械的にヨミを振ることに

エクセルで入力、変換した場合は、Phonetic関数でカナ変換可能ですが
そうではないので、マクロで変換。
そう、私が前にここに記事を書いたことを思い出し、役立ちました。こちらです。

回答ページが消えてしまうと困るので、コピーさせていただきます。
gooのIDを持っていないので無断コピーになってしまいます ごめんなさい。
http://oshiete.goo.ne.jp/qa/2616724.html

エクセルのPHONETIC関数(もしくはマクロ)で一括してフリガナ変換をしたい。
役に立った:5件

質問者:yastaro
投稿日時:2006/12/21 15:16
困り度:すぐに回答が欲しいです

よろしくお願いいたします。
エクセルの名簿で100名以上あるのですが、
フリガナがなく、漢字の「氏名」しかありません。

そこで、氏名の右に列を挿入して、PHONETIC関数をコピーして入れましたが、漢字のままの氏名しか変換されてきません。

◆漢字のあるセルで”「shift」+「alt」+「↑」”をひとつひとつやってみまると、フリガナに返還されますが、手間がかかってしかたありません。
◆関数を使用もしくは、マクロを使用して、一括してフリガナ変換できる方法を教えてください。
よろしくご指導をお願いいたします。

質問番号:2616724





No.3ベストアンサー10pt

回答者:ham_kamo
回答日時:2006/12/21 15:53

以下のマクロは、1行目がタイトル行として、A列の2行目から漢字の氏名が入っている場合に、B列にフリガナを設定します。これはVBAのメソッドGetPhonetic()を使ってますが、当然ながらこれで取得したフリガナは間違っていることがあるので、そのときは手で修正してください。

Sub フリガナを取得()
  Dim r As Range
  For Each r In Range("A2", Range("A65536").End(xlUp))
    Range("B" & r.Row).Value = Application.GetPhonetic(r)
  Next
End Sub





しかしヨミの間違いはあるので、目視、修正が必要です。

こうして、ヨミを入れた後、
エクセルの機能でヨミで並び替えをします。
関連記事


Read More を閉じる▲
過去の記事を見ると、職場体験でお世話になった体験先のリストを
五十音順に列挙してありました。

配布された体験先リストをスキャナ、OCRでテキスト化で、手間をなくす作戦です。

体験先の希望を取る紙、応募状況など何回かリスト配布がありますが、
2回目からは塗りつぶしがあったりして、字を読み取りづらいので
初回のを、捨てたり、くしゃくしゃになる前に読み取りに使うのがよさそう。

OCRでテキストを得たものは、読み取りエラーが結構あり、手直しが必要です。
そして、エクセルで機械的にヨミを振ることに

エクセルで入力、変換した場合は、Phonetic関数でカナ変換可能ですが
そうではないので、マクロで変換。
そう、私が前にここに記事を書いたことを思い出し、役立ちました。こちらです。

回答ページが消えてしまうと困るので、コピーさせていただきます。
gooのIDを持っていないので無断コピーになってしまいます ごめんなさい。
http://oshiete.goo.ne.jp/qa/2616724.html

エクセルのPHONETIC関数(もしくはマクロ)で一括してフリガナ変換をしたい。
役に立った:5件

質問者:yastaro
投稿日時:2006/12/21 15:16
困り度:すぐに回答が欲しいです

よろしくお願いいたします。
エクセルの名簿で100名以上あるのですが、
フリガナがなく、漢字の「氏名」しかありません。

そこで、氏名の右に列を挿入して、PHONETIC関数をコピーして入れましたが、漢字のままの氏名しか変換されてきません。

◆漢字のあるセルで”「shift」+「alt」+「↑」”をひとつひとつやってみまると、フリガナに返還されますが、手間がかかってしかたありません。
◆関数を使用もしくは、マクロを使用して、一括してフリガナ変換できる方法を教えてください。
よろしくご指導をお願いいたします。

質問番号:2616724





No.3ベストアンサー10pt

回答者:ham_kamo
回答日時:2006/12/21 15:53

以下のマクロは、1行目がタイトル行として、A列の2行目から漢字の氏名が入っている場合に、B列にフリガナを設定します。これはVBAのメソッドGetPhonetic()を使ってますが、当然ながらこれで取得したフリガナは間違っていることがあるので、そのときは手で修正してください。

Sub フリガナを取得()
  Dim r As Range
  For Each r In Range("A2", Range("A65536").End(xlUp))
    Range("B" & r.Row).Value = Application.GetPhonetic(r)
  Next
End Sub





しかしヨミの間違いはあるので、目視、修正が必要です。

こうして、ヨミを入れた後、
エクセルの機能でヨミで並び替えをします。
関連記事

FC2blog テーマ:中高生の親 - ジャンル:学校・教育

【2011/12/03 22:09】 | PC・ネットetc
トラックバック(0) |
コメント
この記事へのコメント
コメントを投稿
URL:

Pass:
秘密: 管理者にだけ表示を許可
 
トラックバック
この記事のトラックバックURL
この記事へのトラックバック