|
なんか、めちゃめちゃになってしまいましたので再投稿します。
投稿するの難しい!
>たろう さん こんにちは
>私はここの方々に比べると回答できるレベルではありませんが、自分の勉強の為に勇気を出して投稿しました。(岳さんを見習ってみました)
>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
>
>こういう事でしょうか?
>
>で、出来たんですけど、マクロの実行を押す毎に数字がどんどん増えていきます。
>ここからは、私の質問になりますけど、一度マクロが実行されたら再計算されないようなマクロの組み方はあるのでしょうか?どなたかご教授下さい。
|
|