Excel VBA質問箱 IV

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

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


53067 / 76732 ←次へ | 前へ→

【28485】Re:日付から検索
回答  awu  - 05/9/7(水) 19:34 -

引用なし
パスワード
   あれっ! 何か変ですね。 Komaさんと質問者の雨男さんは、同じ方ですか?

>>「だめでした・・・」とは、どうなることなのでしょうか?
> オートフィルターがかからず、全てフィルラターの中に隠れて、一切文字が
> 隠れた状態になっていると思います。

ちょっと表現が、変ですね。
フィルターが、掛かっている状態では?

> Range("A3").AutoFilter Field:=2, _
>  Criteria1:=Format(Range("C1").Value, Range("B4").NumberFormat)
> のコードが分かりやすように思います。このコードですと、正しくフィルターが
> かかります。

何でA3なの? まぁ、いいけど・・・
それにFormat関数は、内部処理形式 String の Variantになりますので、B列が日付形式
になっていないのでは??
他のセルの NumberFormat を使うということは、形式があっていないのでは??

肝心のB列データが、日付形式になっているかについて応えていませんが・・・


新しいブックの任意のシートでシート名タブを右クリックして、「コードの表示」で
開いたコードウィンドに次のコードを貼り付けて実行してみてください。

今日の日付だけ抽出されませんか?


Sub test()
Dim Rw As Long
ActiveSheet.AutoFilterMode = False
Cells.Delete
Range("A1:B1").Value = Array("商品名", "日付")
For Rw = 2 To 12
  Cells(Rw, 1).Value = Chr(63 + Rw)
  Cells(Rw, 2).Value = Date - 5 + Rw
Next Rw
Range("C1").Value = Date
Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value
'Range("A1").AutoFilter Field:=2, Criteria1:=Date '  こちらでもいいけど
End Sub

1 hits

【28381】日付から検索 雨男 05/9/5(月) 0:04 質問
【28382】Re:日付から検索 MOON 05/9/5(月) 0:15 発言
【28383】Re:日付から検索 雨男 05/9/5(月) 0:26 質問
【28384】Re:日付から検索 awu 05/9/5(月) 0:55 回答
【28385】Re:日付から検索 雨男 05/9/5(月) 1:05 お礼
【28386】Re:日付から検索 MOON 05/9/5(月) 1:11 回答
【28391】Re:日付から検索 awu 05/9/5(月) 12:03 回答
【28410】Re:日付から検索 Komo 05/9/5(月) 22:56 発言
【28485】Re:日付から検索 awu 05/9/7(水) 19:34 回答
【28387】Re:日付から検索 Statis 05/9/5(月) 9:35 回答
【28411】Re:日付から検索 ponpon 05/9/5(月) 23:47 発言
【28421】Re:日付から検索 Jaka 05/9/6(火) 12:19 回答
【28422】Re:日付から検索 ponpon 05/9/6(火) 12:48 発言
【28661】EXCEL2000SR1のバグ?仕様とはとても思えな... Jaka 05/9/12(月) 9:55 発言
【28691】Re:EXCEL2000SR1のバグ?仕様とはとても思... ponpon 05/9/13(火) 0:17 発言

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