• ベストアンサー

excelで奇数の4桁数字を偶数に変換する方法ありますか?

品物の価格一覧表が200行くらいあります。 それらの金額を、百の位で偶数にそろえたいと思っています。 手入力ではなく関数などで一気にできないでしょうか? 下記のように、奇数の百の位を偶数に切り上げたいのです。 1,300→1,400 1,200→1,200のまま 1,900→2,000 元の数字はすべて4桁です。 うまく説明できずにすみませんが、宜しくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

正の数値だけなら =CEILING(A1,200) 負の数値が混じるなら =CEILING(A1,200*SIGN(A1))

rincyan
質問者

お礼

あっという間にできました!! 本当に助かりました。 どうもありがとうございましたm(--)m

関連するQ&A

  • 数字を偶数奇数に分ける関数ありますか

    例えば1行目に1から10までの数字が並んでいます 偶数の数字だけをその下の行に移動させ、奇数の数字はまたその下に移動したいのですが、わかりません。パソコンの関数のヘルプをみてもよく分かりません。簡単な事なんでしょうが、面倒でしょうがよろしくお願いします。

  • 奇数・偶数の数をカウントする方法

    どなたかご存じでしたらご教授願います。 【質問】 下記の様に、A1~E1に数字を入力したら、 その2行下に、入力した数字を表示して 奇数、偶数をカウントして右側に結果を表示するにはどうすればよいですか? A B C D E 3 4 5 10 31 ---------------------- 奇数 偶数 3 4 5 10 31  → 2  3 〇注意事項  ・入力する数字は1~99迄で、重複数字は入力しません。  ・使用するエクセルは2010です。 以上、よろしくお願いします。

  • エクセルの有効数字のまるめ方

    A1に入ってる数字を下記のルールに従い有効数字3桁にまるめたいです。 4桁目がある場合、4桁目を四捨五入する。 ただし、4桁目が5の場合は・・・・ ・3桁目が偶数→4桁目以下を切り捨て ・3桁目が奇数→3桁目+1。4桁目以下を切り捨て 上記の様な計算式をエクセルで作りたいのですが、 なかなかできず困っております。

  • 指定した合計数と奇数&偶数の数字を抽出する。

    どなたかご存じでしたら回答をお願いします。 数字選択式宝くじの「ミニロト」の組合せをフリーソフトで作成&CSVデータに出力しています。 これをエクセルに取りこむと下記のようになります。 【作成されてエクセルに取りこんだCSVデータ】 01 03 05 07 12 01 03 05 07 15 01 03 05 12 15 01 03 07 12 15 01 05 07 12 15 03 05 07 12 15 ここから、「5つの数字の横合計の合計数が○○以上~○○未満で、奇数が○個、偶数が○個のデータを抽出する。」というのをエクセルでやりたいですがどうやればよいでしょうか? できれば1回の操作で結果が出るのがよいです。 上記例でいうと、「5つの数字の横合計の合計数が30以上~40未満で、奇数が4個、偶数が1個」と指定すれば下記抽出結果が得られる。 【抽出結果】 01 03 05 12 15 01 03 07 12 15 01 05 07 12 15 CSVデータは1個~169911個まであります。 CSVデータの中には奇数が0個で偶数が5個というのもあります。(その逆ももちろんあります。) エクセルの操作およびVBAでのソースを教えて下さい。 よろしくお願いします。

  • excel・VBAで奇数・偶数の分岐がうまくいかない。

    一覧が入っているシートから宛名用のシール印刷をするために、VBAを使用しています。 ラベル印刷は ┏━━━━┓┏━━━━┓ ┃ 奇数 ┃┃ 偶数 ┃ ┗━━━━┛┗━━━━┛ みたいな感じです。 奇数:一覧シートの奇数行 偶数:一覧シートの偶数行 ですが、奇数の方はうまく出るのですが、偶数の方が1つおきになってしまいます。 これのどこが間違っているのでしょうか? Worksheets("Sheet1").Select Last = Cells(1).CurrentRegion.Rows.Count For i = 2 To Last Worksheets("Sheet1").Select Yuubin = Cells(i, 1) Name = Cells(i, 6) Dim AllCount As Integer Worksheets("TEST").Select Kotae = i / 2 Amari = i Mod 2 AllCount = i / 12 If Amari = 0 Then Ichi = (((Kotae - 1) * 9) + 1) - AllCount Cells(Ichi, 2) = "〒" & Left(Yuubin, 3) & "-" & Right(Yuubin, 4) Cells(Ichi + 7, 4) = Name & " 様" ElseIf Amari = 1 Then Ichi = (((Kotae - 1) * 9) + 1) - AllCount Cells(Ichi, 17) = "〒" & Left(Yuubin, 3) & "-" & Right(Yuubin, 4) Cells(Ichi + 7, 19) = Name & " 様" & i End If '奇数偶数分岐 Next ' 全件分終るまで よろしくお願いします。

  • エクセルで偶数のみの数字の合計を計算

    LOT6のデータをエクセル2000に保存して有ります。 かなりの行数が有りますが、これを一括で偶数のみの合計数を計算したいのです。 例えば           B1 C1 D1 E1 F1 G1 H1  I1(偶数合計) 1回目(1行)  10  13  18  23  33  38  17   3 上記のように7個数字が有った時、「I1」のセルに計算式で偶数のみの合計数を3と成る数式を教えて頂きたくお願い致します。 奇数は偶数を計算した時、7-(偶数の合計数字)を引いて、後は計算式をドラッグしてコピーします。 以上宜しくお願い致します。

  • Excel 数字のなかで指定した桁だけ消す

    A列にずらっと並んでいる数字から、下n桁分を削除したいのですが、そんな関数ってありますか? A列      結果(このように抜き出したい) 100,000,000 →100 100,000,000 →100 100,000,000 →100 100,000,000 →100 100,000,000 →100 100,000,000 →100 100,000,000 →100 具体的には売上一覧表があるのですが、 25,879,451,256 と、入力されていてわかりにくいので、単位を「億」にて億未満の数字を消したい。

  • 偶数,奇数,その他

    (1)0,2,4,7の数字を1回ずつ使ってできる4けたの整数のうちで,次の数を書きましょう。         ・一番小さい偶数                                                 ・一番大きい奇数                                                (2)1メートルの重さが2.4キログラムのパイプがあります。このパイプ6.5メートルの重さは何キログラムですか。式        答え                                        (3)4.8メートルの重さが3.6キログラムのホースがあります。このホース1メートルの重さは何キロ グラムですか。式        答え                                       (4)水がアの水筒に3/5リットル,イの水筒に1/4リットル入っています。                       水は合わせて何リットルありますか。式      答え                               二つの水筒の違いは何リットルですか。式     答え    

  • excel シート1の奇数(偶数)行(列)のみをシート2にリンクさせる方法

    excel2007を使っていて、関数の使い方がまったく分かりません。 シート1にデータを入力しているのですが、そのデータの奇数(もしくは偶数)行(もしくは列)だけをシート2にリンク(リンクという言い方があっているのか分かりませんが、シート1のデータを変更すれば、自動的にシート2のデータもそれに応じて変更してくれるという意味合いで使っています)ための関数はどうのよう入力すればいいのでしょうか? ちなみにその関数はシート2のA1に入力すればいいのですよね?(関数といったものも使ったことがなく分かりません) どなたか、ご回答お願いします!!

  • 列の奇数のカウントの方法

    ある列に1セルに1つの数字(1桁や2桁)があり、その列の奇数の数をカウントしたいのですが、適当な関数はありますでしょうか? 教えてください。

専門家に質問してみよう