エクセルで万単位の桁を

エクセル2000で、A1セルに、25000と入力したら万単位で切り捨てて、A1セルに2となるようにするには、どうしたらよいのでしょう？

No.1 ベストアンサー 回答者： Masazo- 回答日時： 2001/06/11 20:07

通常のカンマ位置で区切るのであれば知ってるのですが・・・。

［セルの書式設定］(右クリック)－［表示書式タブ］
分類のユーザ定義を選択。
種類に「#,##0,;-#,##0,」と入力。
ＯＫ。

０の次のカンマの個数で切り捨てる桁が変わりますが・・・。

No.2 回答者： yumori3 回答日時： 2001/06/11 20:22

ＲＯＵＮＤＤＯＷＮ関数を使います。

これは、任意の桁の位置で切り捨てにする関数です。

＝ＲＯＵＮＤＤＯＷＮ（切り捨てたい数値，切り捨てたい桁数）

とします。
数値はセル番号でもある数式のままでもよいです。
桁数は小数点の位置を０とし、小数点１位なら１、
十位の桁なら－１と数えます。万の桁なら－４になります。

ただ確か、Ａ1セルに入力して、
そのまま結果をＡ1セルに返すことはできませんので、
例えばＡ1セルに入力して、Ｂ1セルに返すという風に、別にしてみてください。
そうすると、Ｂ1セルに入力する数式は

＝ＲＯＵＮＤＵＰ（Ａ1，－４）

となります。
ちなみに四捨五入するときはＲＯＵＮＤ関数、
切り上げのときはＲＯＵＮＤＵＰ関数です。
詳しくはエクセルのヘルプや参考書を見てください。

No.3 回答者： yumori3 回答日時： 2001/06/11 20:27

先ほど回答した者です。

下の回答で間違いがありましたので、訂正します。

Ｂ1セルに入力する数式は

＝ＲＯＵＮＤＤＯＷＮ（Ａ1，－４）

でした。
おわびします。

No.4 回答者： omusupa 回答日時： 2001/06/11 20:34

こんにちはっ。

万単位で切り捨てですねっ。
私はいつも
A1に25000と入力してあるのであれば、
B1に
=int(A1/10000)
と、しています。
ちなみにintは小数部分を切り捨ててくれる関数です。
表示形式では、千単位、百単位にになってしまうので・・・
表示形式ではないとだめでしょうか？

No.5 回答者： comv 回答日時： 2001/06/11 22:37

少々変則ですが

　書式設定
　　表示形式　ユーザー定義　0 [Ctrl]+J 0000
　　配置　下り返して全体を表示にチェック
（[Ctrl]+J はキー操作です）

　もしセル高さが既定より高い場合はフォント寸法
　の調整や　[Ctrl]+J 0 [Ctrl]+J 0000　等１行目
　に改行を入れるなどして調整して見て下さい。

※設定書式の間の空欄は、掲示上見易くするためのもので
　実際はありません。

No.6 回答者： nishi6 回答日時： 2001/06/12 01:28

マクロでよければ・・・・

ツール→マクロ→Visual Basic EditorでVBE画面に移り、表示→プロジェクトエクスプローラでプロジェクトエクスプローラ画面を出して、そこの「ThisWorkbook」をダブルクリックして、そのシートモジュールとして下記を貼り付けます。
Sheet1のセルA1に入力した時だけ自分を10000で割った商に変えます。Sheet1が別名だったらそのように下記を変更します。A1に25000を入力すれば、A1は2になるので、演算にも使えます。

たまに使う方法です。参考までに・・・・

'*** 自分を書き換える ***
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'複数セルを操作した時の対応
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then
Exit Sub
End If
'*** Sheet1のA1の時だけの例 ***
If Sh.Name = "Sheet1" And Target.Address = "$A$1" Then
'次の書き換えでまたイベントが起きるのを止める
Application.EnableEvents = False
'10000で割っている
Target = Int(Target / 10000)
'イベントが起きるように戻す
Application.EnableEvents = True
End If
End Sub