Excel VBA質問箱 IV

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

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


45526 / 76735 ←次へ | 前へ→

【36202】Re:setステートメントのエラー
質問  仕事で無理矢理orz  - 06/3/24(金) 12:52 -

引用なし
パスワード
   >こんにちは。
>一度ははまる落とし穴です。
>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したところからオフセットして値を取得は可能でしょうか?
初心者なので質問がこれでいいのかすら怪しいですがよろしくお願いいたします。。。

0 hits

【36199】setステートメントのエラー 仕事で無理矢理orz 06/3/24(金) 12:04 質問
【36200】Re:setステートメントのエラー やっちん 06/3/24(金) 12:34 発言
【36202】Re:setステートメントのエラー 仕事で無理矢理orz 06/3/24(金) 12:52 質問
【36203】Re:setステートメントのエラー やっちん 06/3/24(金) 12:59 発言
【36204】Re:setステートメントのエラー やっちん 06/3/24(金) 13:04 発言
【36205】Re:setステートメントのエラー 仕事で無理矢理orz 06/3/24(金) 13:15 質問
【36207】Re:setステートメントのエラー やっちん 06/3/24(金) 13:29 発言
【36208】Re:setステートメントのエラー Kein 06/3/24(金) 13:30 発言
【36214】Re:setステートメントのエラー 仕事で無理矢理orz 06/3/24(金) 15:51 発言
【36216】Re:setステートメントのエラー 仕事で無理矢理orz 06/3/24(金) 17:47 質問
【36217】Re:setステートメントのエラー awu 06/3/24(金) 19:17 回答

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