ＶＢＡの超初心者です

質問

こんにちは。
エクセルでＶＢＡの勉強をしようと頑張ってはいるんですが、最初からつまづきっぱなしで、助けて下さい。
あるセルに数値を返すようにしたのですが、１の位を四捨五入したい場合はどのようにしたらよいでしょうか。
よろしくお願い致します。

回答No.3

taocat · ベストアンサー

こんばんは。

ワークシートで１の位の四捨五入をするときは、
ROUND関数を使って、ROUND(A1,-1)　としますよね。
VBAでも殆どのワークシート関数が使えます。
例えば、A1の値の１の位を四捨五入して、結果をB1へ入れたい場合は

Sub Test()
　Range("B1").Value = WorksheetFunction.Round(Range("A1").Value, -1)
End If

のように、Roundの前にWorkSheetFunctionを付けるだけです。
以上です。

お礼

丁寧な回答をしていただきありがとうございました。

回答No.2

himajin100000

=ROUND(A1,-1)
の方が早いや。

回答No.1

himajin100000

=INT(A1/10) * 10

例えば
A1に2353.265が入っているとすると
=INT(235.3265) * 10
= 235 * 10
= 2350

お礼

早速の回答ありがとうございました。