質問

エクセルで数字をセルに入れて倍数にしたい

質問者：onara931
投稿日時：2006/12/01 13:59

ちょっと分かり難いタイトルで申し訳ありません。

エクセルで、「あるセルにある数字を入力すると、その数字を倍にした数字となる」ということは可能でしょうか？

例えば、A1のセルに、「1」と入れた場合に「1」と表示するのではなく、倍の「2」として結果を返すようにしたいのです。
A1に「1」を入れて、A2で「2」と返されるのではダメです。

表のフォームが決まっているので、それを変更しないで処理したいのですが、どうにも上手い方法が見つかりません。

ユーザー定義で「0*2」（任意の数字を入れたら２を掛ける、の意図)としたのはダメでした。

よいお知恵がありましたら、お願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

No.4

回答者：imogasi
回答日時：2006/12/01 23:09

これはエクセル関数では絶対できません。
セルの値を使って演算して、元のセルに戻すと式が壊れますので、どうしてよいかわからなくなるのです。
一旦別変数に退避して、その数を使って演算し、セルにセットできるVBAなら簡単です。
ただデータが変化したときを捉えて、演算をする必要があるので、イベントという仕組みを（Changeイベント）を使わざるを得ません。
エクセル関数の２＋１大原則
（１）セルの値を使い関数演算して戻すことはできません
（２）関数は、値しか処理できません（値？値以外に、どんなものが
あるか関心を持ったことがありますか。
（３）エクセルの日付・時刻は日付シリアル数、２４時間を１とする数である。

この回答へのお礼

そうですね。関数では出来ません。レクチャーどうも多謝です。

通報する

No.3

回答者：maron--5
回答日時：2006/12/01 21:54

◆表示形式による方法です
入力した数字の２倍が表示される方法です
１）表示形式を「ユーザー定義」で、 #/2　とする
２）/2の前を指定して、、　Ctrl を押しながら、J　を押す
３）［配置］の「折り返して全体を表示」にチェック
注）入力数字が4～5桁になると、######　になるケースがあります

この回答へのお礼

ありがとうございました。
ですが表示で２倍になっても実態が違うので計算には使えませんでした。
残念でしたが。

通報する

No.2ベストアンサー10pt

回答者：mshr1962
回答日時：2006/12/01 14:44

＞さらに複数のセルを同じように設定するにはどうしたらよいのでしょうか？
範囲の指定でいいなら
A1とA10
If Target.Address <> "$A$1" And　Target.Address <> "$A$10"　Then Exit Sub
－処理－

A列全部
If Target.Column <> 1 then Exit Sub
－処理－

A1:A10の範囲
If Target.Column = 1 then
If Target.Row >= 1 And Target.Row <=10 then
－処理－
End If
End If

If以外で判定なら
Select Case Target.Address
Case "$A$1","$A$10"
－処理－
End Select

この回答へのお礼

ありがとうございました。

通報する

No.1ベストアンサー20pt

回答者：merlionXX
回答日時：2006/12/01 14:11

入力したセルをそうしたいのであれば、関数では不可能ですね。
ＶＢＡでやってみました。簡単ですので以下の手順を試してみてください。

１．シートのタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error GoTo line
If IsNumeric(Target.Value) Then Target.Value = Target.Value * 2
line:
Application.EnableEvents = True
End Sub

'*****ここより上までをコピペ*****

３．Alt+F11キーでワークシートへもどります。

さあ、Ａ１に数字を入れてみてください。（￣ー￣）v