[[20060203153102]] 『PHONETIC関数が使えない!』(のんきち) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『PHONETIC関数が使えない!』(のんきち)
 Excel2002,WindowsXPです。
与えられたデータを元に電話番号表を作成しているのですが、
鰍ニかが入るとややこしくなり、
またカタカナ・ひらがな・漢字が別に50音順で出てくるので、とてもわかりにくいです。
1 SASHI
2 たち
3 カキ
4 活、

 これをこのように加工したいのです。
1 活、
2 カキ
3 SASHI
4 たち

 もしくは
1 SASHI
2 活、
3 カキ
4 たち

 PHONETIC関数は試しましたが使えませんでした。
漢字がそのまま出てくるのです。
ふりがなを各々につけていった方がいいのでしょうか?
どなたか教えていただけませんか?

 データは他のアプリからインポートされたものですか?
 マクロを使用しないと、振り仮名は出ないでしょう。
 しかし、出たとしてもご希望通りには行かないと思いますよ。

 以下のコードは、A列の"振り仮名"をb列に表示します。

 Sub test()
 Dim r As Range
 For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
    r.Offset(, 1) = Application.GetPhonetic(r)
 Next
 End Sub
 (seiya)

 一発芸マクロ。選択範囲に振り仮名設定。
Sub 振り仮名設定()
Selection.SetPhonetic
End Sub
 
seiyaさんご指摘のとおり、鰍ヘそのままだし、SASHIもそのまま。
PHONETIC関数で並び替え用のデータを作成、
形式を選択して貼り付け>値貼り付け で定数化して、
あとは置換、直接編集するしかないでしょうね。
全部振り仮名付けていくよりはマシかも。
【参考】
[[20040225000631]] 『フリガナ編集について』(すみ) 
(みやほりん)(-_∂)b

 seiyaさん、みやほりんさん、ありがとうございます!!
seiyaさんのコードを貼り付けて、実行したところ、鰍焜Jブって出てきました♪
これから置換して加工してみます。
みやほりんさんのコードはコピペして実行しても何も変わらなくって、
どのへんをいじればいいのか、教えていただけるとうれしいです!
コード自体の意味をあまり理解していないので、初歩的な質問になり、すみません・・・。
(のんきち)

 私のはセルのPhoneticオブジェクトに直接振り仮名を設定するものです。
私の方法ではそのあとに
>PHONETIC関数で並び替え用のデータを作成、
>形式を選択して貼り付け>値貼り付け で定数化して、
>あとは置換、直接編集する
です。後の手間がないだけ、seiyaさんのコードが楽かも。
(みやほりん)(-_∂)b

 オブジェクトなんて使ったこと無かったです^^;
いろいろ勉強になります。
ありがとうございました!!
(のんきち)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.