Excel VBA質問箱 IV

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

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


45534 / 76732 ←次へ | 前へ→

【36191】Re:複数のシートからの集計
質問  トン  - 06/3/24(金) 10:32 -

引用なし
パスワード
   >▼Ned さん
レスありがとうございます。

>こんにちは。
>>ヒントだけでも
>という事なので。
>年月日ごとの合計…であればピボットテーブルでどうですか?
>VBAでないといけないのでしょうか?

利息額、元金返済額はピボットでいいかと思いますが、元金残高だけは日付が遅い行のものをもってこないといけないので・・・・。

**********************************************************
Sub 検索集計()
 Set wh1 = Worksheets("集計シート")
 Set wh2 = Worksheets("作業シート")
 Set dayrg = wh2.Range(Cells(21, "B"), Cells(21, "B").End(xlDown))
 total = 0
 month = InputBox("値を入力してください。")
 month = Left$(month, 7)
 
 For Each rg In dayrg
  If rg.Value >= month Then
   If rg.Value <= DateAdd("m", 1, month) - 1 Then
    total = total + Range(rg, rg)
    MsgBox rg.Value
   End If
  End If
 Next rg
End Sub
***************************************************
検索部分だけを試作してみたのですが、日付列(dayrg)で一致したらそのセルから右に●個進んだセルの値をtotalに足していくという部分がつくれなくて・・・

初心者の汚いコードで申し訳ありませんが、よろしくお願いします。
6 hits

【36167】複数のシートからの集計 トン 06/3/23(木) 13:23 質問
【36184】Re:複数のシートからの集計 Ned 06/3/23(木) 21:57 発言
【36191】Re:複数のシートからの集計 トン 06/3/24(金) 10:32 質問
【36194】Re:複数のシートからの集計 トン 06/3/24(金) 11:01 回答

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