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