Board logo

標題: [發問] 此表單能否改成VBA操作呢?? [打印本頁]
作者: sillykin    時間: 2015-8-6 08:31     標題: 此表單能否改成VBA操作呢??

此表單能否改成VBA操作呢??
原用函數方式計算；因四捨五入因素導致總合計算錯誤，能否改用ＶＢＡ型式操作呢？？？？
作者: sillykin    時間: 2015-8-8 00:50

回復 1# sillykin


    不知那位大大能否給個提示呢???
作者: c_c_lai    時間: 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
複製代碼
作者: sillykin    時間: 2015-8-12 00:33

謝謝大大的幫忙



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)