エクセルで(A1:C1)のセルにD1をかけるには

解決済

質問者：php2013
質問日時：2013/03/08 10:35
回答数：5件

例えばA1,B1,C1のセルが以下のようになっていて、

　[ 20 ][ 30 ][ 40 ]

D1のセルに式を書く事で、A1,B1,C1の表示を１０倍にしたり２０倍にしたりしたいのですが、

　[ 200 ][ 300 ][ 400 ][ 式 ]　（１０倍の例）

そのような事は可能ですか。

A1,B1,C1セルには値だけが書かれていて、これらのセルは変更したくありません。
D1の式を弄るだけで、A1,B1,C1の値が指定した倍率になって表示されるようにしたいです。
D1の式を削除すれば、元通り[ 20 ][ 30 ][ 40 ]が表示されてほしいです。

D1にかける数を入れておいて、各セルに[ =20*D1 ][ =30*D1 ][ =40*D1 ] とするのは避けたいです。
（このような列がたくさんあるので）

よろしくおねがいいたします。

通報する

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

質問の本文を隠す

回答 (5件)

No.5

回答者： mt2008
回答日時：2013/03/08 12:52

もしかしてこれでも良いの？

A1に　=20*IF(D1=0,1,D1)
B1に　=30*IF(D1=0,1,D1)
C1に　=40*IF(D1=0,1,D1)

- 0
- 件

通報する

この回答へのお礼

御回答ありがとうございます。
今回の場合、A1,B1,C1は変更したくないという条件です。

通報する

お礼日時：2013/03/09 13:54

No.4ベストアンサー

回答者： chupark
回答日時：2013/03/08 12:02

A1,B1,C1それぞれのセルの値のベースを20,30,40としておいて倍率によって値を更新したい、ということですが、

数式を入れないで各セルの値が更新されていくと、20,30,40を覚えておくことがそもそもできないですし、
どう考えても無茶な注文です。

ただし、VBAマクロなどを使うことを考えればできるかもしれません。

D1の式が変更されたことをトリガーとしてマクロが動作するような仕組みです。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$D$1" Then
Cells(1, 1).Value = 20 * Cells(1, 4).Value
Cells(1, 2).Value = 30 * Cells(1, 4).Value
Cells(1, 3).Value = 40 * Cells(1, 4).Value
End If

End Sub

上記は、よく考えずにさっと書いたので、式を削除したときに戻す処理まで書いていませんが。