エクセルについて

質問

エクセルについて
VISTAを使用しています。
エクセルのA列に数千の単語が書きこんであります。
ルビのあるもの、ないもの、漢字、カタカナが混じっています。
漢字の上のルビを漢字の後に（　）書きに変換したいのですが
良い方法を教えて下さい。
ルビのないのもはそのままでいいのですが。
よろしくお願いします。

回答No.4

HRI-Sankou · ベストアンサー

すみません前の式で問題があったならば以下の式で行ってみて下さい。

=A1&IF(ISTEXT(A1),IF(AND(PHONETIC(A1)<>A1,CODE(A1)>12320),"("&PHONETIC(A1)&")",""),"")

お礼

ありがとうございます。
ルビのあるものだけ（　）書きになりました！！
ただ、
天気にのみルビで予報にはついてない場合も
天気予報→天気予報（テンキヨホウ）
となります。
できれば
天気予報→天気（てんき）予報
とする方法があればお教え下さい。
また、ルビはカタカナ表記ですが
（　）書きを平仮名にできれば有り難いです。
面倒な事ばかり言ってすみません。
お手数をおかけしますが宜しくお願い致します。

回答No.5

HRI-Sankou

＞天気予報→天気（てんき）予報
すみません。
私の知り得る範囲では、対応出来ません。

＞ルビはカタカナ表記ですが、平仮名にできれば
これに付いては、素の表記をひらがなに変更しないと無理なようです。
　エクセル２００３以前ならば、
変更範囲を、ドラック してから以下を実行
書式(O) → ふりがな(T) → 設定(T) → ひらがな(H) → ＯＫ
これで変更して見て下さい。
（式の入力部分で表示が変わらない部分が有ったら
　その部分にカーソルを移動して上の　数式バー　部分で
　式を左クリックし、Enter キーを、押して下さい。）

回答No.3

HRI-Sankou

=A1&IF(PHONETIC(A1)<>A1,"("&PHONETIC(A1)&")","")

回答No.2

HRI-Sankou

=A1&IF(ISNONTEXT(PHONETIC(A1)),"("&PHONETIC(A1)&")","")

お礼

ありがとうございました。

試してみましたが、カタカナだけはOKでしたが
やはり、他はすべて（ ）でルビがついてます。
天気→天気（てんき）
てんき→てんき（てんき）
テンキ→テンキ
既にふってある漢字の上のルビだけ
漢字の後に（　）で示したいのですが、
他の方法がありましたら教えて下さい。

回答No.1

P5Q

A1に、対象があれば

　Ｂ１セルに　　=A1&"("&PHONETIC(A1)&")"

　必要な行まで、Ｂ１セルをコピペ

　Ｂ列をコピーして、値で貼り付けで確定できます。

お礼

早速のご回答ありがとうございます。

試してみましたが、ルビのない漢字、ひらがな、カタカナにも
（　）書きルビが付されてしまいます。

ルビのないものは、そのままで
漢字の上のルビだけ漢字の後に（　）書きにしたいのですが
良い方法があればお教えて下さい。
よろしくお願い致します。