帖子: 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

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

中學生 Rank: 2

帖子: 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