Excel VBA質問箱 IV

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

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


51667 / 76732 ←次へ | 前へ→

【29928】Re:オートフィルタ
発言  とまと  - 05/10/16(日) 18:22 -

引用なし
パスワード
   どれか一つの列でもという意味なんですね。
よい関数式があれば最初のでもいいんですけど、
浮かばなかったので、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

1 hits

【29897】オートフィルタ ハッチ 05/10/15(土) 21:06 質問
【29899】Re:オートフィルタ ponpon 05/10/15(土) 21:32 発言
【29901】Re:オートフィルタ とまと 05/10/15(土) 23:32 発言
【29902】Re:オートフィルタ とまと 05/10/15(土) 23:33 発言
【29903】Re:オートフィルタ ponpon 05/10/16(日) 0:12 発言
【29905】Re:オートフィルタ Hirofumi 05/10/16(日) 0:30 回答
【29906】Re:オートフィルタ とまと 05/10/16(日) 0:38 発言
【29907】Re:オートフィルタ Hirofumi 05/10/16(日) 9:46 回答
【29910】Re:オートフィルタ yasu 05/10/16(日) 10:50 発言
【29916】Re:オートフィルタ ハッチ 05/10/16(日) 14:12 質問
【29919】Re:オートフィルタ Hirofumi 05/10/16(日) 15:05 回答
【29997】Re:オートフィルタ ハッチ 05/10/17(月) 21:14 お礼
【29928】Re:オートフィルタ とまと 05/10/16(日) 18:22 発言
【29929】Re:オートフィルタ kobasan 05/10/16(日) 18:56 発言
【29931】Re:オートフィルタ とまと 05/10/16(日) 20:58 回答

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