以下是以Excel巨集編出而成的,但在((Selection.AutoFilter Field:=11, Criteria1:="自製"))這一欄位內無"自製"的內容時,則巨集在執行時會有問題,若有"自製"的內容時則可正確執行.
是否可加一判斷式?那又該如何加呢?因為這是用AutoFilter選出的.
Sheets("Data_Rubber").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=">=2002/12/01",
Operator:=xlAnd _, Criteria2:="<=2002/12/31"
Selection.AutoFilter Field:=11, Criteria1:="自製"
Range("B3:B202").Select
Selection.Copy
Sheets("MonthlyReport_Rubber").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _False, Transpose:=False
Sheets("Data_Rubber").Select
Range("L3:L202").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("MonthlyReport_Rubber").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()