隱藏/取消隱藏基於單元格範圍的隱藏/未隱藏狀態的行

Question

如果隱藏了整個行的範圍，我想取消隱藏單個行。如果該範圍內的單行不被隱藏，我想隱藏該行。這是什麼語法？我目前的代碼如下：

Public Sub MySub() 

Application.ScreenUpdating = False 

With Range("A1:A5") 
.EntireRow.Hidden = False 

For Each cell In Range("A1:A5") 
    Select Case cell.Value 
     Case Is = "-" 
     cell.EntireRow.Hidden = True 
    End Select 
Next cell 

End With 

Application.ScreenUpdating = True 

End Sub 

Answer 1

我想我明白了。這個怎麼樣：

Sub test() 
Dim cel As Range, rng As Range 
Dim hideRow&, numDashes& 

Set rng = Range("A1:A5") 
hideRow = rng.Count + 1 

For Each cel In rng 
    If cel.Value = "-" Then 
     numDashes = numDashes + 1 
     Rows(cel.Row).EntireRow.Hidden = True 
    End If 
Next cel 
If numDashes = rng.Count Then 
    ' If all cells in the range are '-' 
    Rows(hideRow).EntireRow.Hidden = False 
Else 
    Rows(hideRow).EntireRow.Hidden = True 
End If 
End Sub 

我是那種假設你要隱藏/取消隱藏行6，因爲它是一個你的範圍內的最後一行以下的。因此，我創建了一個變量來保存這個。這樣，如果你想改變你的範圍來說A1:A100，你所要做的就是調整rng，它會看起來隱藏/取消隱藏第101行。當然，如果你只需要它是6，那麼只是做hideRow = 6。

編輯：爲了好玩，我試圖減少計數變量numDashes的使用，並試圖檢查所有-的範圍，以便更加簡潔。下面也應該工作，但可能需要一兩個調整：

Sub test2() 
Dim cel As Range, rng As Range 
Dim hideRow& 

Set rng = Range("A1:A5") 
hideRow = rng.Count + 1 
'Check to see if your range is entirely made up of `-` 
If WorksheetFunction.CountIf(rng, "-") = rng.Count Then 
    Rows(hideRow).EntireRow.Hidden = False 
    ' If you want to stop your macro if ALL range values are "-", then uncomment the next line: 
    'Exit Sub 
Else 
    Rows(hideRow).EntireRow.Hidden = True 
End If 

For Each cel In rng 
    If cel.Value = "-" Then 
     Rows(cel.Row).EntireRow.Hidden = True 
    End If 
Next cel 

End Sub 

Answer 2

你可以用一個輔助列中的公式做到這一點。我用這個財務報表來壓縮多列都爲零的行來縮短報表。

=IF(AND(SUM(A7:R7)<1,SUM(A7:R7)>-1),IF(OR(ISNUMBER(LEFT(H7,4)),ISBLANK(H7),ISERR(VALUE(LEFT(H7,4)))),"Show","Hide"),"Show"). 

然後按該列過濾行。