[[20060203153102]]　『PHONETIC関数が使えない！』（のんきち）　ページの最後に飛ぶ

『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さんのコードを貼り付けて、実行したところ、㈱もカブって出てきました♪
これから置換して加工してみます。
みやほりんさんのコードはコピペして実行しても何も変わらなくって、
どのへんをいじればいいのか、教えていただけるとうれしいです！
コード自体の意味をあまり理解していないので、初歩的な質問になり、すみません・・・。
（のんきち）

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

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

コメント返信：

[ 一覧(最新更新順) ]

[[20060203153102]] 『PHONETIC関数が使えない！』（のんきち） ページの最後に飛ぶ

[[20060203153102]]　『PHONETIC関数が使えない！』（のんきち）　ページの最後に飛ぶ