さまざまなフィルタ条件の一部として日付間をフィルタするためのVBA Userformコード

Question

私は、データセットの条件をフィルタ処理し、infoをレポートスプレッドシートに取り込むuserformを持っています。すべてのフィルタは、2つの日付フィルタの間を除いて機能します。

これはこれまでのコードです。

Private Sub btnrun_Click() 
Dim sdsheet As Worksheet, grsheet As Worksheet 
    Dim sdlr As Long, grlr As Long, y As Long, x As Long 

Set sdsheet = ThisWorkbook.Sheets("Governance Reporting Data") 
    Set grsheet = ThisWorkbook.Sheets("Governance Report") 
    Dim match As Boolean 
    match = False 

sdlr = Application.Max(sdsheet.Cells(Rows.Count, 4).End(xlUp).Row, 2) 

grlr = Application.Max(grsheet.Cells(Rows.Count, 1).End(xlUp).Row, 2) 
y = 2 

Me.Hide 

'make sure date format 
If Not IsDate(Me.tbentrydatefirst) And Me.tbentrydatefirst <> "" Then 
MsgBox "Please enter correct date format" 
Me.tbentrydatefirst = "" 
Exit Sub 
End If 

If Not IsDate(Me.tbentrydatelast) And Me.tbentrydatelast <> "" Then 
MsgBox "Please enter correct date format" 
Me.tbentrydatelast = "" 
Exit Sub 
End If 


'populate data based on variables 
For x = 5 To sdlr 

    If Me.cmbmonth = "All" Or sdsheet.Cells(x, 2) = Me.cmbmonth Then 
    If CDate(Me.tbentrydatefirst.Value) >= DateValue(sdsheet.Cells(x,  3).Value) And CDate(Me.tbentrydatelast.Value) <= DateValue(sdsheet.Cells(x, 3).Value) Then 
    If Me.cmbprovider = "All" Or sdsheet.Cells(x, 4) = Me.cmbprovider Then 
    If Me.cmbcontractofficer = "All" Or sdsheet.Cells(x, 5) = Me.cmbcontractofficer Then 
    If Me.cmbissue = "All" Or sdsheet.Cells(x, 7) = Me.cmbissue Then 
    If Me.cmbstatus = "All" Or sdsheet.Cells(x, 12) = Me.cmbstatus Then 

     grsheet.Cells(y, 1).Resize(1, 10).Value = sdsheet.Cells(x, 3).Resize(1, 10).Value 
     y = y + 1 
     match = True 

    End If 
    End If 
    End If 
    End If 
    End If 
    End If 




Next 


grsheet.Visible = True 
grsheet.Activate 

If Me.cbprintpreview = True Then grsheet.PrintPreview 

If MsgBox("Would you like to close this report?", vbYesNo, "Close Report?") = vbYes Then 
    grsheet.Visible = False 
    grsheet.Range("A2:J150").ClearContents 
End If 

Unload Me 

End Sub 

任意の提案???

Answer 1

あなたの状態が正しくありません：

If CDate(Me.tbentrydatefirst.Value) >= DateValue(sdsheet.Cells(x, 3).Value) And CDate(Me.tbentrydatelast.Value) <= DateValue(sdsheet.Cells(x, 3).Value) Then 

これは次のようになります。もちろん

If CDate(Me.tbentrydatefirst.Value) <= DateValue(sdsheet.Cells(x, 3).Value) And CDate(Me.tbentrydatelast.Value) >= DateValue(sdsheet.Cells(x, 3).Value) Then