[已解决][求助]条件自动隐藏工作表的方法

dc_empery

向各位大虾请教一个问题，我需要一种工作表中的合计数为0后本工作表就会自动隐藏的方法，比如在我上传的附表中有三个工作表，其中表1和表3的合计数为0，是否可以把这两个表自动隐藏起来呢？麻烦各位大虾帮忙啦！再此先谢谢啦！ AXs08T03.rar (3.52 KB, 下载次数: 1)

2010-11-25 16:13 上传

点击文件名下载附件
[求助]条件自动隐藏工作表的方法

最佳答案

月排行榜 / 总排行榜

FookYou

2010-11-25 17:28

  ye6KYgK2.rar (10.33 KB, 下载次数: 21)

2010-11-25 17:30 上传

点击文件名下载附件

Private Sub Workbook_Open()
  Dim Sh As Worksheet
  Dim Hy, Vy, V$, H$, x%, y%, k%, i%
    For Each Sh In ThisWorkbook.Sheets
      k = k + 1
      With Sh
        If .Cells(.[b65536].End(xlUp).Row, 2) = 0 Then
          H = H & "+" & k
        Else
          V = V & "+" & k
        End If
      End With
    Next
    Hy = Split(H, "+")
    Vy = Split(V, "+")
    x = UBound(Hy)
    y = UBound(Vy)
    If y > 0 Then        '合计项有大于0的表
      For i = 1 To y
        Sheets(Vy(i)).Visible = xlSheetVisible
      Next
      For i = 1 To x
        Sheets(Hy(i)).Visible = xlSheetHidden
      Next
    Else                 '合计项全部为0，保留最后一个表
      Sheets(k).Visible = xlSheetVisible
      For i = 1 To k - 1
        Sheets(i).Visible = xlSheetHidden
      Next
      MsgBox "所有工作表合计项均为0，保留最后一个工作表!", vbOKOnly
    End If
End Sub

[此贴子已经被作者于2010-11-25 17:30:35编辑过]

跳转到最佳答案楼层

ww0000

隐藏后要再显示吗?

FookYou

  ye6KYgK2.rar (10.33 KB, 下载次数: 21)

2010-11-25 17:30 上传

点击文件名下载附件

Private Sub Workbook_Open()
  Dim Sh As Worksheet
  Dim Hy, Vy, V$, H$, x%, y%, k%, i%
    For Each Sh In ThisWorkbook.Sheets
      k = k + 1
      With Sh
        If .Cells(.[b65536].End(xlUp).Row, 2) = 0 Then
          H = H & "+" & k
        Else
          V = V & "+" & k
        End If
      End With
    Next
    Hy = Split(H, "+")
    Vy = Split(V, "+")
    x = UBound(Hy)
    y = UBound(Vy)
    If y > 0 Then        '合计项有大于0的表
      For i = 1 To y
        Sheets(Vy(i)).Visible = xlSheetVisible
      Next
      For i = 1 To x
        Sheets(Hy(i)).Visible = xlSheetHidden
      Next
    Else                 '合计项全部为0，保留最后一个表
      Sheets(k).Visible = xlSheetVisible
      For i = 1 To k - 1
        Sheets(i).Visible = xlSheetHidden
      Next
      MsgBox "所有工作表合计项均为0，保留最后一个工作表!", vbOKOnly
    End If
End Sub

[此贴子已经被作者于2010-11-25 17:30:35编辑过]

dc_empery

非常感谢FookYou的精彩解答！！！真是帮了我一个大忙呀！！！

[em17][em17][em17][em17]

ww0000

ov21VXg1.rar (12.5 KB, 下载次数: 14)

2010-11-25 19:59 上传

点击文件名下载附件
[已解决][求助]条件自动隐藏工作表的方法

shb007sd

学习