Excel VBA質問箱 IV

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

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


7899 / 13645 ツリー ←次へ | 前へ→

【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 回答[未読]

【36167】複数のシートからの集計
質問  トン  - 06/3/23(木) 13:23 -

引用なし
パスワード
   はじめまして。いつも勉強させていただいています。
VBAを始めたばかりでどうしても分からないので質問させてください。

年月日 元金返済 利息 元利合計 借入残高
****  ******  ****  ******  ******
 
というリスト形式のシートを各借入単位に作っています。

これから下のような17.1.1〜h17.12.31までの集計表を自動で作れないかと思考錯誤しています。

年月日 元金返済 利息 元利合計 借入残高
1/1
1/31
2/28
3/31




言葉足らずで説明もしにくいかもしれませんがヒントだけでもいただけたら・・・
よろしくお願いしますorz

【36184】Re:複数のシートからの集計
発言  Ned  - 06/3/23(木) 21:57 -

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

【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に足していくという部分がつくれなくて・・・

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

【36194】Re:複数のシートからの集計
回答  トン  - 06/3/24(金) 11:01 -

引用なし
パスワード
   すいません↑の質問ですが自己解決しました。
基準となるセルrgからoffsetを使ってできました。

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