|
たろう さん こんにちは
私はここの方々に比べると回答できるレベルではありませんが、自分の勉強の為に勇気を出して投稿しました。(岳さんを見習ってみました)
Sheet1 が
A B C D E F G
? ?? 品名 個数 ??? ???? 合算数
レオ 3 30
アンソニー 2 96
アンソニー 6 96
アミティ 1 12
ジル 4 24
キング 2 17
アンソニー 8 96
アミティ 1 12
レオ 2 30
Sheet3 が(累計データ用Sheet)
A B C D E F G
?1 ?2 ?3 品名 4? 5? 累計数
レオ 30
アンソニー 96
アミティ 12
ジル 24
キング 17
質問からこんな風にイメージしました。
Sub てすと()
Dim Sh1, Sh3 As Worksheet
Dim MyRenge3 As Range
Set Sh1 = Sheets("Sheet1")
Set Sh3 = Sheets("Sheet3")
enD_1 = Sh1.Range("D65536").End(xlUp).Row 'Sheet1最終行
enD_3 = Sh3.Range("D65536").End(xlUp).Row 'Sheet3最終行
'Sheet3-G列に合計数
For i3 = 2 To enD_3
Sh3.Range("G" & i3) = Sh1.Application.WorksheetFunction.SumIf _
(Sh1.Range("C1:C" & enD_1), Sh3.Range("D" & i3).Value, Sh1.Range ("D1:D" & enD_3))+ Sh3.Range("G" & i3)
Next
'Shee1-G
For i1 = 2 To enD_1
Sh1.Range("G" & i1) = Sh3.Application.WorksheetFunction. _
VLookup(Sh1.Range("C" & i1), Sh3.Range("D2:G" & enD_3), 4, 0)
Next
End Sub
こういう事でしょうか?
で、出来たんですけど、マクロの実行を押す毎に数字がどんどん増えていきます。
ここからは、私の質問になりますけど、一度マクロが実行されたら再計算されないようなマクロの組み方はあるのでしょうか?どなたかご教授下さい。
|
|