nnsea 发表于 2019-10-22 08:50:33

隐藏vba


Sub 隐藏()

For x = 1 To Sheets.Count

If Sheets(x).Name <> "总表" Then

   Sheets(x).Visible = 0

End If

Next x

End Sub
页: [1]
查看完整版本: 隐藏vba