EXCEl 順番の切り上げをしたい

Question

順番の切り上げをしたい

お世話になっております。

特殊な切り上げなのですが、2.00005で単純に関数で切り上げをするは簡単なのですが
下の桁数から、少数点第一位まで、順番に切り上げをしたいです（桁数はバラバラ）

イメージ
2.00005
2.0001
2.001
2.01
2.1

マクロかなにかを組む必要があるのでしょうか。
それとも関数で処理することは可能でしょうか？

よろしくお願い致します。

Answer 1

特殊な切り上げと桁数はバラバラの意味がよくわかりませんが、ROUNDUP関数で要望どおりの値は出ますね。

=ROUNDUP(2.00005,4)
2.0001
=ROUNDUP(2.00005,3)
2.001
=ROUNDUP(2.00005,2)
2.01
=ROUNDUP(2.00005,1)
2.1

Comments

[ttyp03]

あ、これはワークシート関数です。

[ttyp03]

VBAからでもWorksheetFunctionに用意されているので、そのまま使えますね。
Application.WorksheetFunction.RoundUp(x, n)

[yamaguti]

ありがとうございます。
桁数がバラバラというのは、列に入っている数値の桁数がバラバラということです。

[ttyp03]

で、解決できたのでしょうか？

[ttyp03]

おまけのVBA
v = 2.00005
vs = CStr(v)
vl = Mid(vs, InStr(vs, ".") + 1)
For n = vl To 1 Step -1
Debug.Print Application.WorksheetFunction.RoundUp(v, n)
Next

[yamaguti]

ありがとうございます。解決できました。

Answer 2

Ａ１に値、Ａ２に以下の式を入れＡ３以降にコピーしていきます。

=IF(A1="","",IF(LEN(A1)-FIND(".",A1)-1<=0,"",TEXT(ROUNDUP(A1,LEN(A1)-FIND(".",A1)-1),"0." & REPT("0",LEN(A1)-FIND(".",A1)-1))))

Answer 3

小数点以下の桁数を求めて、その桁を無条件に切り上げるようにします。
A列に値が入ってるとして、B列に小数点以下の桁数を求める式、C列を結果とします。

B:=IF(A1=INT(A1),0,LEN(MID(A1-INT(A1),FIND(".",A1,1),LEN(A1)-FIND(".",A1,1))))
C:=IF(B1>0,ROUNDUP(A1,B1-1),A1)

Answer 4

10000倍して四捨五入して10000で割る
1000倍して四捨五入して1000で割る
100倍して四捨五入して100で割る
10倍して四捨五入して10で割る
と、順番にやっていけばよろしい

Comments

[stdio]

他の言語で書くと
float num = float(int(a * 100.0f + 0.5f)) / 100.0f;
ってことですね^^

[yamaguti]

ありがとうございます。