Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


71797 / 76733 ←次へ | 前へ→

【9429】Re:ユニークな数値を数えたい。自己レス
発言  ichinose  - 03/12/4(木) 7:58 -

引用なし
パスワード
   おはようございます。
まゆんさんから、ツッコミがあったら、訂正しようと思っていたのですが、
トップページ落ちしそうなので自己レスです。

>Sub test()
>  MsgBox [=SUM(1/COUNTIF(A1:A9,A1:A9))]
>End Sub
↑まゆんさんの例題ですと正しい値を返してくれますが、
小数を扱ってますから、誤差が出る場合がありました。
例えば、セルA1〜A68まで全部1だった場合、
答えは当然「1」になるはずですが

MsgBox [=SUM(1/COUNTIF(A1:A68,A1:A68))]

は、「0.999999999999998」と誤差が発生しました。
セルに代入すると「1」と表示されていますが、Valueプロパティには
誤差が出ています。


MsgBox Round(([=SUM(1/COUNTIF(A1:A68,A1:A68))]), 0)

とか

MsgBox [=Round(SUM(1/COUNTIF(A1:A68,A1:A68)),0)]

にしておかないと解消されませんでした。

やっぱり、小数を扱う場合は 要注意ですね!!

0 hits

【9348】ユニークな数値を数えたい。 まゆん 03/11/30(日) 15:45 質問
【9349】Re:ユニークな数値を数えたい。 INA 03/11/30(日) 16:06 回答
【9355】Re:ユニークな数値を数えたい。 まゆん 03/11/30(日) 16:58 質問
【9356】Re:ユニークな数値を数えたい。 INA 03/11/30(日) 17:51 回答
【9360】Re:ユニークな数値を数えたい。 INA 03/11/30(日) 18:02 回答
【9353】Re:ユニークな数値を数えたい。 ichinose 03/11/30(日) 16:44 回答
【9429】Re:ユニークな数値を数えたい。自己レス ichinose 03/12/4(木) 7:58 発言
【9477】Re:ユニークな数値を数えたい。自己レス bykin 03/12/4(木) 21:01 回答
【9526】Re:ユニークな数値を数えたい。自己レス ichinose 03/12/7(日) 11:28 お礼
【9357】Re:ユニークな数値を数えたい。 りん 03/11/30(日) 17:54 回答

71797 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free