2

マスター ワークシートから同じワークブック内の複数のワークシートにフィルターを適用しようとしています。

例えば。

ワークブックには 3 つのワークシートがあり、各シートには次のフィールドがあります。

  1. 国

国コード、国名

  1. 販売

CountryCode、SalesAmount

  1. 在庫

CountryCode、InvAmount

国シートを FRA、JPN、USA でフィルタリングすると、Sales シートと Inventory シートが自動的に同じフィルタ基準に従い、FRA、JPN、USA の行のみが表示されると予想されます。

それほど複雑ではないようですが、数日間 AdvancedFilter メソッドを使用して VBA でコーディングしようとしましたが、うまくいきませんでした!

助けてくれて本当にありがとうございます！

4

1 に答える 1

0

あなたはこのようなものが欲しいと思います.私が入れた各ワークシートにフィルタリングしたい範囲を挿入してくださいxx. i, ii and iiiFRA、JPN、および USA の国コードに置き換えます。

これは国名ではなく国コードでフィルタリングしていることに注意してください。これは共通フィールドであるためです。

Option Explicit
Sub Apply_Filter()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    With ws
        .Range("xx").AutoFilter Field:=1, Criteria1:=Array("i", _
        "ii", "iii"), Operator:=xlFilterValues
    End With
Next

End Sub
于 2012-07-09T19:41:52.577 に答える