Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18928 / 76732

←次へ　｜　前へ→


	【63242】Re:抽出（VBA）について

kanabun - 09/10/19(月) 18:29 -


	引用なし

	パスワード

▼むむさん：

>この中でQ列が誕生日入力欄となっており今月該当の方をボタン作成し抽出したいと思っております。
>この場合来月になると書き換えないと使用できないかと思うんですが、書き換えずに済む（自然と更新される）方法あれば

AutoFilterでなく、AdvancedFilterを使ってみては？

Sub Try1()
　Dim fR As Range 'フィルタ範囲
　Dim cR As Range '条件範囲
　
　Set fR = Range("Q6", Cells(Rows.Count, "Q").End(xlUp))
　Set cR = Range("BB1:BB2")
　cR.ClearContents
　cR.Item(2).Formula = "=Month(Q7)=" & Month(Date)
　fR.AdvancedFilter xlFilterInPlace, CriteriaRange:=cR
　
　MsgBox "ok?"
　fR.Worksheet.ShowAllData
End Sub

1 hits

▼

【63237】抽出（VBA）について むむ 09/10/19(月) 16:20