ワークシート関数で書式どおりの表示をしたい。

質問

C2セルに、通貨（記号 ￡）の書式設定がされています。
9000と入力すれば、もちろん　￡9,000　と表示されます。

このセルを参照しているセルには書式を設定してありません。
=TEXT(C2,"￡#,##")
と数式をいれれば、もちろん　￡9,000　と表示されますが、これではポンドの決めうちになってしまい、C2セルの書式の通貨記号を他のものに変えても反映しません。

VBAなら、

Function GetTxt(ByRef C As Range)
　　GetTxt = C.text
End Function

と、ユーザー定義関数をつくれば、
=GetTxt(C2)
で間単に表示された通りの値を取得できるのですが、ワークシート関数で参照先のセルに表示させる方法はないでしょうか？

回答No.2

Wendy02 · ベストアンサー

ご質問は、VBA禁止のようで、単なるExcelの実験になりますが、(2)は、厳密にはマクロ関数を使っています。

(1)
A1 に、￡9,000 とします。
B1 には、まず最初に、=A1 と入れます。
次に、A1をコピーしておいて、B1に、シフトを押しながら、メニュー--編集--図のリンク貼りつけで、二重構造にさせる方法。貼りつけた図は、下が透けないように、塗りつぶしはしてください。

(2)
表示セルにカーソルを置き、挿入--名前--定義

名前
fml

参照範囲
=GET.CELL(53,!A1)&LEFT(NOW(),0)
A1は、元の表示の場所
OKで、名前定義を確定する。

次に、以下のような数式を作ります。
=fml

ただし、こちらは、元の表示を変えても、そのままでは、Calculateイベントが働きませんので、Calculateイベントを走らせるか、シフト+F9　で、再計算を実行させてあげなくてはなりません。また、マイナス値で色の反映はしませんので、条件付き書式が必要です。(*私は、マクロ関数の検査機能は外しています。）

もちろん、これは文字列で出ていますから、その出た数字は、そのまま計算には使えません。

この程度なら、merlionXX さんなら、ご存じだと思いますから、それ以上ですと、単独のコンパイラーで、関数を作ってあげないと無理かと思います。最近は、こういう質問には、レスがめっきりと減ったようです。

お礼

Wendy02さま、おひさしぶりでございます。
ご教示ありがとうございました。

(1)図のリンク貼りつけは思いつきませんでした。
ありがとうございます。

(2)のExcel 4.0マクロはこれまで使ったことのないやり方です。
再計算を実行させなくてはならないのが難点ですが、とても勉強になりました。
ありがとうございました。

今後ともご教示のほどお願いいたします。

回答No.1

noname#187541

こんにちは。

単純に　=C2　ではダメですか?

お礼

はい、駄目です。
最初に=C2　と入力した段階では参照先の書式を引き継いでくれます。
しかし、参照先の書式をその後変更しても反映しません。
ざんねん。