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

質問

例えば、　セル（Ａ１）に１
　　　　　セル（Ｂ１）に３
　　　　　セル（Ｃ１）に＝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.12

kazuhiko5681

＃１１の方が使われた
Application.WorksheetFunction.Sum(Range(cells(.Row, 1), cells(.Row, 2)))
を使うとエラーがおきてしまうことがあります。マイクロソフトのサポートセンターのサポーターからエクセルのバグでWorksheetFunctionが誤作動を起こしてしまうことがあるために、使わない方がよいという指導を受けたことがありますのでお知らせしておきます。
この式を使うのであれば、
Application.Sum(Range(cells(.Row, 1), cells(.Row, 2)))
を使った方がエラーを出さずに実行できるようです。

＃１１さんの考え方を利用したサンプルマクロを作ってみました。前回と同じように操作してみて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRow As Integer

myRow = Target.Row
If Target.Address = Range("A" & myRow).Address _
Or Target.Address = Range("B" & myRow).Address Then
Range("C" & myRow).Value = Application.Sum(Range("A" & myRow & ":" & "B" & myRow))
Range("D" & myRow).Value = Range("C" & myRow).Value
End If

End Sub

お礼

回答者の皆様、私のやりたいことは
皆様の教えてくれた方法で実現できました。
心より感謝いたします。ありがとうございました。
多数様よりご回答いただきましたが、
No10、No11の順でポイントとさせていただきます。

この場（No12のお礼欄）を借りて皆様にお知らせします。

回答No.11

taisuke555

マクロが解禁になった？みたいなので・・・

他の方は、C1セルに=SUM(A1:B1)という数式が入力されているのを前提に処理しておられるようなので、
私は、数式を入れないで行う方法を記述します。

１、[Alt]+[F11]を押す。VisialBasicEditerに変更されます。
２、左上にプロジェクトと書いてある中に、
　　　VBAProject(現在のブック名）
　　　　　└Microsoft Excel Objects
　　　　　　　　├Sheet1
　　　　　　　　　・・・
　　　　　　　　└ThisWorkbook
　　とあると思うので、Sheet1をダブルクリック
３．以下のコードを貼り付ける
***************************この下から*****************************
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'列指定（A,B列に入力された時に入力された行のC列に結果を表示する
Select Case .Column
Case 1, 2 'A列とB列
Cells(.Row, 3) = Application.WorksheetFunction.Sum(Range(cells(.Row, 1), cells(.Row, 2)))
End Select
End With
End Sub
***************************この上まで***************************
４．[Alt]+[F11]を押す。Excelに戻ります。
５．Sheet1のA列,B列で数値を入力すると合計が表示されます。

参考までに
*-------------------------------------------------------------*
'１つづつ指定
With Target
Select Case .Address(False, False)
Case "A1", "B1" '入力したセルがA1,B1
Range("C1") = Application.WorksheetFunction.Sum(Range("a1:b1"))
Case "A2", "B2" '入力したセルがA2,B2
Range("C2") = Application.WorksheetFunction.Sum(Range("a2"), Range("b2"))
End Select
End With
*-------------------------------------------------------------*
'行列指定(A2～B5に入力された時に入力された行のC列に結果を表示する
With Target
If (.Row >= 2 And .Row <= 5 And (.Column = 1 Or .Column = 2)) Then
Cells(.Row, 3) = Application.WorksheetFunction.Sum(Range(Cells(.Row, 1), Cells(.Row, 2)))
End If
End With
*-------------------------------------------------------------*

Application.WorksheetFunction.Sum Excelの関数を使用する為の記述です。
わかりやすい？ようにExcelの関数を使用してみました。

回答No.9

imogasi

＃８のご回答を追試しましたが思うようになりません
Ａ１に１、Ｂ１セルに３、Ｃ１に＝SUM（A1:B1)と入れる
。Ｃ１は４になります。Ａ１（－－＞２に）またはＢ１（－－＞４に）を値を変えても、勿論Ｃ１は変りますが、Ｄ１には値（５とか６）がセットされませんが。
またWorksheet_Changeは、演算結果で値が代わったケースを捉えてくれないようですね。Ｃ１はＡ１やＢ１の変化で変るが、ＴａｒｇｅｔはＡ１かＢ１のどれか１つということで当たり前ですね。それを考えて、
Private Sub Worksheet_Change(ByVal Target As _ Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
Range("d1") = Range("c1")
End If
End Sub
マクロはお好みでないところ済みません。

回答No.8

kazuhiko5681

こんばんわ。実現できないとのことですので、次のように少し変更してみましょう。

１.新規ブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させ、画面左上のVBAProjectと書かれている下のSheet1をクリックして表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRow As Integer

myRow = Target.Row
If Target.Address <> ActiveSheet.Range("B" & myRow).Address Then Exit Sub
Target.Offset(0, 2).Value = Target.Offset(0, 1).Value

End Sub

・シート１のＣ列に必要な行数分計算式を入力しておく。
・シート１のＡ１に３と入力する。
・シート１のＢ１に４と入力する。

Ｄ１に７と表示されるはずです。

これでも何も動作をしない場合は、エクセルのバージョンを教えて下さい。
もしかしたら、シートのチェンジイベントが使えないのかもしれません。その時は、別のサンプルマクロを組んでみたいと思います。何とか貴方様の思ったとおりに動作をする様を体験していただきたいので・・・・。

お手数をおかけいたします。よろしくお願いいたします。

回答No.7

kazuhiko5681

こんばんわ。＃２です。
＞見た目だけでなく、実際にも「値」とするには、C1をコピーして、カーソルをＤ１に運び、形式を選択して貼り付けの「値」として貼り付けています。これを自動でやりたいのです。
つまり、Ｄ１を選択したときに数式バーに４と表示されるようにしたいということですよね？これを実行ためにはマクロを組む以外に方法はありません。サンプルマクロを組んでみました。次のように操作してみて下さい。

・データの入っているブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させ、画面左上のVBAProjectと書かれている上にマウスポインターを合わせて右クリック後、挿入→クラスモジュールを順にクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Public WithEvents App As Application

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim myRow As Integer

myRow = Target.Row
If Target.Address <> ActiveSheet.Range("B" & myRow).Address Then Exit Sub
Target.Offset(0, 2).Value = Target.Offset(0, 1).Value

End Sub

・次に画面左上のVBAProjectと書かれている下のThisWorkbookをダブルクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Dim myClass As New Class1

Private Sub Workbook_Open()

Set myClass.App = Application

End Sub

ここまでの作業が終了したら、１度ブックを保存して終了し、再度ブックを立ち上げます。

操作方法：
Ａ列に適当な数値を入れる
Ｂ列に適当な数値を入れる

貴方様のおやりになりたいことが実現していると思います。

不具合・ご不明な点等がございましたら、ご遠慮なくお知らせ下さい。

補足

誠に有り難うございます。
実は、
教えていただいた手順でやってみましたが　実現できていません。

Ａ１とＢ１に数値を入れるとＣ１にＡ１＋Ｂ１の「値」がでるものと思われますが、いかんせん、私、基本ができていません。

しばらく勉強して、教えていただいた構文を理解してみます。

回答No.6

imogasi

敢えて言えば、Ｄ１に＝Ｖａｌｕｅ（Ｃ１）でしょうか。
（数値の時に限りＯＫ）。名目的に値＝Ｖａｌｕｅを使っているが、＝Ｃ１の方が
判りやすく、簡単でしょう。＝Ｃ１も関数と言えなくはないのではないですか。

お礼

ご回答有り難うございます。

回答No.5

moon00

eocさんのおっしゃってることを関数でやるのは不可能だと思います。
「関数」を使う限り、数式バーにはその関数を用いた式が入力される
ことになるからです。
マクロを使うしかないと思うのですが。
お役に立てずにすみません。

お礼

ご返答有り難うございます。マクロを使うと簡単な内容でしょうか。
今からマクロについて勉強します。
直ぐには理解できないでしょうが、エクセルの解説書など見ながら少しずつ理解したいと思います。
図々しいお願いと思いますが、よろしければマクロでの方法をお教え願えないでしょうか。

構文が長くなるようでしたら、貴方に申し訳ないので結構です。

ご返答有り難うございました。

回答No.4

shota_TK

D1セルに「=C1」と入力するか、C1をコピーして「編集→形式を選択して貼り付け→値」でしょうね。
値をコピーするのでしたら、ショートカットを使う方法もあります。
Ctrl+Cでコピーした後、貼り付け先のセルを選択し、Altを押しながら「E→S→V→Enter」です。

あるいは、「値を貼り付け」ることが多いようでしたら、「ツール→ユーザー設定→コマンド→編集」の中に「値の貼り付け」がありますから、このアイコンをドラッグしてツールボックスの中に入れておけば、次からワンクリックで値をコピーできます。

補足

早速のご返答有り難うございます。
「編集→形式を選択して貼り付け→値」に相当することを関数で自動にできないでしょうか？
具体的には、
セルＡ１とセルＢ１に数値を入れるだけで、Ｃ１は＝Ａ１＋Ｂ１を自動で行い、なおかつＤ１には　数式バーの部分も含めて　Ｃ１の「値」が入るようにしたいのです。
そんな関数はないでしょうか？

回答No.3

taknt

+C1 とやる手もあります。

補足

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

+C1と入力すると、Ｄ１の見た目はＣ１と同じですが、数式バーは「＋Ｃ１」となります。
「形式を選択してコピー」に相当する関数はないでしょうか？

回答No.2

kazuhiko5681

初めまして。
Ｄ１のセルに＝Ｃ1とやってみてはどうでしょうかこれでできると思いますが・・・・。

もし、違うのであればごめんなさい。

補足

ご返答誠に有り難うございます。
No１，４の方の補足欄に記入した通りです。
D1に＝Ｃ１といれると、Ｄ１の見た目はＣ１と同じですが、数式バーの表示は「＝Ｃ１」のままですよね。
これでは具合が悪いのです。

>もし、違うのであればごめんなさい。

いいえ、私の質問が下手なんです。ご返答に感謝しております。