EXCEL VBAで計算値を四捨五入、切り上げ、切捨てする方法 - OKWAVE

ネットで探してみたのですが、計算結果を四捨五入して特定のセルを 返すにはどうしたらいいのでしょうか？ Sub hokangosa() Dim ZPS As Double Dim ZPOS As Double Dim DMN As Double MsgBox (" >>> 補間誤差自動計算 <<< ") MsgBox (" >>> 初期値入力します <<< ") ZPS = InputBox(">>> ステップを入力してください<<<") ZPOS = Sheet1.Cells(22, 4).Value DMN = ZPOS / ZPS Sheet1.Cells(23, 6).Value = DMN End Sub ここでDMNの値を四捨五入したいです。 またこれとは別に切上げ、切捨ても教えていただけるとありがたいです。