vba - VBA Excel 2010で簡単な計算を行った後、msgboxに返される値の小数点以下の桁数を設定するにはどうすればよいですか

Question

現在、単純なmsgbox calcを使用して計算値を返しています。回答メッセージボックスの戻り値に表示される小数点以下の桁数を制限するにはどうすればよいですか?

これがスクリプトです！

Sub CalcmsgboxHect()
    On Error Resume Next
    num = InputBox("Please Enter The Number Of Acres You Would Like To Calculate Into Hectares ")
    MsgBox num * 0.404686 & " Is the Number Of Hectares."
End Sub

Answer 1

どうぞ。これは、小数点以下 2 桁と千単位の区切り記号を使用する形式を適用します。

編集: num = 0 の場合はスキップするように IF でラップされます。

Sub CalcmsgboxHect()
Dim num As Double

num = Application.InputBox(prompt:="Please Enter The Number Of Acres You Would Like To Calculate Into Hectares ", Type:=1)
If num <> 0 Then
    MsgBox Format(num * 0.404686, "#,##0.00") & " Is the Number Of Hectares."
End If
End Sub

おまけとして、私は（あなたの無謀なモニカにもかかわらず）numとして宣言しました。Doubleまた、Application.Inputboxタイプを指定して入力できる を使用しました。の入力タイプ1は、ユーザーが数値を入力する必要があることを意味します。On Error Resume Nextこれにより、ラインを取り除くことができる場合があります。