Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51667 / 76732

←次へ　｜　前へ→


	【29928】Re:オートフィルタ

とまと - 05/10/16(日) 18:22 -


	引用なし

	パスワード

どれか一つの列でもという意味なんですね。
よい関数式があれば最初のでもいいんですけど、
浮かばなかったので、２列目から５列目まで
オートフィルタをループして条件をみたした
行のF列に１を書き込んでいます。
オートフィルタで日付を抽出するときは、書式が
あってないとエラーになるようなので
開始日と終了日の書式を変更しています。

Sub test2()

With Sheets(wsn)
　開始年月日 = Format(DateSerial(2005, 7, 1), .Range("B2").NumberFormatLocal)
　終了年月日 = Format(DateSerial(2005, 8, 1 - 1), .Range("B2").NumberFormatLocal)
　.Columns("F").Clear
　 rowA = .Range("A1").CurrentRegion.Rows.Count
　For i = 2 To 5
　　 .AutoFilterMode = False
　　 Range("A1:F" & rowA).AutoFilter i, ">=" & 開始年月日, xlAnd, "<=" & 終了年月日
　　 Sheets(wsn).AutoFilter.Range.Columns(6).Value = 1
　Next i
　.AutoFilterMode = False
　.Range("F1").Value = "作業列"
End With

End Sub

2 hits

▼

【29897】オートフィルタ ハッチ 05/10/15(土) 21:06