Excel VBA質問箱 IV

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

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


31661 / 76738 ←次へ | 前へ→

【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行ありまして、
プロシージャが大きすぎ!と怒られてしまいました。

これの改善策はありませんか?
3 hits

【50289】合計数値の反映 たろう 07/7/18(水) 16:24 質問
【50300】Re:合計数値の反映 りん 07/7/19(木) 8:01 回答
【50324】Re:合計数値の反映 たろう 07/7/19(木) 17:32 発言
【50310】Re:合計数値の反映 駿 07/7/19(木) 12:14 回答
【50311】Re:合計数値の反映 駿 07/7/19(木) 12:26 発言

31661 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free