[英]Hide rows based on cell value on another sheet (including loop)
我正在嘗試根據“輸入”表中的單元格值隱藏/取消隱藏“輸出”表中的行。 這本身並不是最困難的部分,但我遇到了循環問題,因為我需要根據 300 個單元格值單獨隱藏 300 行。
例如,如果“輸入”表中的單元格 B6 包含“否”,我想隱藏“輸出”表中的第 12 行。 然后,如果“輸入”表中的單元格 B7 包含“否”,我想隱藏“輸出”表中的第 13 行......一直到第 306 行和 B300 行。
到目前為止,我已經編寫了以下代碼,但它似乎沒有工作。 很感謝任何形式的幫助!
Sub HideRow()
Dim i As Integer, j As Integer
For i = Sheets("Input").Range("B6") To Sheets("Input").Range("B300")
For j = Sheets("Output").Rows("12") To Sheets("Output").Rows("306")
If Sheets("Input").Range("i").Value = "No" Then
Sheets("Output").Rows("j").EntireRow.Hidden = True
Else
Sheets("Output").Rows("j").EntireRow.Hidden = False
Next j
Next i
End Sub
您需要指定可能找到“否”值的列。
例如:
Sub HideRows()
Dim i As Long
For i = 6 To 300
Sheets("Output").Rows(i + 6).EntireRow.Hidden = _
(Sheets("Input").Cells(i, "A").Value = "No") 'for example using ColA
Next i
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.