エクセルの学校：全文検索：Hyper Estraier：表示形式　数値　通貨

Results of 1 - 1 of about 78 for 表示形式　数値　通貨 (0.011 sec.)

表示形式 (6901), 数値 (16333), 通貨 (231)

[[20191009150802]]: #score: 11548; @digest: 011f3ccb68ec45448e592a44f3de5752; @id: 81008; @mdate: 2019-10-10T06:01:34Z; @size: 4881; @type: text/plain; #keywords: currency (30054), 型代 (28021), 桁落 (27999), 135000005364418 (15241), 題( (11891), 入セ (10824), 示" (8164), 通貨 (7008), 義0 (5742), 値" (5590), 型変 (3868), 小数 (3309), 代入 (3014), 下2 (2977), 数点 (2959), single (2819), 略化 (2732), 簡略 (2386), ・ω (2369), 135 (2366), ・` (2282), value2 (2187), 型に (2038), 対策 (1833), 実験 (1808), 正規 (1665), cstr (1616), シリ (1541), 点以 (1468), ルa1 (1458), 示形 (1360), ル値 (1221); 『Currency型変数からセルへの代入で小数点の桁が丸められる』（tkit）
小数点ありの計算で誤差がでないようにCurrency型変数を使っています。セルの表示形式をユーザー定義0.000で、当該セルにCurrency型変数の値を代入すると、小数点が3桁目で四捨五入され、0.140と表示し、数式バー上も0.14となります。変数の値は、常に0.135です。 表示形式を通貨小数点3桁にしても、0.140のままでした。 Value2とするか変数の型をSingleまたはDoubleにすれば、正規の値となるため、セル側でCurrency型の場合、変換していることが分かりましたが、何か理由があるのでしょうか。経理系はさっぱりなため、ご教示いただけると助かります。 Sub test() Dim n As Currency n = 0.135 Range("A1").Value = n Range("A1").Value2 = n Dim s As Single s = n Range("A1").Value = s Dim d As Double d = n Range("A1").Value = d End Sub ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- ＞セル側でCurrency型の場合、変換していることが分かりましたが、＞何か理由があるのでしょうか。余り深く考えたことは無いですが・・その型は、我々は小数の計算精度を高めると言うだけの意識で使いますが、エクセルを作った米国の人達は、「通貨としての単位」を意識しており、セントまでが有効単位であるとして「.Valueプロパティ」の処理は、下2桁までをセルに出力する様に作り込んでいるんじゃないですかね。（半平太） 2019/10/09(水) 16:41 ---- 回答ではないが。 Singleでセルに入れた場合は表示形式が小数点以下2桁のために0.135に見えているが数式バーでは 0.135000005364418 になっている。（ねむねむ） 2019/10/09(水) 16:54 ---- すまない。 >表示形式が小数点以下2桁 ↓ 表示形式が小数点以下3桁（ねむねむ） 2019/10/09(水) 16:55 ---- こんなことがあるとは知りませんでした。セルの書式を通貨にしておくと Range("A1").Value = Range("A1").Value で桁落ちするという... 困った仕様ですね。（´・ω・`） 2019/10/09(水) 17:24 ---- みなさん、ありがとうございます。元々、Single型の計算結果が、ねむねむさんのレスであるように正規の値とならず、Double型でも上手くいかず、ネットで調べ、 Currency型に変更したという経緯でした。仕様なんでしょうね。代入の際、Cstr関数で文字列にして、計算の必要なセルには*1にしようと考えています。 Sub test() Dim n As Currency n = 0.135 Range("A1").Value = Cstr(n) Range("A1").Value = Range("A1").Value * 1 End Sub （tkit） 2019/10/10(木) 08:45 ---- ＞代入の際、Cstr関数で文字列にして、計算の必要なセルには*1にしようと＞考えています。＞ : : ＞Range("A1").Value = Range("A1").Value * 1 意図・問題点が、いまひとつ呑み込めないです。その簡略化したコードですと、（´・ω・`）さんの実験と同じく、桁落ちしますよね? （半平太） 2019/10/10(木) 10:08 ---- （´・ω・`）さんの実験は前提条件として、セルの表示形式が通貨の場合なので >セルの表示形式をユーザー定義0.000 の場合（標準でも）桁落ちにはならないようだ。（ねむねむ） 2019/10/10(木) 10:15 ---- > その簡略化したコードですと、（´・ω・`）さんの実験と同じく、桁落ちしますよね? 桁落ちするのは、セル書式の表示形式が通貨型の場合なので、数値型にしておけば大丈夫です。 Value2プロパティを使ったり、 Range("A1").Value = Range("A1").Value * 1# とするなど、浮動小数点型に明示的に変換する方が安全ですね（´・ω・`） 2019/10/10(木) 10:16 ---- 何か理解しにくいのですが、A1セルの書式は通貨じゃないんですか? だったら、単なる小数演算誤差の話じゃないですか? 提示された(簡略化した）コードじゃ、たたき台にならないです。 (Currency型を使う意味がどこにもない）もっと議論するにふさわしいコードをアップしてください。（半平太） 2019/10/10(木) 10:22 ---- まとめました。 Sub test() Dim n As Variant With Range("A1") '▼ユーザー定義0.000 .NumberFormatLocal = "0.000" '▼Single型代入セルA1の表示"0.135" シリアル値"0.135000005364418"←だからCurrency型に変更 n = 0.14! - 0.005! .Value = n '▼Currency型代入セルA1の表示"0.140" シリアル値"0.14"←ここが問題(0.135ではない) n = 0.14@ - 0.005@ .Value = n '▼対策として、String型にする。 .Value = CStr(n) '▼表示で、文字列に数字が〜の対策でした。 .Value = .Value * 1# End With End Sub （tkit） 2019/10/10(木) 12:12 ---- ＞ '▼Currency型代入セルA1の表示"0.140" シリアル値"0.14"←ここが問題(0.135ではない) ＞ n = 0.14@ - 0.005@ ＞ .Value = n ＞ '▼対策として、String型にする。＞ .Value = CStr(n) ＞ '▼表示で、文字列に数字が〜の対策でした。＞ .Value = .Value * 1# そこの部分が、回りくどくて理解に苦しむなぁ・・ '▼Currency型代入セルA1の表示"0.140" シリアル値"0.14"←ここが問題(0.135ではない) n = 0.14@ - 0.005@ .Value = CDbl(n) でいいんじゃないですか? （半平太） 2019/10/10(木) 15:01 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191009150802.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ