エクセルのマクロで教えてください

質問

エクセルのマクロで教えてください
A1に入っている値が変化するごとにＤ列に順にその変化を出力していきたいのですが
マクロではどのようにしたらいいでしょうか
A1には=C1+C2というような計算式が入っていてC2の数字を変えて計算結果が変わるごとに出力したいのですが

回答No.2

merlionXX · ベストアンサー

入力の対象をC1に限定するなら

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Address(0, 0) <> "C1" Then Exit Sub
　　Cells(Rows.Count, "D").End(xlUp).Offset(1).Value = Range("A1").Value
End Sub

C1、C2ともに対象とするなら

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Intersect(Target, Range("C1:C2")) Is Nothing Then Exit Sub
　　Cells(Rows.Count, "D").End(xlUp).Offset(1).Value = Range("A1").Value
End Sub

いづれも、そうしたいワークシートのシートタブをクリックし、コードの表示を選び、出てきた白い画面に、どちらか一方のコードをコピペしてください。

お礼

ありがとうございますできました！＾０＾

回答No.3

imogasi

こういうのはマクロのイベントを使わないと出来ません。VBAをある程度わかってからの課題です。
エクセルでは、入力する場所を（異形ずつ下など規則正しく設定し、結果側の数式を式の複写（または特別な食う風した式）で変化させるのです。
このへんはエクセルの利用方法の特徴なので、ニーズがあるとき、どちらを採るか良く考えないといけません。
質問のようなのは、エクセルの特賞を良くわかってない初心者的発想です。
いろんな意味でプロセスを記録するような使い方はあまり適していない。
特にChangeイベントでやると入力した元データが残らないためです。両者を残すなら、標準ではFormなどを設計します。
エクセルはデータをシートに一旦記録して、それからどれらのデータを元に計算式で計算するのが基本です。
場合によってはデーターフォームのフォームの入力でも良いかもしれない（毎度のセル選択確認が面倒とか）。
Changeイベントは、操作者が入力について色々やると対処が難しく、他者が使う（入力する）ようなものでは、対処プログラムが初心者には難しいいと思います。
ーー
VBAでやる場合は数式は、VBAの中に設定する場合が大多い。
その場合は計算結果を設定するセルは、セルに式が残りません。

回答No.1

DIooggooID

Change イベントを利用すれば、実現可能です。

こちらを参考にして下さい。

http://www9.plala.or.jp/siouxsie/date06.html

参考URL：

http://www9.plala.or.jp/siouxsie/date06.html