Excelマクロ セル上の数値を小数点以下一桁までほしい

マクロ超初心者です。

セルに5という数字が入力されていた時、
それを取り込み、5.0という形でマクロ上に表したいです。

この5.0は、5.0というファイル名のものを読み込むときに使用する予定です。

どうすれば、5を5.0として読み込めますか？
また5.0だけでなく、5.00とすることも可能ですか？


こちらでは5.0を格納する変数の型を
doubleで定義しましたが、うまくいきませんでした。


よろしくお願いします。

No.1 回答者： WindFaller 回答日時： 2015/08/21 01:51

こんばんは。

ご質問に関しては、以下のようなことが考えられます。
なお、どちらも負の数値は想定されていません。

5.00と読む場合も、Test1, Test2 で同様のことができます。
　num = Format$(ActiveCell.Value, "0.00")
とするか、
セルの書式自体を、"0.00" にするか、どちらかだと思います。

'No. 9049251
'//
Sub Test1()
'書式の状態は分からないが、正の整数が入力されている場合
Dim num As Variant
If IsNumeric(ActiveCell.Value) Then
　num = Format$(ActiveCell.Value, "0.0")
　MsgBox num
End If
End Sub
'///
'//
Sub Test2()
'書式で、"0.0" となっていて正の整数で?.0と表示されている場合
Dim num As Variant
If IsNumeric(ActiveCell.Value) Then
　num = ActiveCell.Text
　MsgBox num
End If
End Sub
'///