Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2759|回复: 10

[已解决]求一段代码,请各位老师帮帮忙,谢谢!

[复制链接]
发表于 2010-4-9 10:44 | 显示全部楼层 |阅读模式
请各位老师帮帮忙写一段代码VBA代码,要求将工作簿内的C、D、E、F等多个工作表深度隐藏,谢谢!
最佳答案
2010-4-11 22:07

Sub yc() '隐藏
    Dim arr, i%, j%

    arr = [{"C","D","E","F"}]
    For i = 1 To Worksheets.Count
        For j = 1 To UBound(arr)
            If arr(j) = Sheets(i).Name Then
                Sheets(i).Visible = 0
            End If
        Next j
    Next i
End Sub

Sub byc() '不隐藏
    Dim arr, i%, j%

    arr = [{"C","D","E","F"}]
    For i = 1 To Worksheets.Count
        For j = 1 To UBound(arr)
            If arr(j) = Sheets(i).Name Then
                Sheets(i).Visible = -1
            End If
        Next j
    Next i
End Sub
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-4-9 10:48 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2010-4-9 10:52 | 显示全部楼层

需要隐藏的工作表,只要在VBA 添加上相应的工作表名即可实现隐藏。
[此贴子已经被作者于2010-4-9 15:46:35编辑过]
回复

使用道具 举报

发表于 2010-4-9 11:03 | 显示全部楼层


Sub 按钮1_Click()
    Dim arr
    Dim i%
    Dim str$, s$

    arr = [{"C","D","E"}]
    str = Join(arr, ",")

    For i = 1 To Worksheets.Count
        s = "*" & Sheets(i).Name & "*"
        If str Like s Then Sheets(i).Visible = xlSheetVeryHidden
    Next i
End Sub
回复

使用道具 举报

发表于 2010-4-9 11:05 | 显示全部楼层

"...只要在VBAH 添加上相应的工作表名..."

这是什么意思呀

[em09]
回复

使用道具 举报

发表于 2010-4-9 11:18 | 显示全部楼层

QUOTE:
以下是引用爱疯在2010-4-9 11:03:00的发言:

Sub 按钮1_Click()
    Dim arr
    Dim i%
    Dim str$, s$

    arr = [{"C","D","E"}]
    str = Join(arr, ",")

    For i = 1 To Worksheets.Count
        s = "*" & Sheets(i).Name & "*"
        If str Like s Then Sheets(i).Visible = xlSheetVeryHidden
    Next i
End
  Sub

[em17] 学习一下,这也用上数组啦
回复

使用道具 举报

 楼主| 发表于 2010-4-9 15:46 | 显示全部楼层

可以写成自动运行的VBA代码吗?

回复

使用道具 举报

发表于 2010-4-9 16:00 | 显示全部楼层

请楼主详细说明要求。
回复

使用道具 举报

发表于 2010-4-9 16:39 | 显示全部楼层

Dim i% 是什么意思啊

回复

使用道具 举报

 楼主| 发表于 2010-4-11 21:50 | 显示全部楼层

要取消隐藏呢,该怎样改动VBA?

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 19:18 , Processed in 0.365919 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表