| |
>▼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に足していくという部分がつくれなくて・・・
初心者の汚いコードで申し訳ありませんが、よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
