隐藏行的问题

wj824877675

如果B2是否，则隐藏A10行，如果B3是是，则A列不隐藏；如果B2-B7都否，则隐藏A10—A15行。意思就是哪一个是否，就对应隐藏哪一行。

hsw212

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim arr
   
3. Dim i%, rowNum%
   
4. arr = Sheet1.Range("a2:b7")
   
5. For i = 1 To UBound(arr)
   
6.     If arr(i, 2) = "否" Then
   
7.         rowNum = WorksheetFunction.Match(arr(i, 1), Range("a10:a15"), 0) + 9
   
8.         Rows(rowNum).EntireRow.Hidden = True
   
9.     End If
   
10.     If arr(i, 2) = "是" Then
    
11.         rowNum = WorksheetFunction.Match(arr(i, 1), Range("a10:a15"), 0) + 9
    
12.         Rows(rowNum).EntireRow.Hidden = False
    
13.     End If
    
14. Next
    
15. End Sub

复制代码