桁数の求め方(マクロ)

質問

セルA1に数字(0より大きい数字で、小数もありうる)が入っているものとします。
これの桁数を求めたいのです。
たとえばA1の値が

3なら　　　→　1
25なら　　 →　2
392なら　 →　3
501.57なら →　3

という感じです。
ただし1より小さい小数の場合は

0.25なら　　→ -1
0.096なら　→　-2
0.00056なら→ -4

としたいです。
要するにA1の数値に対して、0以外の数値が
何桁目で初めて出てくるか、ということを調べたいです。
(説明が分かりにくく、申し訳ありません。)

=ROUNDDOWN(LOG10(A1),0)+1
であれば1より大きい数字は対応できます。
しかし1より小さい数字の場合は不具合が起きます。

そのため、
if文を使い、int(A1)が0かどうか判定
0でなければ→=ROUNDDOWN(LOG10(A1),0)+1を使用
0であれば→A1の値に10をかけたものについてintをとり、0でなければ-1を出力。0であればさらに10をかけintをとり、0でなければ-2を出力。0であれば・・・・のループ

等の手順を考えてみましたが、どうにもスマートでなく・・・。
何か良い解決策はありませんでしょうか。

お手数をおかけしますが、
ご教授願えればと思います。

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

回答No.5

yaritsusozai · ベストアンサー

再です。

なるほど、その方法でもＯＫですね。というより、そちらの方が、
IF文を使わなくていいので、スマートにまとまりますね。

式は、
=INT(LOG10(a1))+(a1>=1)
ですね。

お礼

回答ありがとうございます。
IF文なしでいけるんですね！
A1>=1という記述は初めて見ましたが、TRUEやFALSEを返し、TRUEなら1、FALSEなら0を返すんですね。
ありがとうございました。

回答No.4

yaritsusozai

表題にマクロとありますが、内容から判断するに、ワークシート関数で対処するもののようですね?

Round系の関数を使うと、値が「ちょうど1」の時に誤差が出ますので、そこだけ例外処理を行い、

=IF(a1=1,1,ROUNDUP(LOG(a1),0))

などのようにします。

お礼

回答ありがとうございます。
説明不足で申し訳ありません。
マクロを組んでいる途中、この件の問題にぶち当たりました。ワークシート関数で対処で大丈夫です。
If文による処理をやはりしないといけないですよね。
ありがとうございました。

なんとなく思いついたのですが、A1の数値が1以上であればINT(Log10(A1))+1を使用し、1未満であればINT(Log10(A1))を使用するというやり方でも対応できるのかな？と思いました。
不具合が出ないかの検証はまだきちんとできてないですが。

回答No.3

Hayashi_Trek

ROUNDDOWNやROUNDUPだとうまくいかない数値が有るので、指数形式を使った方法

=IF(A1<1, VALUE(MID(TEXT(A1,"0.0E+00"),5,3)), VALUE(MID(TEXT(A1,"0.0E+00"),5,3))+1)

お礼

回答ありがとうございます。
こんな方法があるのですね。
今の自分にはすぐに理解することはできませんが、じっくり考えてみます。
ありがとうございました。

回答No.2

mt2008

セルとかマクロと書いてあるのでExcelの事でしょうか？
で、あればセル関数ですが↓でどうでしょう。
=ROUNDUP(LOG10(A1),0)

お礼

回答ありがとうございます。
エクセルのことで大丈夫です。
この式では、実は10や100という数値の時にうまくいかないのです。
ありがとうございました。

回答No.1

kosukejlampnet

num が１より大きい数字のとき
numが10のn乗より大きいという条件を満たす間ループ、
ループ内でnをインクリメント。
numが10のn乗より小さくなったときnはnumの桁数に一致する。

手元にVBの実行環境がないのと、うろ覚えなので、PHPで書くとこんな感じです。

$num = 1928131482;
$i = 0;
$ret = null;
while ($num > pow(10, $i)) {
$i++;
}
var_dump($i);

１以下の時は、条件式が逆になるのと、インクリメントじゃなくてデクリメントするだけの違いですね。

お礼

回答ありがとうございます。
PHPはよくわからないのですが、
マクロで組むならdo whileを用いnをインクリメントすればよいということですね。
またpowerを使うのはなるほど、と納得しました。

ありがとうございました。