Excelのマクロについて教えてください。

質問

私がやりたいマクロは、
ある範囲の中でセルの中の数値が「0」以上のときは四捨五入をしなさい。
というマクロを組みたいのですが分かるかたがいましたら教えてください。

Excel2000です。

よろしくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

範囲を選択しておいて、以下のマクロを実行して下さい。

Sub macro()

　　Dim rg As Range

　　For Each rg In Selection
　　　　If WorksheetFunction.IsNumber(rg.Value) Then
　　　　　　If rg.Value >= 0 Then
　　　　　　　　rg.Value = WorksheetFunction.Round(rg.Value, 0)
　　　　　　End If
　　　　End If
　　Next rg

End Sub

四捨五入する桁は、Round関数の第2引数で対応して下さい。
（このRound関数は、ワークシート関数と同じです。）

回答No.4

noname#148473

＃２です。ごめんなさい、「０以上のときは」という条件が抜け落ちてました。以下は修正バージョンです。

４行目の「k = 0」は、小数点以下何桁を有効にするかです。

元の数が「0.567」のとき
「k = 0」では「1」に
「k = 1」では「0.6」に
「k = 2」では「0.57」になります。

'---------------------------------------
Sub 四捨五入()

　　Dim c As Variant
　　Dim k As Integer

　　k = 0

　　For Each c In Selection
　　　　If (IsNumeric(c) * (c > 0)) Then
　　　　　　c.Value = Int((c * 10 ^ k) + 0.5) / 10 ^ k
　　　　End If
　　Next
End Sub
'---------------------------------------
＃２の方、アドバイスありがとうございました。
これなら問題ないですよね？

回答No.3

maruru01

No.1です。

No.2の方へ。
IsNumeric関数は、未入力のセルの場合Trueを返します。
したがって、この場合、未入力のセルは「0」で埋められてしまいますよ。
もちろん、未入力のセルが存在しないなら構いませんが。

回答No.2

noname#148473

Sub 四捨五入()

　　Dim c As Variant

　　For Each c In Selection
　　　　If IsNumeric(c) Then
　　　　　　c.Value = Int(c + 0.5)
　　　　End If
　　Next
End Sub
'---------------------------------

いかがでしょうか？
値がマイナスのとき、-1.5を-1ではなく-2にしたい場合は、「c.Value = Int(c + 0.5)
」の部分の「Int」を「Fix」に変えてください。