エクセルで書式設定で「小数点未満切り捨て」する方法は?関数やVBAではなく(それはわかっているので)、表示だけ変えたいのです。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2003/07/05 00:18:23
  • 終了:--

回答(6件)

id:zifree No.1

zifree回答回数175ベストアンサー獲得回数62003/07/05 00:59:04

ポイント10pt

あくまで見かけ上だけですが・・・

セルを右クリックして「セルの書式設定」を開きます。

「分類(C)」で「数値」を選び、「小数点以下の桁数」を0にすると小数点未満は表示されません。

id:maru0906

それ、四捨五入されませんか?

2003/07/05 01:30:37
id:orokuishimine9 No.2

orokuishimine9回答回数63ベストアンサー獲得回数02003/07/05 01:03:36

ポイント10pt

http://www.hatena.ne.jp/1057331903

エクセルで書式設定で「小数点未満切り捨て」する方法は?関数やVBAではなく(それはわかっているので)、表示だけ変えたいのです。.. - 人力検索はてな

URLはダミーです。

セルの書式設定で分類を「数値」にして、小数点以下の桁数を設定すれば。

もっと簡単に、ツールボックスの

← .0

 .00

 .00

→ .0

という雰囲気のボタンを押せば変えられます。

id:hoehoe02 No.3

ほえほえ02回答回数317ベストアンサー獲得回数52003/07/05 03:03:10

ポイント10pt

http://www2.odn.ne.jp/excel/

エクセル技道場

うちにあるのはEXCEL2000ですが、書式設定がユーザ定義を含めて端数の処理を四捨五入しか用意していないので、「書式設定のみ」では不可能です。関数なり、0.5引くなりするのが早いと思います。

id:maru0906

やはり、無理ですかね

2003/07/05 23:17:17
id:anqmb No.4

anqmb回答回数3ベストアンサー獲得回数02003/07/06 01:54:51

ポイント60pt

http://www.hatena.ne.jp/1057331903#

エクセルで書式設定で「小数点未満切り捨て」する方法は?関数やVBAではなく(それはわかっているので)、表示だけ変えたいのです。.. - 人力検索はてな

URLはダミーです。

質問文には「VBAではなく」とありますが、表示形式の変更自体にVBAを使うのは許してください。考え方としては、以下のようにしています。

・セルに入力がある度に、切り捨てにみえる書式を動的に設定する

まず、Visual Basic Editorを開き、ThisWorkBookオブジェクトに以下のコードを追加します。

Public Sub TruncCurrentRegion()

Dim c As Range, cv, acv

For Each c In ActiveCell.CurrentRegion

If IsNumeric(c.Value) Then

cv = Int(c.Value)

acv = Abs(cv)

c.NumberFormatLocal = ”[>” & cv & ”]””” & acv & ”””;”

End If

Next

End Sub

次に、切り捨て表示を行いたいワークシートの

オブジェクトに、以下のイベントを追加します。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

ThisWorkbook.TruncCurrentRegion

End Sub

これで、イベントを追加したワークシートに

数字や数式を入力してみてください。

ただし、数字を入れたセルの近傍にいくつも

数字があると、あからさまに遅いです。

id:anqmb No.5

anqmb回答回数3ベストアンサー獲得回数02003/07/06 02:07:51

URLはダミーです。

さっきの回答のうち、TruncCurrentRegion()を以下のものに修正させてください。

Public Sub TruncCurrentRegion()

Dim c As Range, cv, acv

For Each c In ActiveCell.CurrentRegion

If IsNumeric(c.Value) Then

cv = Int(c.Value)

acv = Abs(cv)

c.NumberFormatLocal = ”[>=” & cv & ”]””” & acv & ”””;”

End If

Next

End Sub

id:ulalaka No.6

ulalaka回答回数41ベストアンサー獲得回数02003/07/06 05:35:28

ポイント10pt

URLはダミーです

書式設定でできることは四捨五入どまりです。ですので「できない」ということになります。

id:maru0906

皆さん本当に色々ありがとう。書式だけでは無理なのね・・・

2003/07/06 22:44:29

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません