[[20070330140817]] 『オートフィルターでデーターが無い場合』(YAMADA) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『オートフィルターでデーターが無い場合』(YAMADA)
  教えてください。
  下記のマクロのオートフィルターで今日の日付で抽出して
 色をつけたいのですが、今日の日付のデーターが無い場合、
 タイトルに色がついてしまします。 今日の日付が無い場合は
 マクロを終わりたいです。

    Sheets(1).Cells.AutoFilter
    Sheets(1).Cells.AutoFilter Field:=5, Criteria1:=Date
    Range("A2", Range("F200").End(xlUp)).Interior.ColorIndex = 3

 以上お願いします


 参考
[[20060210100410]]

 最初にこんな感じにMatchで調べた方がフィルタしない分、早いと思いますけでどね。

 日付 = #3/30/2007#
 mm = Application.Match(CDbl(日付), Sheets(1).Columns(1), 0)
 If IsError(mm) Then
   MsgBox "ない"
 Else
   MsgBox "ある"
 End If

 >    Sheets(1).Cells.AutoFilter Field:=5, Criteria1:=Date
 これだと、日付を抽出できないと思います。
 エクセルVerによってできる??

 >    Range("A2", Range("F200").End(xlUp)).Interior.ColorIndex = 3
 この手法だと思わぬ結果になることもありえます
 上記スレッドにも書いてあります。
 がんばってください。
 (Jaka)

  うまく動きました。ありがとうございました。(Jaka)さん。
 >    Sheets(1).Cells.AutoFilter Field:=5, Criteria1:=Date
 で最初はできなかったですが、書式とかなんかをいじってたらできるようになったです。
   ちなみにEXCEL2000です。
 マクロの記録が主体でがんばっていますが、VBAでないと問題がおおいいですが、
 この学校でいろいろおしえてもらってがんばります。みなさんHELPお願いします。

        (YAMADA)

 日付単独では書式設定(セルのTextプロパティ)に影響を受けます。
【参考】
[[20040105195022]] 『VBA:Autofilterメソッドの引数Criteria』(KAMIYA)
[[20050303152357]] 『マクロでオートフィルタを使う』(KI)
 
後者でLOOKUPさんご指摘の、同じ日付を以上、以下でフィルタリングすると
OS日付表示設定、バージョンや書式設定の影響を受けにくいようです。
(みやほりん)(-_∂)b


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.