VBAを使ってシートＡの３ヶ所のセルでシートＢの計算式を行う。

質問

シートＡ 　　　シートＢ
　 Ａ Ｂ Ｃ　Ｄ　 　　　Ａ Ｂ Ｃ Ｄ
1　10　20　30 () 　 1　10　20　30 (計算式)
2　10　20　30　()
3　10　20　30　()
4　10　20　30　()

(1)シートＡのＡ1，Ｂ1，Ｃ1をコピーしてシートＢのＡ1，Ｂ1，Ｃ1に代　入する。Ｄ1には計算式が入っているので結果が表示される。
(2)シートＤ1の計算結果をシートＡのＤ1に代入する。
(3)次はシートＡのＡ2，Ｂ2，Ｃ2をコピーしてシートＢのＡ1，Ｂ1，Ｃ1　に代入する。Ｄ1には計算式が入っているので結果が表示される。
　シートＤ1の計算結果をシートＡのＤ2に代入する。
(4)上記の動作をシートＡのＡ列のセルに数字がある場合は繰り返し行
　う。

回答No.5

n-jun

ANo.4です。

＞シートBは代入用のセルA1、B1、C1　計算式が入っているD1のみです。
そもそもシートＢが必要な意味がわかりません。

Sub try2()
Dim r As Range

With Worksheets("Sheet1")
Set r = .Range(.Range("A1"), .Cells(Rows.Count, 1).End(xlUp))
End With

With r.Offset(, 3)
.Formula = Worksheets("Sheet2").Range("D1").Formula
.Value = .Value
End With

Set r = Nothing
End Sub

結局シートＢのＡ１・Ｂ１・Ｃ１に代入させるのではなく、Ｄ１の数式を
シートＡのＤ列に入れた後、値に変換すればいいだけでは？

お礼

ありがとうございました。
＞そもそもシートＢが必要な意味がわかりません。
確かにそう思われるかもしれませんが、計算式を求めるのに
過去のデーターの一定の期間を抽出して行います。

何度も丁寧に教えていただき助かりました。
もっと勉強いたします。

回答No.4

n-jun

ANo.3です。

＞Sheet２のＡ1、Ｂ1、Ｃ1に代入し計算結果をSheet１の行ごとに
＞Ｄ1、Ｄ2、Ｄ3・・・と表示できませんでしょうか！
シート2のＤ列の結果をシート1のＤ列に出していますが。。。
どのような結果を希望なのかよくわかりません。

補足

説明が下手ですみません。お手数をおかけします。
シートBは代入用のセルA1、B1、C1　計算式が入っているD1のみです。
このシートBにシートAの数字を代入し計算させて、シートAのD列に値を戻したいのです。
シートA　　　　　　　　　　　　　　　シートＢ
　 Ａ Ｂ Ｃ　 Ｄ 　　　　 　　Ａ Ｂ Ｃ　　　　 Ｄ
1　10　20　30 (230) 　　　　　1　10　20　30 (仮に＝Ａ1*Ｂ1+Ｃ1)
2　 8　10　15 (95)　　　　　　　シートＢは上記のみセル使用
3 20 10 8 (208)
　　　・
　　　・
　　　・

回答No.3

n-jun

ANo.1です。

コピーではなく代入案で。

Sub try()
Dim r As Range

With Worksheets("Sheet1")
Set r = .Range(.Range("A1"), .Cells(Rows.Count, 1).End(xlUp))
End With

Worksheets("Sheet2").Range("A1").Resize(r.Rows.Count, 3).Value = r.Resize(, 3).Value

r.Offset(, 3).Value = Worksheets("Sheet2").Range("D1").Resize(r.Rows.Count, 1).Value

Set r = Nothing
End Sub

Sheet１がシートＡ・Sheet２がシートＢとしてます。
ご参考になりますでしょうか？

補足

ありがとうございます。
Sheet２のＡ1、Ｂ1、Ｃ1に代入し計算結果をSheet１の行ごとに
Ｄ1、Ｄ2、Ｄ3・・・と表示できませんでしょうか！
よろしくお願いします。

回答No.2

hige_082

マクロの記録を使用すればすぐですよ
質問の操作をマクロに記録する
'------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/12/14 ユーザー名 :
'
Sheets("SheetA").Select
Range("A1:C1").Select
Selection.Copy
Sheets("SheetB").Select
Range("A1").Select
ActiveSheet.Paste
Range("D1").Select
Selection.Copy
Sheets("SheetA").Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
'------------------------------------------------------------
このようなマクロが出来ます
これを元に繰り返し部分をアレンジします

'------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/12/14 ユーザー名 :
'
Dim i As Long
For i = 1 To Sheets("SheetA").Range("a65536").End(xlUp).Row
Sheets("SheetA").Select
Range("A" & i & ":C" & i).Select
Selection.Copy
Sheets("SheetB").Select
Range("A" & i).Select
ActiveSheet.Paste
Range("D" & i).Select
Selection.Copy
Sheets("SheetA").Select
Range("D" & i).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i
End Sub
'------------------------------------------------------------

出来上がりです
細かい所の修正、エラー処理はご自分で

補足

ありがとうございます。
シートＡの（Ａ1，Ｂ1，Ｃ1）をシートＢで計算しシートＡのＤ1に答えを返す。
次はシートＡ下の行の（Ａ2，Ｂ2，Ｃ2）をシートＢで計算しシートＡのＤ2に答えを返す。

Ｄ1，Ｄ2，Ｄ3，・・・とシートＢで計算した結果を
順次表示できないでしょうか！

よろしくお願いします。

回答No.1

n-jun

シートＡのＤ列にシートＢのＤ列の計算式を入れれば済むのでは？
それとも何かの課題でしょうか。

補足

説明不足で申し訳ございません。シートBの計算式は複雑です。業務で使用しています。ご教授お願いします。