Excel VBA質問箱 IV

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

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


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

31672 / 76738

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

なんか、めちゃめちゃになってしまいましたので再投稿します。
投稿するの難しい！

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