Excel VBA質問箱 IV

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

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


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

31657 / 76734

←次へ　｜　前へ→


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

たろう - 07/7/19(木) 17:32 -


	引用なし

	パスワード

りんさんの

>Sub test()
>　 Dim ws1 As Worksheet, ws2 As Worksheet, Rmax As Long
>　 '処理対象のシートを明確にするために変数にセット
>　 Set ws1 = ThisWorkbook.Worksheets("Sheet1")
>　 Set ws2 = ThisWorkbook.Worksheets("Sheet3")
>　 '集計対象シートの最下行：キーになるD列で判定
>　 Rmax = ws2.Range("D65536").End(xlUp).Row
>　 'SUMIFで合計する
>　 ws1.Range("G7").Value = Application.WorksheetFunction.SumIf _
>　　　　 (ws2.Range("D1:D" & Rmax), ws1.Range("C7").Value, ws2.Range("G1:G" & Rmax))
>　 '終了
>　 Set ws1 = Nothing: Set ws2 = Nothing
>End Sub
の方法でうまい具合に組むことが出来ました！
ありがとうございます。

しかし、434行ありまして、
プロシージャが大きすぎ！と怒られてしまいました。

これの改善策はありませんか？

1 hits

▼

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