Rounding 函數 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » Rounding 函數

返回列表下一主題上一主題發帖

Rounding 函數

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

11^# 跳轉到 »

發表於 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. 使用公式：

=INT(A1)+0.9

複製代碼

. . . . .

=INT(A4)+0.9

複製代碼

2. 使用 VBA 處理：

Sub Ex()
Dim rng As Range
For Each rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
rng.Offset(, 1) = Int(rng) & ".9"
Next
End Sub

複製代碼

如果使用 Round 方式： (譬如： A3 = 79.9； E3 = ？)

=ROUND(A3,0)+0.9

複製代碼

或者是

Sub Ex()
Dim rng As Range
For Each rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
rng.Offset(, 1) = Int(rng) & ".9"
rng.Offset(, 4) = Round(rng, 0) & ".9"
Next
End Sub

複製代碼

E3 的結果等於 80.9。
所以使用 INT() 會去掉 number 的小數部份而傳回剩下的整數 (79.9)。
如考慮有負值時，則建議使用 Fix() 函數。

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

12^#

發表於 2013-11-2 14:38 | 只看該作者

回復 1# Qin

樓主，>7.9 <8.0 這一段是要變成 7.9或8.9

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

13^#

發表於 2013-11-2 14:42 | 只看該作者

回復 Qin

樓主，>7.9
ML089 發表於 2013-11-2 14:38

7.90 沿用
8.00 就進位為 8.90

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

14^#

發表於 2013-11-2 18:01 | 只看該作者

回復 13# Qin

明確來講就是 >=7.0， <8.0 都是 7.9
用 INT(數值)+0.9比較明確

不建議使用 ROUND函數

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題