返回列表 上一主題 發帖

[發問] 請教VBA比較運算子的定義

jsleee

帖子
151 
主題
25 
精華
0 
積分
194 
點名
1  
作業系統
WINDOWS 10 
軟體版本
Office 2010 或 2021 
閱讀權限
20 
性別
男 
註冊時間
2011-9-6 
最後登錄
2024-11-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-2-9 11:08 | 只看該作者

[發問] 請教VBA比較運算子的定義

各位先進好
    請教一個關於VBA比較運算子的問題(如下的判斷式)
    在程式碼中判斷結果，x=1？
    但這個結果與實際認知有所出入，是因為定義的問題嗎？還是有其他問題？
    因個人對於VBA是自行摸索運用，可能有很多基本程式觀念都不清楚，所以請教先進們
    再麻煩抽空解惑，感恩
JS

    If 2.85 = 2.8 + 0.05 Then
        x = 0
    ElseIf 2.85 > 2.8 + 0.05 Then
        x = 1
    End If
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-2-9 15:54 | 只看該作者
回復 1# jsleee

http://forum.twbts.com/viewthrea ... amp;page=1#pid62025
這篇下面有版主大大提到是浮點運算的BUG,用ROUND()去除
這樣子就可以了
  1. Sub test()
  2. If 2.85 = Round(2.8 + 0.05, 2) Then
  3.     [a1] = 0
  4. ElseIf 2.85 > Round(2.8 + 0.05, 2) Then
  5.     [a1] = 1
  6. End If
  7. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2014-2-9 16:28 | 只看該作者
回復 1# jsleee
浮點算術可能會在 Excel 中造成不正確的計算結果

可轉為decimal再比較
  1.     If CDec(2.85) = CDec(2.8 + 0.05) Then
  2.         x = 0
  3.     ElseIf CDec(2.85) > CDec(2.8 + 0.05) Then
  4.         x = 1
  5.     End If
複製代碼

TOP

jsleee

帖子
151 
主題
25 
精華
0 
積分
194 
點名
1  
作業系統
WINDOWS 10 
軟體版本
Office 2010 或 2021 
閱讀權限
20 
性別
男 
註冊時間
2011-9-6 
最後登錄
2024-11-8 
4#
發表於 2014-2-9 19:45 | 只看該作者
回復 2# owen06

謝謝 OWEN06 先進的指導

TOP

jsleee

帖子
151 
主題
25 
精華
0 
積分
194 
點名
1  
作業系統
WINDOWS 10 
軟體版本
Office 2010 或 2021 
閱讀權限
20 
性別
男 
註冊時間
2011-9-6 
最後登錄
2024-11-8 
5#
發表於 2014-2-9 19:46 | 只看該作者
回復 3# stillfish00


    謝謝 stillfish00 先進的指導

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題