数値入力したセルに別のセルの値との積の表示

質問

２つのセルの値の積を、また別のセルに表示するのではなく、

入力したセルに、そのまま返すよう表示させたいのですが、

セルを３つ使う方法しか分かりません。

たとえば、

Ａ6に「5」、Ｄ6が空欄

の時、Ｄ6に「1000」と入力した場合、

Ａ6の「5」との積、「5000」が

Ｄ6に返されるようにしたいのですが、

ご教授宜しくお願いいたします。

回答No.1

y-bankrupt · ベストアンサー

おそらく関数での対応は無理だと思いますので
マクロコードをお伝えします
標準モジュールにまるごと貼り付けて
数値を返したいシートにボタンを設置して
数値を返したいときにボタンを押してもらえれば大丈夫だとおもいます
参考までに試してみてください

Sub keisan()

Dim a As Currency
Dim b As Currency

a = ActiveSheet.Range("A6").Value
b = ActiveSheet.Range("D6").Value

ActiveSheet.Range("D6").Value = a * b

End Sub

お礼

お礼が遅くなりまして失礼致しました。

やりたいことが完璧に出来ました！

有難う御座いました！