- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
3#
發表於 2015-8-8 06:36
| 只看該作者
此表單能否改成VBA操作呢??
原用函數方式計算；因四捨五入因素導致總合計算錯誤，能否改用ＶＢＡ型式操作呢 ...
sillykin 發表於 2015-8-6 08:31 
函數方式計算與使用VBA型式操作結果是一樣的。
你所謂的四捨五入事實上也是求出值後才處理
一次之四捨五入。至於你提及的
"因四捨五入因素導致總合計算錯誤"？？？- Sub Ex()
- Dim vc As Long
-
- If [A4] = "" Then
- [F4] = 0
- Exit Sub
- End If
-
- If ([E4] > 3) Then
- vc = ([C4] * 0.4) - ([D4] * 0.7)
- ElseIf ([E4] > 2) Then
- vc = ([C4] * 0.3) - ([D4] * 0.4)
- ElseIf ([E4] > 1) Then
- vc = ([C4] - [D4]) * 0.2
- ElseIf ([E4] <= 1) Then
- vc = 0
- End If
-
- [F4] = vc ' [F4] = 63980
- End Sub
|
|
