Excelを利用したグラフについて質問

質問

Windows Vista
Excel2007です。
下記に示すように、A列には年月日を、B列には値を入力し、
グラフを作成しました。(添付図を参照ください)
A列　　　　　　　　　B列
2013/5/15 　　　15096.03
2013/5/24 　　　14612.45
2013/5/31 　　　13774.54
2013/6/20 　　　13014.58
2013/7/19 　　　14589.91
2013/8/22 　　　13365.17
2013/9/11 　　　14425.07
2013/9/20 　　　14742.42
質問
1.グラフの式のXに2013/5/15(=41409：シリアル)を代入すると
　15096.03にはならず、1.05712E+21となります。
　小数点以下の桁数を、5,8,9,10,20,25桁のそれぞれの式に
　2013/5/15(=41409：シリアル)を代入しましたが、それらしい値にはなりません。
　どのように対処すれば宜しいのでしょうか。
2.仮に、小数点以下の桁数が問題だとした場合、何桁が最適なのかを一発で分かる
　方法がありますか。
ちなみに、式はy=-2E-07x^6+0.0473x^5-4903.7x^4+3E+08x^3-8E+12x^2+1E+17x-1E+21
です。

回答No.2

okormazd · ベストアンサー

#1です。
私は、この質問には回答したのでこれで終わりです。

「お礼」のコードは全然CDecを使っていないから、期待する結果にならないのは当然です。

「お礼」や{補足」で質問内容を拡大していくルールにはなっていないと思います。
「お礼」にある、
コードを書いてれというのは、また別の依頼で、本質問にはないのだから、改めて質問を立てましょう。
私が書くとは限りませんし、誰かがコードを書いてくれるかどうかもわかりませんが。

回答No.1

okormazd

1.
EXCELの精度は１５桁です。15桁を超える精度では計算できません。質問での数値の計算は20桁以上になるので、下から６～7桁は無視されて、0で埋められます。15096.03は整数部5桁しかありませんから、２０桁以上の計算では引っかかってきません。したがって、質問者の期待する計算は、このままではEXCELでは計算できません。
2.
グラフから６次の近似式を求めたものと思いますが、係数の桁数が足りません。仮に２０桁以上の精度で計算ができるとしてもこの係数では、期待する計算はできません。
3.
グラフに表示の数式を選んで右クリック、「データラベルの書式設定」―「表示設定」から、「指数」、「15桁」にするなど、適当な表示形式を選びましょう。なお、ここで最大の精度を選んでも15桁までなので、質問の計算の精度は出ません。
4.
VBAで、CDec関数を使って、回帰式を求めたり計算をしたりすれば、これは２９桁くらいの精度なので、期待する結果を得られるでしょう。
また、EXCELで他の解決策があるかもしれませんが・・・・・・たぶん期待薄。

お礼

okormazd さん、ありがとうございます。
VBAで、CDec関数を使って、……期待する結果を得られるでしょう。
下記かなと思ってやってみましたが、
Sub CDecの使い方()
Dim x As Variant
Dim y As Variant
x = 41409
y = -1.9005363811192E-07 * x ^ 6 + 4.72938013427015E-02 * x ^ 5 _
- 4903.66606712912 * x ^ 4 + 271166572.537445 * x ^ 3 _
- 8434781057218.07 * x ^ 2 + 1.39929755570149E+17 * x - 9.67241599532183E+20
MsgBox y
End Sub
結果は違うようです。
VBAのプロセジャーを書いていただけると幸いです。
宜しくお願いいたします。