[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『オートフィルターでデーターが無い場合』(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.