エクセルの学校：全文検索：Hyper Estraier： SetPhonetic

Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)

[[20060203153102]]: #score: 13344; @digest: 0450a8e6d3f6d448b1b89218bb8f34e4; @id: 19787; @mdate: 2006-02-03T07:55:58Z; @size: 2227; @type: text/plain; #keywords: sashi (14761), キ4 (10055), 名設 (6862), 仮名 (6427), 鰍ニ (5991), 活、 (5713), 、鰍 (5627), り仮 (4953), 接編 (4948), キ3 (4777), phonetic (4561), ・漢 (3667), カキ (3656), 数化 (3165), getphonetic (2738), ナ・ (2458), 号表 (1884), 音順 (1757), 振り (1312), 値貼 (1109), 漢字 (1094), 加工 (924), 定数 (898), 工し (747), 名" (744), 直接 (730), 置換 (727), カタ (656), seiya (647), ンポ (644), 話番 (607), 一発 (575); 『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 ---- オブジェクトなんて使ったこと無かったです^^; いろいろ勉強になります。ありがとうございました!! （のんきち） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200602/20060203153102.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ