| |
VBAのコードで、複数のセルの入力条件を持つレコードを出力させたいと思っています
以下のcsvを読み込み、
指定条件のレコードを別セルに抽出したいと思っています
抽出条件は以下の通りです。
（以下1.2.を両方同時に出力します）
・文字列「COL-3がFALSE」のものは抽出する
・文字列「COL-3がTRUE」、かつ「COL-4が2018/1/1〜2018/2/1」のものは抽出する」
具体的には、
以下のCSVより、
NAME1
NAME2
NAME3
NAME6
を出したいと思っています。
ORG.csv
COL-1,COL-2,COL-3,COL-4
NAME1,11,FALSE,
NAME2,22,FALSE,2017/12/1
NAME3,33,FALSE,2018/1/29
NAME4,44,TRUE,
NAME5,55,TRUE,2017/12/1
NAME6,66,TRUE,2018/1/29
csvなので、各カラムは文字列です
COL-4の出力条件については、
DATE_ST = InputBox("抽出開始日") ←2018/1/1を入れます
DATE_ED = InputBox("抽出終了日") ←2018/2/1を入れます
で取得しております
Dim i, reccount As Long
reccount= Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To reccount
If Cells(i, 3) = False Then
Rows(i).Copy newshhets.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next i
とFALSE条件側（1.）のみは書いたのですが、
TRUE側の条件（2.）を追加して記載する場合、どのように記載すればよいのでしょうか？
（COL-3が「TRUE」で、期間が「DATE_ST〜DATE_ED」です）
お分かりになられる方、申し訳ございませんが、よろしくお願いいたします
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
