用于生成格式化Excel的宏代码

Question

我的Excel中有一个这种格式的数据库

Cosumer    Date    Ref #    Product Code    Description    U/M   Qty   Price   Transaction

我想要一个宏代码，当我运行它时，会出现一个对话框文本框，显示“开始日期”和“结束日期”，编码开始日期和结束日期后，它将生成一个新的excel文件，格式：

我希望有人会帮助我，提前谢谢你。

Answer 1

试试这样。

Public Sub MyFilter()
    Dim lngStart As Long, lngEnd As Long
    lngStart = Range("E1").Value 'assume this is the start date
    lngEnd = Range("E2").Value 'assume this is the end date
    Range("C1:C13").AutoFilter field:=1, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
End Sub

所有细节都在这里。

https://www.extendoffice.com/documents/excel/910-excel-filter-between-two-dates.html