無條件捨去問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 無條件捨去問題

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

無條件捨去問題

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2016-7-9 07:25 | 顯示全部帖子

回復 1# warhead

format(.value,"0.00") 會四捨五入，不會無條件捨去

下列會得到 Range 區域的數值格式小數點以下2位
   With Temp.Range("C2:C10")
         . .NumberFormatLocal = "0.00"
      End With

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-7-11 07:45 | 顯示全部帖子

回復 4# warhead

這是不是你要的?

Dim c
For Each c In Temp.UsedRange
c.Value = IIf(c <> 0, Application.RoundDown(c, 2), "")
Next

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

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