具有相同serial_nr隱藏行，如果過濾，第一片

Question

使用VBA的打包順序表：

我試圖將內容隱藏在具有相同serial_nr爲已被過濾的那些不同的錶行（因此隱藏）在第一張紙上。

因爲不同的工作表上的行不一樣，我嘗試使用serial_nr。但我似乎無法鏈接serial_nr值作爲選擇要隱藏在其他工作表中的行的條件。

最後我把它分解成了我可以沒有錯誤地得到的最簡單的代碼，但它不起作用。

Sub Filter_over_multiple_sheets() 

    Dim Serial_nr As Integer 
    Dim Row_nr As Integer 

    For Row_nr = 3 To 1020 

     If Worksheets("Raaplijst").Cells(Row_nr, 1).EntireRow.Hidden = True Then 
     Worksheets("Boutenlijst Kist B").Cells(Row_nr, 1).EntireRow.Hidden = True  
     End If 
    Next 

End Sub 

我仍然是VBA的新手，所以我迷失在所有可能的方法和組合中。

你們誰可以幫忙嗎？

Answer 1

試試這個代碼，您必須添加「Microsoft腳本運行」引用到您的項目，以利用Dictionary類

Option Explicit 

Sub Filter_over_multiple_sheets() 
    Dim IDsDict As New Dictionary 
    Dim rng As Range 

    With Worksheets("Raaplijst") '<--| consider "mother" worksheet 
     For Each rng In .Range("A3", .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeConstants) '<--| loop through column "A" non empty cells from row 3 down to last non empty one 
      If rng.EntireRow.Hidden Then If Not IDsDict.Exists(CStr(rng.Value)) Then IDsDict.Add CStr(rng.Value), rng.Value '<--| if row is hidden add its ID to dictionary provided it's not been added already 
     Next rng 
    End With 

    If IDsDict.Count > 0 Then '<--| go on if there's been at least one hidden row ID 
     With Worksheets("Boutenlijst Kist B") '<--| consider "child" worksheet 
      With .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)) '<--| loop through column "A" cells fom row 2 (header) down to last non empty one 
       .AutoFilter field:=1, Criteria1:=(IDsDict.Keys), Operator:=xlFilterValues '<--| filter column "A" with IDs corresponding with "mother" worksheet hidden rows 
       If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then '<--| if any cell has been filtered... 
        Set rng = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) '<--| ... store filtered cells in a range variable... 
        .AutoFilter '<--| .. show all rows back... 
        rng.EntireRow.Hidden = True '<--| ... and hide only just stored cells rows 
       Else '<--| otherwise 
        .AutoFilter '<--| .. show all rows back... 
       End If 
      End With 
     End With 
    End If 
End Sub 

Answer 2

據我所知，你有最好的使用方法，它是最簡單的。只是一些事情，你的Serial_nr變量沒有被使用，它可能是最好的解決你的if語句的縮進，它使得閱讀更容易，特別是在長段代碼中，最後使用.Rows代替.Cells

Sub Filter_over_multiple_sheets()
 

Dim Row_nr As Integer 

For Row_nr = 3 To 1020 

    If Worksheets("Sheet1").Rows(Row_nr).EntireRow.Hidden = True Then 
     Worksheets("Sheet2").Rows(Row_nr).EntireRow.Hidden = True 
    End If 
Next 
End Sub