Excel VBA質問箱 IV

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

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


58664 / 76732 ←次へ | 前へ→

【22791】Re:抽出について教えてください
回答  G-Luck  - 05/3/3(木) 13:03 -

引用なし
パスワード
   ▼じん さん:
お仕事ご苦労様です。

>Selection.AutoFilter Field:=12, Criteria1:=">=Apr-2003", Operator:=xlAnd _
>    , Criteria2:="<May-2003"

お分かりと思いますが、
Apr-2003 が 2003/4
May-2003 が 2003/5
ですね。それで、単純に、2003/4と置き換えると、日付と認識してくれないようです。
そこで、下記のように変換して入力すると出来ました。
後は、2003/1の部分を、TextBox1.Valueと変えてみてください。
ちなみに、下記コードは、データの存在するシート上でのコードです。

Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select
は、オートフィルターの結果のセルを取得しています。

'以下コード
  Dim StartDate  As Date
  Dim EndDate   As Date
  
  StartDate = DateValue("2003/1")
  EndDate = DateAdd("m", 1, StartDate)

  Range("A:D").AutoFilter Field:=4, Criteria1:=">=" & StartDate, _
    Operator:=xlAnd, Criteria2:="<" & EndDate

  Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select

0 hits

【22775】抽出について教えてください じん 05/3/2(水) 23:38 質問
【22777】Re:抽出について教えてください G-Luck 05/3/3(木) 8:18 発言
【22784】Re:抽出について教えてください じん 05/3/3(木) 11:37 質問
【22786】Re:抽出について教えてください G-Luck 05/3/3(木) 11:42 発言
【22787】Re:抽出について教えてください じん 05/3/3(木) 11:48 発言
【22788】Re:抽出について教えてください じん 05/3/3(木) 11:53 発言
【22791】Re:抽出について教えてください G-Luck 05/3/3(木) 13:03 回答
【22795】Re:抽出について教えてください じん 05/3/3(木) 14:05 お礼

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