VBA 小数点の存在判定

Round()関数で4.95を小数第１まで表示するようにすると5となります。

表示形式として整数である場合「＊.0」を
つけたいのです。
上記だと「5.0」ですね。

小数点有無の判別関数かロジック的なものが
ございましたらよろしくお願いいたします。

No.1 ベストアンサー 回答者： tokochan22 回答日時： 2006/09/14 14:58

Format関数でいけます

VBしかよくわかりませんがVBAでもFormat関数があるようなのでおそらく同じかほぼ同じだとおもいます。

TestStr = Format(112.8, "###0.00")

だと112.80とでます。Format関数での後ろの書式を
"###0.0"
にすれば小数点以下１桁になります。

詳しくはヘルプを見てみてください。のってないかな？

No.4 回答者： noname#22222 回答日時： 2006/09/14 15:00

Round()は、四捨五入等の演算結果を戻す関数です。

こういう関数の類は、表示形式に関しては、一切、関知していません。
ですから、その辺りはユーザー書式を設定したりフォーマットを目的とした関数を利用して目的を達成します。

No.3 回答者： hana-hana3 回答日時： 2006/09/14 14:59

表示形式なら、Format(num , "0.0")

組み合わせると、
Format(Round(num , 1) , "0.0")

No.2 回答者： akina_line 回答日時： 2006/09/14 14:58

こんにちは。

　ご質問の意図とは少しずれるかもしれませんが、format関数を使って表示形式を指定してはどうでしょう。

では。

参考URL：http://hanatyan.sakura.ne.jp/dotnet/kan01_08.htm