if文について

質問

Excel 2007 VBAを使用しています。
↓のクリックイベントを実行するとif文のところで不具合があります。
商品シートのC列には、状況が保存されています。
該当した年月、"受取済み"、"注文中"以外の行データをリストさせます。
商品シートのJ列、W列には、該当した年月、"受取済み"、"注文中"以外の行データが存在するのですが、まったく検出してくれません。
対処方法を教えてくれませんか?

-------------------------------------------

Option Explicit

Private Sub CB1_Click()
'変数を定義
Dim i As Long
Dim maxRow As Long
Dim inSheet As Worksheet
Dim outSheet As Worksheet

'入出力先のシートをオブジェクト変数へ格納

Set inSheet = Worksheets("商品")
Set outSheet = Worksheets("結果")

'テキストボックスの内容を判定
If (Me.TextBox21.Value = "") Or (Not IsDate(Me.TextBox21.Value)) Then
MsgBox "日付が入力されていません"
Exit Sub
End If

'最終行番号を取得
maxRow = Me.Cells(Rows.Count, "A").End(xlUp).Row

'商品シートの最終行番号で分岐処理
If maxRow > 3 Then
'出力先を削除してヘッダーをコピー
outSheet.Cells.Delete
inSheet.Range("A3").EntireRow.Copy outSheet.Range("A1")
Application.CutCopyMode = False
Else
'4行目以降にデータが入力されていなければメッセージで終了
MsgBox "該当データがありません"
Exit Sub
End If

'4行目から最終行まで繰り返し
For i = 4 To maxRow
'J列が日付であれば処理
If IsDate(inSheet.Cells(i, "J").Value) Then

'--------機能しない箇所(開始)

If Year(inSheet.Cells(i, "J").Value) <= Year(Me.TextBox21.Value) And _
Month(inSheet.Cells(i, "J").Value) <= Month(Me.TextBox21.Value) And _
CStr(inSheet.Cells(i, "W").Value) <> "受取済み" And CStr(inSheet.Cells(i, "W").Value) <> "注文中" Then
'--------機能しない箇所(終了)
inSheet.Rows(i).Copy outSheet.Rows(cnt + 2)
End If
End If

Next i

End Sub

回答No.1

kkkkkm · ベストアンサー

IF文の中のデータをそれぞれ先に変数に代入してみて
inSheet.Rows(i).Copy outSheet.Rows(cnt + 2)
あたりをブレークポイントにして
ご自身が想像している値と変数の値が合致して論理式の部分がすべてTRUEになっているかどうか確認してみてはいかがでしょうか。

回答No.2

YUKKER

気になったのですが、このＩＦ文の書き方だと
テキストボックスに入力した日付より過去であっても
月がテキストボックスのものより大きいと抽出されませんし、
入力した年月と同じだと日が未来でも抽出されてしまいますが、
こういう仕様でよいのでしょうか？

また、cntが全くカウントされてないため、
抽出したものが延々と二行目に上書きされてしまい、
せっかく抽出しても１行しか出力されないと思いますよ。

あと、最初にOption Explicitと記述しているのに、
変数cntが宣言されている箇所が見当たりません。
#1さんの仰るように、ご自身でデバックして確認してみてください。

DateDiffという関数があるようです。
http://www.red.oit-net.jp/tatsuya/vb/date.htm#DateDiff
これを利用して、問題のＩＦ文を下記のように書けませんか？

'--------機能しない箇所(開始)
If DateDiff("d", inSheet.Cells(i, "J").Value, Me.TextBox21.Value) >= 0 And _
CStr(inSheet.Cells(i, "W").Value) <> "受取済み" And CStr(inSheet.Cells(i, "W").Value) <> "注文中" Then
'--------機能しない箇所(終了)
inSheet.Rows(i).Copy outSheet.Rows(cnt + 2)
cnt = cnt + 1
End If