返回列表 上一主題 發帖

無條件捨去問題

Scott090

帖子
531 
主題
58 
精華
0 
積分
611 
點名
290  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-12-3 

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

TOP

Scott090

帖子
531 
主題
58 
精華
0 
積分
611 
點名
290  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-12-3 

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

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題