エクセルでの入力金額を500円単位で繰り上げる方法

エクセルで入力されている数字（金額）を５００円単位で繰り上げる方法を教えていただけないでしょうか？

【例(1)】
10,001円→10,500円　　
【例(2)】
10,499円→10,500円
【例(3)】
10,501円→11,000円　
【例(4)】
10,999円→11,000円

A1に数字を入力しています。
可能であれば、最終的にはA列に数字を入力すれば、変換されていく形がベストです。
新たにB列に結果を出すというのは避けたいのですが・・・

宜しくお願いします。

No.4 ベストアンサー 回答者： mshr1962 回答日時： 2008/02/26 20:35

方法は２つ

基準値で切り上げ（正の数値のみ対応）
=CEILING(A1,500)
倍にして千円単位で切り上げて2で割る
=ROUNDUP(A1*2,-3)/2

※CEILINGでA1に負の値(A1<0)の可能性がある場合は
=CEILING(A1,SIGN(A1)*500)
で対応できます。

この回答へのお礼

負の値がある場合の事も考えていただきまして、
ありがとうございます。

きっとそういう疑問を持っている方もいらっしゃる
と思いますので、良回答に選ばさせていただきました。

お礼日時：2008/02/26 21:33

No.5 回答者： marbin 回答日時： 2008/02/26 20:35

VBAで↓が使えるようです。

WorksheetFunction.Ceiling

No.3 回答者： zap35 回答日時： 2008/02/26 20:32

=CEILING(A1,500)

No.2 回答者： marbin 回答日時： 2008/02/26 20:32

>可能であれば、最終的にはA列に数字を入力すれば、変換されていく形がベストです。

ユーザー定義書式で出来るのかもしれませんがわかりません。
VBAなら可能です。
シートのChangeイベントを使います。

No.1 回答者： marbin 回答日時： 2008/02/26 20:29

CEILING関数を使います。

=CEILING(A1,500)

参考までに
FLOOR関数も調べてみてください。

この回答へのお礼

素早い返答ありがとうございました!!

お礼日時：2008/02/26 21:29