エクセルのセルでひらがなだけを・・・

質問

エクセル２０００を使っています。
A1のセルに「都道府県(とどうふけん)　丸々市(まるまるし)」と入っていたとしまして、
A2のセルに「とどうふけん　まるまるし」と反映させたいです。
これは関数を使って実現可能でしょうか？
もし可能なマクロがありましたら、どうか教えてください。
よろしくお願いします。

回答No.2

imogasi · ベストアンサー

よく考えたら、質問があいまい。
（１）漢字都道府県＋地区町村名から、かな（カナ）名つづりを別列に求める、のか
（２）漢字と（）で囲まれたひらがながを含んだ文字列があるので、
（）内の文字だけを別セルに抜き出すのか
実例を上げる説明は、具体的ではあるが、（説明文章を添えないと）真の意図は伝わりにくいという、良い実例です。
（２）のケースと受けとって
ーーー
ユーザー関数を作るのが良さそう。
ツール－マクローＶＢＥ
出てきた画面のメニューの、挿入－標準モジュールを指定した画面に
Function kakko(t)
s = 1
Do
p1 = InStr(s, t, "(")
If p1 = 0 Then GoTo p1
p2 = InStr(s, t, ")")
u = u & Mid(t, p1 + 1, p2 - p1 - 1)
s = p2 + 1
Loop
p1:
kakko = u
End Function
を貼り付け、
結果を出したいセルに
=KAKKO(A1)　と入れて、下方向に式を複写する。
例
aaas(ddfg) dddhj(hj) as(l) ddfghjl
a(i)hj(f)kk(fgh) iffgh
都道府県(とどうふけん)　丸々市(まるまるし) とどうふけんまるまるし

回答No.1

noname#181803

PHONETIC関数（これはExcel関数になるのかな？）というのがあるらしいです。

＜解説してるサイト＞
http://arena.nikkeibp.co.jp/tec/excel/20040310/107769/

Excel2003(私の環境です)では、うまくいきましたよ。(^.^)
[A1のセルの値]"都道府県丸々市"
[A2のセルの値]"=PHONETIC(A1)"

と入力すると
[A2のセル]には"とどうふけんまるまるし"と表示されました。

ただ、
"とどうふけん"と"まるまるし"の間にスペースをどうやって入れたら良いか判らなかったので、
回答にはなっていないと思います。
参考程度にお願いしますね。(^^)

補足

#1さん、回答ありがとうございます。
私の質問がうまく伝わってなくてすいません。

[A1のセルの値]"都道府県(とどうふけん)　丸々市(まるまるし)"
[A2のセルの値]"=とどうふけん　まるまるし"

と言うようにしたいです。
A1のセルには「都道府県」も「どとうふけん」も漢字、ひらがなどちらも入っている状態です。
そのセルの中からひらがなだけを別のセルに表示できるのかなーと思って、質問をしました。