エクセルVBA系・・ 関数のSUBTOTALの絡みで・・・
いつもいつもいつも皆様には大変お世話になっております。
早速本題ですが
オートフィルターでフィルターをかけた物の 足し算はSUBTOTALですよね。
そこからが問題なのですが、
SUBTOTALででた合計をVBAでコピーして貼り付けをしたいのです。
その貼り付け場所は 別のシートになります。
ちなみに作ってみたのはこんな感じです
Windows("表.xls").Activate
DATA = Range("A1:N1002")
With Range("B4")
.AutoFilter
.AutoFilter Field:=3, Criteria1:="A店"
.AutoFilter Field:=2, Criteria1:=">=" & Z , _
Operator:=xlAnd, Criteria2:="<=" & V
End With
Windows("B表.xls").Activate
Cells(7, 3) = DATA(1002, 8) '1002のところがSUBTOTAL関数が入ってます。
これでコピーをするとB表にでて来る数字が、通常のSUMで全体を出した答えが入ってくるのです;;
SUBTOTALの出た数字がほしいのです・・・;;
こういったことは出来るでしょうか?
宜しくお願い致します。