主题：查找筛选窗口？

1、如何使几个框形成一排靠上排列？

2、项目中的日期筛选只能对表A，如何设置代码可使其对所有表起作用。

3、一个表中如果有几列日期列：发货日期、付款日期，又如何设置代码？

Dim StartDate As Date
Dim EndDate As Date
With RibbonTabs("实战演练")("任务五")
    StartDate = .Items("StartDate").Value
    EndDate = .Items("EndDate").Value
End With
Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"