ExcelのVBAでRoundDownとRoundUpを使いたい
エクセルのワークシート関数のRoundDownとRoundUp。
これをVBAのプログラムの中で使おうとしたら怒られました(=エラーになりました)。
で、急きょ作成した疑似関数。
指定した桁数で切り捨てを行う MyRoundDown 関数
Function MyRoundDown(V As Variant, C As Variant) As Variant ' 疑似RoundDown関数 MyRoundDown = Fix(V * (10 ^ C)) / (10 ^ C) End Function
指定した桁数で切り上げを行う MyRoundUp 関数
Function MyRoundUp(V As Variant, C As Variant) As Variant ' 疑似RoundUp関数 Dim W As Variant Dim A As Variant W = Fix(V * (10 ^ C)) / (10 ^ C) A = V - W If (A <> 0) Then If A > 0 Then W = W + (10 ^ (-C)) Else W = W - (10 ^ (-C)) End If End If MyRoundUp = W End Function
端数を四捨五入処理する Round 関数に相当するものは、MyRoundUp 関数をちょいといじれば出来ます。