[[20120919191314]]　『下三桁を０００にする方法』（ｖｖｖ）　ページの最後に飛ぶ

『下三桁を０００にする方法』（ｖｖｖ）
複数セルの数字の下三桁を一気に『０００』にする方法を教えてください。

例）　１２３，４５６　→　１２３，０００

宜しくお願い致します。

 マクロですが、選択範囲を処理する例です。

 Sub Sample()
     For Each r In Selection
         If IsEmpty(r) = False And IsNumeric(r.Value) = True Then r.Value = Int(r.Value / 1000) * 1000
     Next
 End Sub
 (Mook)

 ◆こんな方法はいかがでしょう
 １）マウスを右クリックして、「ショートカットメニュー」の「セルの書式設定」を選択して
 ２）「表示形式」→「ユーザー定義」にして「種類」に、　#,##0,",000"　と入力します
 (Maron)

Ｍｏｏｋさん
Ｍａｒｏｎさん

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

 解決されたようですが、一応関数案も…。
 =ROUNDDOWN(A1,-3)

 (se_9)

 解決してるみたいなのにすみません。
 Maronさんの方法ですと、百の位が5以上だと桁が繰り上がってしまいませんか？
 いいな、と思ったので試してみたのですが…

 ちなみに私が思いついたのは、

 =INT(A1/1000)*1000

 (コナミ)

 >コナミさん
 INT関数は、数値がマイナスの時に注意が必要です。
 A1 に、-123456 と入れてみて下さい。

 ちなみに　=TRUNC(A1,-3)　とかでも。
　
（純丸）(o^-')b

済みません。
便乗させて下さい。

Maronさん以外の方の方法だと、セルを別にしなくてはいけませんよね。

今、入力しているセル自体変更したいのでは・・・

下1桁、下2桁を０にする方法を探ってみたのですが　数字がおかしくなってしまって。
又、コナミさんのいうように四捨五入になりますし。

いい方法ないですか。

済みません。恥ずかしながらマクロは使いこなせません。

(事務のおばちゃん)

 純丸さん

 あー、なるほど…
 TRUNCって普段あまり使わないんですけどこういう時はいいですね。
 ありがとうございます。

 （コナミ）

 事務のおばちゃんさん
 マクロは使いこなせないということですが、マクロを使うのが一番いいかと。
 手順を載せておきますが、知っていたらすいません。
 Mookさんのコードをお借りします。

 エクセルを開いてツール → マクロ → Visual Basic Editor
 挿入 → 標準モジュール
 そこに以下のコード（Sub Sample()からEnd Subまで）をコピーして貼り付け

 Sub Sample()
     For Each r In Selection
         If IsEmpty(r) = False And IsNumeric(r.Value) = True Then r.Value = Int(r.Value / 100) * 100
     Next
 End Sub

 Visual Basic Editor画面を閉じて下2桁0にしたいセル範囲を選択
 ツール → マクロ → マクロ
 Sampleを選択して実行

 ちなみに下1桁を0にしたい場合は
 Int(r.Value / 100) * 100 の部分を Int(r.Value / 10) * 10
 にしてください。

 (se_9)

 ＞Maronさん以外の方の方法だと、セルを別にしなくてはいけませんよね。
 ＞今、入力しているセル自体変更したいのでは・・・

 最後までチャンと書いていただいた方がいいと思います。

 (半平太) 2012/09/20 17:15

半平太さん、ご指摘ありがとうございます。

そうですね、チャンと書かないと分りませんね。済みません。

私は、B列に１までの単位の数字が入っていて、一度に1,000円未満が切り捨てに出来ればと思ったのです。

又、10円単位や100円単位で切り捨てが出来ればとも考えましたが、出来ませんでした。

se_9さん　有難うございます。

ローカルな頭の私はマクロは難しくて、出来ませんでした。

せっかく教えていただいたのに申し訳ないです。

もっと勉強いたします。

(事務のおばちゃん)

コメント返信：

[ 一覧(最新更新順) ]

[[20120919191314]] 『下三桁を０００にする方法』（ｖｖｖ） ページの最後に飛ぶ

[[20120919191314]]　『下三桁を０００にする方法』（ｖｖｖ）　ページの最後に飛ぶ