VBA에서 간단한 계산을 수행 한 후 msgbox에 반환 된 값의 소수 자릿수를 어떻게 설정합니까?

Question

메신저에서 현재 계산 된 값을 반환하는 간단한 msgbox calc를 사용하고 있습니다. 어떻게 대답 msgbox에 반환 된 값에 표시된 소수 자릿수를 제한 할 수 있습니다.

여기 스크립트입니다!

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

여기 있습니다. 보너스로 NUM = 0

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 

가 나는 Double으로 num를 선언 한 경우 무모한 depite (생략하는 IF에 싸여 :

편집 :이 소수점 두 자리와 천 단위 구분 기호와 형식을 적용 모니 커). 또한 유형을 지정하고 입력 할 수있는 Application.Inputbox을 사용했습니다. 입력 유형 1은 사용자가 번호를 입력해야 함을 의미합니다. 이렇게하면 On Error Resume Next 행을 제거 할 수 있습니다.