返回列表 上一主題 發帖

[發問] 此表單能否改成VBA操作呢??

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-6 08:31 | 只看該作者

[發問] 此表單能否改成VBA操作呢??

此表單能否改成VBA操作呢??
原用函數方式計算；因四捨五入因素導致總合計算錯誤，能否改用ＶＢＡ型式操作呢？？？？

計算.zip (10.24 KB)

收藏 分享

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
2#
發表於 2015-8-8 00:50 | 只看該作者
回復 1# sillykin


    不知那位大大能否給個提示呢???

TOP

c_c_lai

帖子
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型式操作結果是一樣的。
你所謂的四捨五入事實上也是求出值後才處理
一次之四捨五入。至於你提及的
"因四捨五入因素導致總合計算錯誤"？？？
  1. Sub Ex()
  2.     Dim vc As Long
  3.    
  4.     If [A4] = "" Then
  5.         [F4] = 0
  6.         Exit Sub
  7.     End If
  8.    
  9.     If ([E4] > 3) Then
  10.         vc = ([C4] * 0.4) - ([D4] * 0.7)
  11.     ElseIf ([E4] > 2) Then
  12.         vc = ([C4] * 0.3) - ([D4] * 0.4)
  13.     ElseIf ([E4] > 1) Then
  14.         vc = ([C4] - [D4]) * 0.2
  15.     ElseIf ([E4] <= 1) Then
  16.         vc = 0
  17.     End If
  18.    
  19.     [F4] = vc          '  [F4] = 63980
  20. End Sub
複製代碼

TOP

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
4#
發表於 2015-8-12 00:33 | 只看該作者
謝謝大大的幫忙

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題