excelでの数値切り捨て、桁制限をひとつのセルで

質問

数字を入力した時に、切り捨てと同時に、桁数を揃えることは可能でしょうか

具体的には、
（入力）　12.34 　→　 012 整数が2桁あるので、小数点以下を切り捨て、頭に「0」をつけ3桁にする
　　　　　　 1.23　 →　 1.2 整数が1桁なので、小数点以下第二位を切り捨て、3桁（3文字?）にする
　　　　 　　 0.12　 →　 .12 整数が「0」なので、小数点以下を3桁（3文字）を表示する

となるようにしたいです。

入力規則で、[>9.99]0##;[>.99]#.#; と入れて試してみたのですが
この場合、入力が「34.56」「3.45」等であると、切り捨てて欲しい部分を四捨五入してしまい
（入力）　34.56 → 035　　　（034になってほしい）
　　　　　 3.45 → 3.5 　　　 （3.4になってほしい）

となってしまいます。良い方法はあるでしょうか

回答No.1

keithin · ベストアンサー

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim h As Range

　Application.EnableEvents = False
　For Each h In Target
　　If IsNumeric(h) Then
　　If h >= 10 Then
　　　h = Int(h)
　　　h.NumberFormatLocal = "000"
　　ElseIf h >= 1 Then
　　　h = Application.RoundDown(h, 1)
　　　h.NumberFormatLocal = "0.0"
　　ElseIf h > 0 Then
　　　h = Application.RoundDown(h, 2)
　　　h.NumberFormatLocal = ".00"
　　Else
　　　h.NumberFormatLocal = "G/標準"
　　End If
　　End If
　Next
　Application.EnableEvents = True
End Sub

ファイルメニューから終了してエクセルに戻る
セルに数字を記入する。

＞切り捨てと同時に、桁数を揃える

エクセルの一般機能ではそういう事は出来ませんが、セルの書式設定の表示形式のユーザー定義で
[>=10]000Ctrl+J.#########;[>=1]0.0Ctrl+J########;.00Ctrl+J#########
Ctrl+Jはコントロールキーを押しながらＪ
と設定し、そのまま配置タブに移動して「折り返して全体を表示」にチェック、縦位置を「上詰め」に設定してＯＫしておくと、そのように表示できます。

お礼

回答有り難うございます

いろいろな方法があるのですね。古いPCでの作業なので、最も負担の少ないものにしてみます。

回答No.2

MarcoRossiItaly

No.1さんが最後に書かれたのは、「Ctrl+J」で改行した部分の桁を、セルの行の高さを広げないことにより、見せない方法かと思います。

さて、入力した数値を加工し、別セルに結果を表示するのでも構わない場合は、話は簡単です。

=rounddown(a1,2-1-int(log10(a1)))　　……「345.6」→「340」のように切り捨てる場合
あるいは
=if(a1>=100,int(a1),rounddown(a1,2-1-int(log10(a1))))　　……「345.6」→「345」のように切り捨てる場合

※数式中に出てくる「2」は、有効数字の桁数です。

後は B1 の書式として「[>=10]000;[>=1]0.0;.00」を設定します。

お礼

回答有り難うございます

いろいろな方法があるのですね。古いPCでの作業なので、最も負担の少ないものにしてみます。