[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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.