|
>こんにちは。
>一度ははまる落とし穴です。
>Rangeの中のCellsにもシートの指定が必要です。
>> Set dayrg = wh2.Range(Cells(21, "B"), Cells(21, "B").End(xlDown))
> Set dayrg = wh2.Range(wh2.Cells(21, "B"), wh2.Cells(21, "B").End(xlDown))
>やっちんさん
即答ありがとうございました。ばっちり解決しました!!!
これは気づきませんでした・・・orz
そして早速次の箇所で詰まってます><
For Each rg In dayrg
If rg.Value >= month Then
If rg.Value <= DateAdd("m", 1, month) - 1 Then
total = total + rg.Offset(0, 2).Value
End If
End If
Next rg
dayrgで指定した範囲を検索して値を集計していくという部分なのですが、
offset(0,3)の場合のみ集計ではなく最後に一致した行の値を取得したいんです。
この検索方法では最後若しくは最初(●番目)にhitしたところからオフセットして値を取得は可能でしょうか?
初心者なので質問がこれでいいのかすら怪しいですがよろしくお願いいたします。。。
|
|