エクセルの数字の表示方法

質問

2,222,222.22の数字があったとします。
小数点以下で、２桁まで表示したいのですが、でも、小数点以下が、１位、２位で、「0」の場合は、表示したくありません。
先の質問で、書式を、「0.？？？」のアドバイスをもらいました。これで、一応出来るのですが、整数の場合、「．」が付きます。
まあ、これぐらいは、しょうがないのですが、千の位の「，」がないので、付けることは、出来ないでしょうか？
したいことは、
2222222.　→2,222,222.
2222222.02→2,222,222.02　　です。

回答No.5

dejiji- · ベストアンサー

Ｎｏ３です。ちょっと間違えました。
_*#,##0.???_;_*-#,##0.???_;_"-"???_;_@_
です。＿で表示を囲み；で区切るでした。

回答No.4

ja7awu

ご希望のように整数の場合、少数点を表示しないで、しかも位をキチッ～ト
揃えるためには、ＶＢＡでないと無理なような気がします。

それで良ければ、操作手順を詳しく書きますので、テストしてみてください。

１．Alt + F11 で VBE(Visual Basic Editor)を開きます。
２．VBE のメニューから[挿入] -->[標準モジュール] を指定します。
３．モジュールウィンドウに下記コードをコピーして貼り付けます。
４．実行の都度範囲を指定しないで、範囲を固定するときは、４行目で指定します。
　　(そのときは、４行目の先頭の　’を消します。)
５．Alt + Q （または、右上隅の×）でウィンドウを閉じ、シートに戻ります。
６．実行するときは、（範囲を指定して）Alt ＋ F8 （または、メニューから
　[ツール]-->[マクロ]-->[マクロ])　で「少数点揃え」を指定し、
　[実行]ボタンを押します。　これで希望通り数値が揃います。
　（書式は、「文字列」になっていますが、計算式にもそのまま使えます。）

Sub 少数点揃え()
'指定セル範囲を少数２桁で桁を揃えて表示。
Dim R As Range
'Range("B1:B100").Select '　セル範囲を固定する場合ここで指定
Selection.Font.Name = "ＭＳ ゴシック"
Selection.NumberFormatLocal = "@"
Selection.HorizontalAlignment = xlRight
For Each R In Selection
　　If IsNumeric(R) And Not IsEmpty(R) Then
　　　　R.Value = Fix(R.Value * 100) / 100
　　　　If R.Value - Int(R.Value) = 0 Then
　　　　　　R.Value = Format(Trim(Val(R.Value)), "#,##0") & Space(3)
　　　　ElseIf R.Value * 10 - Int(R.Value * 10) = 0 Then
　　　　　　R.Value = Format(Trim(R.Value), "#,##0.0 ")
　　　　Else
　　　　　　R.Value = Format(Trim(R.Value), "#,##0.00")
　　　　End If
　　End If
Next R
End Sub

回答No.3

dejiji-

書式設定でユーザー設定で以下のように入れてみて下さい。
_*#,##0.???_;*-#,##0.???_;_"-"???_;_@_
「_」はshift+ろで出ます。
これで、小数点位置が揃い、カンマの位置も揃います。小数点以下の０表示もされなくなると思います。
？の数で小数点以下の桁数を調整してください。

補足

ありがとうございます。
出来るようになりました。

回答No.2

shigechama

桁区切りは、セルの書式設定からもできますが、ツールバーの「％」の右にある「，」で簡単にできます。

回答No.1

madman

セルの書式で
#,##0.##
としてみてください。

補足

ありがとうございます。
確かに、私の思い通りには、表示されますが、いけんせん、縦に並べた場合、少数点の有無で、上下の桁がずれてしまいます。
他に、ありましたら、よろしくお願いします。