[[20180105115823]]　『１を１０００として入力するには？』（ケント）　ページの最後に飛ぶ

『１を１０００として入力するには？』（ケント）

１０００を１として表示するには#,###,ですが、１と入力したのを１０００として計算表示させるにはどうしたらいいでしょうか？

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 1と入力して表示だけ1000にするのか、データ自体を1000にするのかどちらですか？
（コナミ） 2018/01/05(金) 12:26

表示は１のままデーター自体を1000にしたいのです。
よろしくお願いします。
（ケント） 2018/01/05(金) 13:20

 計算のほうで例えば
 =関数(A1)
 とするところを
 =関数(A1)
 としてはどうか。
（ねむねむ） 2018/01/05(金) 13:21

 あるいはExcelのオプションの詳細設定-編集設定の小数点位置を自動的に挿入するにチェックを入れて入力単位を-3にし、
 セルの表示形式を
 #,##0,
 に。
 これで1と入力すると1000になり表示形式で1と表示される。

（ねむねむ） 2018/01/05(金) 13:26

やりたいことがイマイチつかめないですけど、
（１）セルの上で右クリック－「セルの書式設定」
（２）「表示形式」のタブ－「分類」のなかの「ユーザー定義」を選択
（３）「種類」の入力欄に「1」と入力※カギ括弧は不要
これで、どんな数字が入力されても１と表示されます。
※文字入力はそのまま入力された文字になります。
（もこな２） 2018/01/05(金) 13:29

 ただし、編集設定の小数点位置を自動的に挿入する、の設定はブックではなくExcelそのものの設定のため設定後に開いた他のブックにも影響してしまう。
（ねむねむ） 2018/01/05(金) 13:31

 すまない。
 （ねむねむ） 2018/01/05(金) 13:21
 の書き込みは
 >=関数(A1)
 >とするところを
 >=関数(A1*1000)
 で。

（ねむねむ） 2018/01/05(金) 13:33

オプション設定を-3にして#,##0,でうまくいくような気がして試してみたら、他のセルも適用されて
しまうので、ちょっと・・でした。
円単位で別のシートに表があって、その数字を別のシートにリンクさせ、そちらのシートでは千円単位に
なる様に、#,##0,で書式設定してあります。
そのリンクしてあるシートの別のセルに数字を入力して分析する様にしてあるのですが、ここで円単位で
入力すると、千円単位でリンクさせてある数字とごっちゃになってしまい判断しにくくなるという点と、
計算が正確にされなくなってしまいます。
表示上は千円単位になっていても、リンク元の数字は円なので、入力する側の数字を千円単位で入力する
わけにもいきません。100,000→100に書式設定で変換、任意で100,000を手入力で100と入力して足し算をすると、100.01になってしまいます。
100を入力すると、100,000を入力したのと同じ結果になる様にしたいのです。
そうすれば、100＋100で200（200,000）になります。

（ケント） 2018/01/05(金) 15:50

 値を入力する範囲が決まっているのならばマクロで1000倍して表示形式で1/1000表記にしてはどうか。
（ねむねむ） 2018/01/05(金) 17:09

 ワークシートモジュールに
 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim WK_RANGE        As Range

    If Intersect(Target, Range("C5:C10")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each WK_RANGE In Intersect(Target, Range("C5:C10"))
        If IsNumeric(WK_RANGE.Value) Then
            WK_RANGE.Value = WK_RANGE.Value * 1000
        End If
    Next
    Application.EnableEvents = True

 End Sub

（ねむねむ） 2018/01/05(金) 17:10

 上記はC5セルからC10セルに数値を入力すると1000倍にする。
 なのでC5セルからC10セルの表示形式を#,##0,にしておいてくれ。
（ねむねむ） 2018/01/05(金) 17:11

できました！
ありがとうございました。
（ケント） 2018/01/09(火) 11:06

コメント返信：

[ 一覧(最新更新順) ]

[[20180105115823]] 『１を１０００として入力するには？』（ケント） ページの最後に飛ぶ

[[20180105115823]]　『１を１０００として入力するには？』（ケント）　ページの最後に飛ぶ