返回列表 上一主題 發帖

[發問] 計算值四捨五入

atuan207

帖子
27 
主題
7 
精華
0 
積分
69 
點名
0  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-4-19 
最後登錄
2012-6-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-2 11:39 | 只看該作者

[發問] 計算值四捨五入

想請教一下各位大大，
如果我想把Sheet1的(F*G/1000)的結果放在H
範圍都是整行
目前我的寫法是這樣
Worksheets("Sheet1").Range("H2:H" & [F65536].End(xlUp).Row) = [F2:F65536*G2:G65536/1000]

我想要取四捨五入到小數點後第二位
小弟知道四捨五入寫法是
=round(數值,保留位數)
也就是=Round(H2:H65536,2)
但小弟不知該如何安插上述公式
想請教一下大大
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
251  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-5-2 20:33 | 只看該作者
Range([H2], [F65536].End(xlUp).Offset(, 2)) = [round(F2:F65536*G2:G65536/1000,2)*row(A2:A65536)^0]
學海無涯_不恥下問

TOP

atuan207

帖子
27 
主題
7 
精華
0 
積分
69 
點名
0  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-4-19 
最後登錄
2012-6-26 
3#
發表於 2011-5-2 23:03 | 只看該作者
感謝Hsieh大大
小弟受教了，
小弟完全沒想到配合A的零次方這種方法
感謝

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
251  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-5-2 23:33 | 只看該作者
回復 3# atuan207


   [url]http://forum.twbts.com/viewthread.php?tid=2122&from=favorites[/url]
oobird版主教的
學海無涯_不恥下問

TOP

atuan207

帖子
27 
主題
7 
精華
0 
積分
69 
點名
0  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-4-19 
最後登錄
2012-6-26 
5#
發表於 2011-5-3 00:05 | 只看該作者
哇!!真的從沒這樣想過耶

原本來想說要不要再定義一個值，
然後值的公式再給它做四捨五入，
結果依然不行，就卡關了

想不到還有這樣的用法
[c8:g8] = [SMALL(c7:g7,column(a1:e5))*column(a1:e1)^0]
vba中多個儲存格同時寫入一個公式時後面*COLUMN(A1:E1)^0就必須的，才不致成為第一個值。

再次見識到版主的厲害

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題