Excel VBA質問箱 IV

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

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


3260 / 13644 ツリー ←次へ | 前へ→

【63237】抽出(VBA)について むむ 09/10/19(月) 16:20 質問[未読]
【63240】Re:抽出(VBA)について こもと 09/10/19(月) 16:53 発言[未読]
【63242】Re:抽出(VBA)について kanabun 09/10/19(月) 18:29 発言[未読]

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

引用なし
パスワード
   色々調べたのですがわからなかった為分かる方いたらご指導お願いします。

A6列〜AB6列まで個人の氏名・誕生日・特技などがはいった項目があります。
この中でQ列が誕生日入力欄となっており今月該当の方をボタン作成し抽出したいと思っております。

マクロ記録で

Sub Sample()
Range("A6").AutoFilter Field:=17, Criteria1:=">=10/1", Operator:=xlAnd, Criteria2:="<=11/1"
End Sub

までやってみましたが、この場合来月になると書き換えないと使用できないかと思うんですが、書き換えずに済む(自然と更新される)方法あればご指導いただきたくお願いします。

【63240】Re:抽出(VBA)について
発言  こもと  - 09/10/19(月) 16:53 -

引用なし
パスワード
   ▼むむ さん:

こんなのでは?

Sub Mac()
With ActiveSheet
 .Rows.Hidden = False
 With .Range("A6").CurrentRegion.Offset(1).EntireRow.Columns("IV")
  .FormulaR1C1 = "=MONTH(RC17)=MONTH(TODAY())"
  .Value = .Value
  Set r = .Find(What:="TRUE", After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _
         SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
         MatchByte:=False, SearchFormat:=False)
  If Not r Is Nothing Then
   .ColumnDifferences(r).EntireRow.Hidden = True
  End If
  .ClearContents
 End With
End With
End Sub

【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

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