vba 매크로 코드의 문제점이 10 진수 값으로 검사하지 않음

Question

매크로 코딩에서 조건과 같지 않음을 확인합니다. 값은 10 진수 또는 정수입니다. 이제는 소수 값의 두 값을 비교하지만 적절한 결과는 얻지 못합니다. 수정 결과를 얻기 위해 추가해야 할 것이 무엇인지 안내해주십시오.

If fld4 <> fldval Then 
    MsgBox "....." 
End If 

그러나 다음과 같은 값을 보여주는 메시지의 출력 :

내 코드입니다 (!) 지금

fld4 = 0.25, fldval = 0.26 
fld4 = 0.25, fldval = 0.25 
fld4 = 0.14, fldval = 0.14 
fld4 = 0.11, fldval = 0.11 

Answer 1

절대 직접 부동 소수점 값을 비교. 다음과 같이 시도해보세요.

eps = =.00001 'choose an appropriate epsilon 
If Abs(fld4- fldval)<eps Then 
    '... 

Look here 자세한 내용은 다음을 참조하십시오.