EXCEL 関数を使って出来る？

質問

例えば　1000×0.5（この数字は変動する）＝500　のこの数字を

Ａ１のセルに　0.5　と入力してenterすると　Ａ1のセルに　500　と表示される方法はありますか？

（日付等は表示方法が指定出来るので10/5と入力しても10月5日と表示されるので
類似するような方法が無いのかな？と疑問）

直接の入力の方法が駄目でしたら隠れたセルに　0.5　と入力して
人からは　500　と表示される数字だけ見えるようにする良い方法があれば
教えて下さい

回答No.4

tom04 · ベストアンサー

No.1です。

＞これをセルの　I７からI４５までに適用させたいのですが・・・

とありますので

↓のコードに変更してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I7:I45")) Is Nothing Or Target.Count <> 1 Then Exit Sub
If Target <> "" And IsNumeric(Target) Then
Application.EnableEvents = False
Target = Target * 8000
Application.EnableEvents = True
End If
End Sub

こんな感じではどうでしょうか？m（_ _）m

お礼

出来ました！かなり感動してます。無知な私にご指導頂き本当に有難うございます。
少しVBAに興味が湧き勉強してみようかと思い始めています。
頭に入るとは思えないですがとても良いきっかけになりました。

回答No.3

OKWavex

セルの書式設定において
表示形式タブ　のユーザ定義で

[>=10]#0"000";0
/1000

と入力して（かならず、/1000入力前に Ctrl+J で改行して２行の入力が必要）
配置タブ　の文字の制御で、折り返して全体を表示する(W)にチェックを入れることで、
10より大きな数値は後ろに000を付加して表示することで1000倍表示し
10より小さな数値は1000で割る前の値として表示することで1000倍表示します

ただし、10より大きな値は小数点以下が無視され、10より小さな数値の1000倍の結果の小数点以下は四捨五入されます

お礼

他の方の方法で無事解決いたしましたが、教えて頂いたこちらの方法も他のシーンで活用出来ます。
有難うございました。

回答No.2

WindFaller

こんばんは。

ご質問のA1を対象とします。

マウスカーソルを、A1に置き、

書式で、ユーザー定義を選び、小窓に
0/1000
とし、
0の次にカーソルを持ってきて、「コントロール+J」で改行を入れてあげます。
すると、見かけ上は、小窓の中は、「0」だけになります。

次に、配置を開き、文字の制御--「折り返して全体を表示する」に、「レ」チェックを入れますと、0.5は、500に、つまり1000倍に表示されます。

お礼

他の方の方法で無事解決いたしましたが、教えて頂いたこちらの方法も他のシーンで活用出来ます。
有難うございました。

回答No.1

tom04

こんばんは！
関数では無理だと思います。
VBAになってしまいますが、一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてA1セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Target.Address = "$A$1" And Target <> "" Then
If IsNumeric(Target) Then
Application.EnableEvents = False
Target.Value = Target.Value * 1000
Application.EnableEvents = True
End If
End If
End Sub 'この行まで

※　＞Ａ１のセルに　0.5　と入力してenterすると　Ａ1のセルに　500　と表示される
とありますが、
見た目ではなく実データ（0.5ではなく500）になってしまいます。

こんなんではどうでしょうか？m(_ _)m

補足

これです！すごい！出来ました。それでもう少し教えて下さい。1000は変更したいので今回8000に置き換えてちゃんと希望の数値が表示されました。これをセルの　I７からI４５までに適用させたいのですがどのように入れれば良いでしょうか？何度も申し訳ありません。宜しくお願いします。