关于录制宏代码 如何修改？？？

mye680

Sub 按日期筛选()
    Rows("4:4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$M$9").AutoFilter Field:=12, Criteria1:=">=2023/2/9", Operator:=xlAnd, Criteria2:="<=2023/2/10"
End Sub

请问高手如何将">=2023/2/9"和"<=2023/2/10" 这两个具体的日期 改为单元格内自己想要写的指定日期，先谢谢了

盼盼198310

"<="& 单元格变量 &""     试试这样

mye680

谢谢了我试试啊 试过了不行

taller

Criteria2:="<=2" & format([a1], "yyyy/m/d")

taller

Criteria2:="<=" & format([a1], "yyyy/m/d")

mye680

感谢楼上的哥们 谢谢了

mye680

试了一下还是不行 我在网上查到方法了 用窗体解决



代码页简单 我发上来 希望也能帮到正好有需要的人


Private Sub CommandButton1_Click()


Range("a6:n4000").Delete shift:=xlShiftUp

Dim st, et
st = TextBox1.Value
et = TextBox2.Value
If st = "" Or et = "" Then
MsgBox "开始日期或结束日期未输入！！！！"
Exit Sub
End If


With Sheets("汇总")
Dim r, rq_area
        r = .Cells(Rows.Count, 12).End(xlUp).Row
        Set rq_area = .Range("m2", "m" & r)
        
        


Dim rg, rr, cr, c_area, rg_area
For Each rg In rq_area
    If rg.Value >= CDate(st) And rg.Value <= CDate(et) Then
   
    cr = rg.Row
    Set c_area = .Range("a" & cr, "n" & cr)
    rr = Sheets("日期").Cells(Rows.Count, 2).End(xlUp).Row + 1
    c_area.Copy Sheets("日期").Range("a" & rr)
   
    Unload Me
        End If
Next
   
   End With
   Beep
   MsgBox "查询完成，可以在黄色区域内输入条件进行单项查询！！"
     
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub