返回列表 上一主題 發帖

Rounding 函數

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2013-11-2 07:49 | 顯示全部帖子
有什麼 rounding 函數可以讓例如:

180.05
73.50
79.90
45.20

全部進位為 0.90

答案:
180.90
...
Qin 發表於 2013-11-1 22:55

提供你兩種模式處理方式：
1.  使用公式：
  1. =INT(A1)+0.9
複製代碼
.   .   .   .    .
  1. =INT(A4)+0.9
複製代碼
2.  使用 VBA 處理：
  1. Sub Ex()
  2.     Dim rng As Range
  3.    
  4.     For Each rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
  5.         rng.Offset(, 1) = Int(rng) & ".9"
  6.     Next
  7. End Sub
複製代碼
如果使用 Round 方式： (譬如： A3 =  79.9；  E3 = ？)
  1. =ROUND(A3,0)+0.9
複製代碼
或者是
  1. Sub Ex()
  2.     Dim rng As Range
  3.    
  4.     For Each rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
  5.         rng.Offset(, 1) = Int(rng) & ".9"
  6.         rng.Offset(, 4) = Round(rng, 0) & ".9"
  7.     Next
  8. End Sub
複製代碼
E3 的結果等於 80.9。
所以使用 INT() 會去掉 number 的小數部份而傳回剩下的整數 (79.9)。
如考慮有負值時，則建議使用 Fix() 函數。

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題