TPBUNNY
2002-03-29, 09:08 AM
在http://qa.usernet.com.tw/total_view.asp?CurNumber=131248&type=Excel上己經有同學問到:「自動篩選資料後的抓取問題」,最後的回應是:感謝 夏南生 & kau寄來的範本實例, 經過二方巨集資料之彙整已能由輸入條件後自動產生所需之資料與報表, 再次感謝其大力協助。
我研讀了各前輩的文章,可是因為理解力不足也沒有範例可啟發,因此還是無法弄懂,共好再貼上來求救了!
我問題是:用日期為條件做自動篩選後如何對篩選出來的金額欄做小計?我應該可以用inputbox的方式來下日期條件,因此每次得到的篩選範圍都不同,要如何在巨集中判斷金額小計的範圍,進而將小計的值顯現在F2的儲存格呢?
以下是我所錄的巨集,有問題的是"=SUBTOTAL(9,R[-10]C:R[-1]C)"的範圍界定!
Sub Macro1()
'
' Macro1 巨集表
' tpbunny 在 2002/3/26 錄製的巨集
'
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=1991/1/17", Operator:=xlAnd _
, Criteria2:="<=1991/2/6"
Range("F14").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-10]C:R[-1]C)"
Range("F15").Select
End Sub
贊助商連結
我研讀了各前輩的文章,可是因為理解力不足也沒有範例可啟發,因此還是無法弄懂,共好再貼上來求救了!
我問題是:用日期為條件做自動篩選後如何對篩選出來的金額欄做小計?我應該可以用inputbox的方式來下日期條件,因此每次得到的篩選範圍都不同,要如何在巨集中判斷金額小計的範圍,進而將小計的值顯現在F2的儲存格呢?
以下是我所錄的巨集,有問題的是"=SUBTOTAL(9,R[-10]C:R[-1]C)"的範圍界定!
Sub Macro1()
'
' Macro1 巨集表
' tpbunny 在 2002/3/26 錄製的巨集
'
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=1991/1/17", Operator:=xlAnd _
, Criteria2:="<=1991/2/6"
Range("F14").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-10]C:R[-1]C)"
Range("F15").Select
End Sub
贊助商連結