計算結果をコピーすると桁数増加・・・

質問

現在使用しているのはエクセル２００３です。
エクセルファイルでコピーする際に「形式を指定して」「値」にしてコピーした場合、例えば0.024が0.0240000000000009や　0.011が0.0109999999999673と成ってしまう場合があります。

私が必要な桁数は小数点以下3桁まででなので、それ以下の値を排除して小数点以下3桁にまとめたいと考えています。

現在セルの最大桁数は以下の方法で計算しています。
Ro = Application.Round(Cells(Count_R, Count_C).Value, 0)
Ab = Abs(Cells(Count_R, Count_C).Value)
coun = Len(Ab) - Len(Ro)

この式でcoun＞3と成った場合IFで分岐させて小数点以下3桁にまとめる計算式を実行させたいのですが、どの様にすればいいのでしょうか？

よろしくお願いいたします。

回答No.2

mu2011 · ベストアンサー

>必要な桁数は小数点以下3桁まででなので、それ以下の値を排除して小数点以下3桁にまとめたい
　⇒Ro = Application.Round(Cells(Count_R, Count_C).Value, 3)では駄目なの
　　でしょうか。

補足

この状態だと確かに3桁目で表示されるのですが、セルの値に変化は有りませんでした。
しかし、Ro値をセルに書き込み事によって実行可能に成りました。
ありがとうございました。

回答No.1

MARU4812

Len も引数を文字列として処理しますが、
文字列で考えて小数部の長さが3桁より
先を切り取ればいいのですね。

Mid 関数でいいと思います。

補足

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

ところでMid関数を使用して3桁以下を切り取ると0.011の0.0109999999999673場合は0.010と成ってしまわないのでしょうか？