プロが教えるわが家の防犯対策術!

エクセルVBA オートフィルタについて教えてください。
オートフィルタの結果の個数を同じブックの別シートに表示させるのはできたのですが、別ブックに、表示させるのが出来ません、、、。ぜひ教えてください!
ちなみに、同じブックの別シートへの方法は
sub四月()
Dim cnt As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet

Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")

sh1.Select
Range("A1").AutoFilter Field:=3, Criteria1:="野菜"
Range("A1").AutoFilter Field:=4, Criteria1:="人参"
Range("A1").AutoFilter Field:=23, Criteria1:=xlFilterAllDates InPeriodApril
cnt = WorksheetFunation.Suatotal(3,Range("w:w")) -1
sh2.Range("B5").Value = cnt
sh1.ShowAllData

End Sub

で出来ました。これを別ブックに表示する方法で教えて頂きたいです。よろしくお願います。

A 回答 (2件)

sh2.Range(”B5”).Value = cnt



の部分を、以下で行けると思います。

Dim bk2 As Workbook
Workbooks.Open(”別ブックの絶対パス”)
Set bk2 = ActiveWorkbook
bk2.Worksheets(”別ブックのシート名”).Range(”B2”).Value = cnt

変数の定義、ブックのオープン処理、代入や、
別ブックのどのシートのどのセルに表示するのかは
適宜、やりやすいようにご自由に変更してください。
    • good
    • 0
この回答へのお礼

ありがとうございます!
しかし、可能でしたら閉じているブックの方でフィルターを、かけ、マクロブックの方に結果を反映させる方法を、教えてください、、、。

お礼日時:2019/06/18 16:24

Excelのバージョンは何でしょうか?


ブックが分かれるとなると、Excelのバージョンによって処理が変わります。
    • good
    • 0
この回答へのお礼

コメントありがとうございます!エクセル2010を、使用しています。

お礼日時:2019/06/18 14:07

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング