相互に連動して値の変化するセル（エクセルＶＢＡ）

質問

当方プログラミング初心者です。こちらのカテゴリならお分かりになる方がいらっしゃると思い質問させていただきました。

それぞれに入力できなおかつ一方の値が変化すると他方の値が変化するものを作りたいのです。
具体的には、ある年度の総売上を100％としてその内訳の売上、例えば、生鮮食品6500円で65％として、左のセルに6500右のセルに65と値あった場合、左のセルを7500にすると右が75になり、右のセルを55とすると左が5500になるようなものです。

つまり、売上のシミュレーションができるものを考えているのですが、そのようなことが可能かどうかできるならば具体的なコードでできなければ何か別の方法をご提示いただきたいのです。

回答No.2

mt2008 · ベストアンサー

とりあえず、VBAで実現する為のサンプルコードを提示します。対象シートモジュールに入れてください。
A1とB1の間で相互に連動しています。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
　　If Target.Address = "$A$1" Then
　　　　Range("B1") = Range("A1") * 100
　　ElseIf Target.Address = "$B$1" Then
　　　　Range("A1") = Range("B1") / 100
　　End If
　　Application.EnableEvents = True
End Sub

途中のApplication.EnableEvents = False/Trueは、無くても良いんですが念のため……。

回答No.1

hallo-2007

>売上のシミュレーションができるものを考えているのですが
やりたいことはわからないでもないですが
>左のセルを7500にすると右が75になり、右のセルを55とすると左が5500になるようなものです。
売上を増やすと合計の売り上げも増えるので　75％ではなくなります。
構成比を５５％と変更したら、ほかの構成比も変わります。
入力する度に、合計の金額（比率も）が変わりますよね。

売上の目標などを設定されていると思いますが、一例として

　　A　　　　　B　　　　　　C　　　　　　D
１目標売上　10000　　　　決定総売上
２
３　品目　　　設定金額　　設定比率　　決定金額
４生鮮食品　　6500
５　衣類　　　2000
６　家具　　　　　　　　　　　0.1
・・・
と準備したとして
D4セルに　=IF(B4="",B$1*C4,B4)
といれて下へコピーしておいて
B列、或いは　C列のいずれかに　数値を入れます。
金額を決定するのに、比率を優先したのか、金額を優先したのかわかります。
D1セルに　=SUM(D4:D100)とか入れておいて目標金額に合わせる為に
どれかの金額、或いは比率を合わせる必要があるかどうか
など判断されては如何でしょうか。

お礼

代替案のご提示ありがとうございます。
お返事遅れて申し訳ありませんでした。
参考にさせていただきます。