エクセルの値のコピー（自動で）について

質問

例えば、　セル（Ａ１）に１
　　　　　セル（Ｂ１）に３
　　　　　セル（Ｃ１）に＝SUM（A1：B1）　と入力します。
　　　　　セル（Ｃ１）は、見た目には４ですが、
　　　　　実際は「＝SUM（A1：B1）」です。　
ここで、　セル（Ｄ１）には、セル（Ｃ１）のコピーを「値」の形式で貼り付けると　　　　セル（Ｄ１）は４となります。
このセルＤの貼り付けを自動で行いたいのですが可能でしょうか。
私はマクロとか分かりません。　関数での方法を教えて下さい。

回答No.10

kazuhiko5681 · ベストアンサー

こんばんわ。マクロ記述ミスがあったようなので訂正させていただきます。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRow As Integer

myRow = Target.Row
If Target.Address = Range("A" & myRow).Address Then
Target.Offset(0, 3).Value = Target.Offset(0, 2).Value
ElseIf Target.Address = Range("B" & myRow).Address Then
Target.Offset(0, 2).Value = Target.Offset(0, 1).Value
End If

End Sub

それと、＃９さんのご回答は１行目だけでしか変化しません。２行目以降に値を入力しても何も起こりません。
ですから、わたしはどの行であっても動作するようにTargetとOffsetを使って＃９に書かれている
Range("D1") = Range("C1") を
Target.Offset(0, 3).Value = Target.Offset(0, 2).Value'Ａ列の値が変化した時
Target.Offset(0, 2).Value = Target.Offset(0, 1).Value'Ｂ列の値が変化した時
という式で表しているのです。

例えば、Ａ１の値が変化した時
Target.Offset(0, 3).Value = Target.Offset(0, 2).Valueは
Targetは,Ａ１・Offset(0,3)は下に０,右に３進んだセル(Ｄ１)・Offset(0,2)は下に０,右に２進んだセル(Ｃ１)を表しています。ですから、
この式はRange("D1") = range("C1")と同じ意味になるのです。
Ａ２・Ａ３・・・が変化すれば、Targetの値もＡ２・Ａ３・・・と変化していきます。

ですから、＃９さんが
＞Ａ１に１、Ｂ１セルに３、Ｃ１に＝SUM（A1:B1)と入れる
。Ｃ１は４になります。Ａ１（－－＞２に）またはＢ１（－－＞４に）を値を変えても、勿論Ｃ１は変りますが、Ｄ１には値（５とか６）がセットされませんが。
とおっしゃっておりますが、私の式で動かないということは、この方の書かれた式でも動作しないということになります。

＃９さんもよく式の意味を理解してから書き込みをされた方が、よろしいかと思います。このように質問者を惑わすようなことになりかねませんので・・・。

回答No.1

aodesu

＝C１とかじゃまずいんですか？
D1に＝C1とうって、ドラッグしていけばなると思います。

質問のとらえ間違いでしょうか？

補足

早速のご返答有り難うございます。

D1に＝C1と入力すると、セルＤ１は見た目は４ですが実際は「＝C1」ですよね。
見た目だけでなく、実際にも「値」とするには、C1をコピーして、カーソルをＤ１に運び、形式を選択して貼り付けの「値」として貼り付けています。
これを自動でやりたいのです。
「実際は」とは、数式バーの表示のことです。