一つのセルに関数計算式と数字を入れたいです

質問

エクセルの質問です一つのセルに関数計算式と数字を入れる様にすることは可能でしょうか？ 例えば そのセルに何も入力しないと、他のセルとの計算結果が表示され、数字が入力されると、その数字を元に他のセルへ計算結果が出る様にしたいのですが、A1のセルに何も数字を入力しないと、計算式でA1は＝B1/C1の％表示で、A1に数字を入力すると、その数字を元にB1は＝C1*A1の計算結果を反映させたいのですが、よろしくお願いします

回答No.2

kigoshi

とりあえず以下の方法をお試し下さい。

１）そのシートのシートタブを右クリック。「コードの表示」をクリック。
２）右側のエディタエリアに下記コードを貼り付け。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address
Case "$A$1"
Cells(1, 2).FormulaR1C1 = "=value(RC[1])*value(RC[-1])"
Case "$B$1"
Cells(1, 1).FormulaR1C1 = "=IF(RC[2]=0,"""",RC[1]/RC[2])"
End Select
Application.EnableEvents = True
End Sub

お礼

すごいですね、出来ました、ありがとうございます。

回答No.1

jo-zen

以下のURLを参考にしてみてください。

　　http://ja.wikipedia.org/wiki/%E5%BE%AA%E7%92%B0%E5%8F%82%E7%85%A7

循環参照となってしまいますので無理ですし、その前に、「A1のセルに何も数字を入力しないと、計算式でA1は＝B1/C1の％表示で、A1に数字を入力すると、その数字を元にB1は＝C1*A1の計算結果を反映させたい」ということはできません。数式だけか、または入力値だけか、いずれかしかとれません。

計算方法の根本的な見直しが必要かと思います。作業セルをいくつか使い、表示セルも場合によって変えてあげれば、やりたいことはできると思いますが。

お礼

ありがとうございます、出来ました
感謝です