[[20090808082425]]　『ふりがなを付けたものを拾い出す』（ken）　ページの最後に飛ぶ

『ふりがなを付けたものを拾い出す』（ken）4000行　ある中で、ふりがなを付けたものを拾い出したいのですが、できないのもでしょうか？　お願いいたします。

 ◆「ふりがな」はどのように付けてあるのでしょうか？
 ◆「ふりがな」のついていないのは、どんなものでしょうか？
 (Maron)

説明不足ですみません

 鈴鹿市寺家7丁目5-1
 亀山市野褒野町2067-58
 四日市市日永西4丁目　1-25

エクセルのシステム上　すべてふりがなが、付くそうなのですが、シート上に　表示させたものと
　してないものがあり
その中から　表示させたものを　拾い出したのです。　お願いいたします。　

 結果として、どのような形式がほしいのかよくわかりませんが、

 標準モジュールに

 Function myphonetic(rng As Range)
    Dim pho As Object
    myphonetic = ""
    For Each pho In rng.Phonetics
       myphonetic = myphonetic & pho.Text
    Next
 End Function

 として、
 =if(myPHONETIC(A1)<>"",a1,"")

 という数式で対応するか・・・、

 簡単に
 =if(PHONETIC(A1)<>A1,A1,"")

 程度で抽出するか・・・。

 ichinose

 ＞シート上に　表示させたものと　してないものがあり
 これは　どの様に表示させたりさせなかったり　しているのでしょう？

 メニュー・書式(O)→ふりがな(T)　表示/非表示(S)
 を使用して居るので有れば
 それは、その文字自体が持っているふりがな情報を
 表示しているだけです。

 ですから
 ＞エクセルのシステム上　すべてふりがなが、付くそうなのですが
 この認識は違っていると思います。

 もしも
 「エクセルのシステムを使って、ふりがなをつける事が出来るそうなのですが」
 と言う事であれば、マクロを使用して　それらしき物をつける事は出来ますが。。。

 例えば、シート全体を選択して
 メニュー・書式(O)→ふりがな(T)　表示/非表示(S)
 と進んだ状態で（全てのセルのふりがなを表示する設定にした状態で）
 ふりがなが表示されているセルと、されていないセルが有るのなら
 単純に、ふりがな情報を持っているデータを拾い出せば良い事に成ると思います。

 ご提示の例であれば（漢字を含む場合）
 A列にデータが有るとして、A1用の式
=IF(PHONETIC(A1)=A1,"","●")
 とすると、ふりがな情報が有る場合に「●」が表示されます。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20090808082425]] 『ふりがなを付けたものを拾い出す』（ken） ページの最後に飛ぶ

[[20090808082425]]　『ふりがなを付けたものを拾い出す』（ken）　ページの最後に飛ぶ