Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31669 / 76734

←次へ　｜　前へ→


	【50310】Re:合計数値の反映

駿 - 07/7/19(木) 12:14 -


	引用なし

	パスワード

たろうさんこんにちは
私はここの方々に比べると回答できるレベルではありませんが、自分の勉強の為に勇気を出して投稿しました。（岳さんを見習ってみました）
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

こういう事でしょうか？

で、出来たんですけど、マクロの実行を押す毎に数字がどんどん増えていきます。
ここからは、私の質問になりますけど、一度マクロが実行されたら再計算されないようなマクロの組み方はあるのでしょうか？どなたかご教授下さい。

1 hits

▼

【50289】合計数値の反映 たろう 07/7/18(水) 16:24