テーブル内の複数の列をフィルタリングする

debugcn 投稿 Dev

chels2015

私のコードは1つの列をフィルタリングしてから、印刷します。

2つの列に基づいてフィルタリングしてから、印刷する必要があります。つまり、エンジニア名（列1）とルート（列2）に基づくフィルターです。現在、エンジニア名（列1）でフィルタリングします。

Option Explicit
Sub filterandprint()

    Dim TempWks As Worksheet
    Dim wks As Worksheet

    Dim myRng As Range
    Dim myCell As Range
                
    'change to match your worksheet name
    Set wks = Worksheets("Table")
        
    Set TempWks = Worksheets.Add      'creates temporary worksheet

    wks.AutoFilterMode = False 'remove the arrows

    'assumes headers only in row 1, columns(1) will be the number of the column you base your filtering
    'this copies the unique filtering and pastes it on a new temp worksheet
    wks.Columns(1).AdvancedFilter Action:=xlFilterCopy, _
      CopyToRange:=TempWks.Range("A1"), Unique:=True

    With TempWks
        Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
    End With

    'looping
    With wks
        For Each myCell In myRng.Cells
            .UsedRange.AutoFilter Field:=1, Criteria1:=myCell.Value
            '.UsedRange.AutoFilter Field:=2, Criteria1:=myCell.Value
            .PrintOut Preview:=True
        Next myCell
    End With

    Application.DisplayAlerts = False
    TempWks.Delete    'deletes temporary worksheet
    Application.DisplayAlerts = True

End Sub

マルクッチボーイ2

答えを探している他の人のために、上記のループセクションを以下に編集すると、それは機能しました：

   ...

    Dim iLoop As Integer

    'looping
    With wks
        For iLoop = 2 To 65
            .UsedRange.AutoFilter Field:=1, Criteria1:=TempWks.Cells(iLoop, 1).Value
            .UsedRange.AutoFilter Field:=2, Criteria1:=TempWks.Cells(iLoop, 2).Value
            .PrintOut Preview:=True
        Next iLoop
    End With

    Application.DisplayAlerts = False
    TempWks.Delete    'deletes temporary worksheet
    Application.DisplayAlerts = True

End Sub

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]