栏目分类
你的位置:民丰县名兆聚合物有限公司 > 新闻动态 >在大叫按钮里调用:图片遮掩其他使命表
发布日期:2024-07-03 14:35 点击次数:193
诳骗场景:复返主页面,败露某一个使命表,其余使命表均遮掩,即恒久只败露一个使命表。
以下代码败露约略说是回到称号为“Main“的使命表,不错把它放到一个大叫按钮里:
'代码基本逻辑:当先,咱们把要败露的使命表激活并败知道来,把它的称号存在'一个变量(curSht)中,然后对总共使命表称号进行轮回比对,平乐县延会咖啡有限公司把称号不同于'curSht的总共使命表给它深度遮掩。宝贵:深度遮掩(xlSheetVeryHidden)后, 遂溪县磁大香精有限公司'用鼠标右键弗成取消遮掩。而xlSheetHidden则不错用鼠标右键取消遮掩,详见'代码。Sub BackTo() Dim Sht As Worksheet Dim curSht As String On Error Resume Next Sheets("Main").Activate ActiveSheet.Visible = xlSheetVisible '败露使命表 curSht = ActiveSheet.Name '遍历总共使命表,推广优化遮掩不需要败露的使命表 For Each Sht In Excel.ThisWorkbook.Worksheets If Sht.Name <> curSht Then '建造使命表对象的Visible属性 'Sht.Visible = xlSheetHidden Sht.Visible = xlSheetVeryHidden End If NextEnd Sub
约略放在某一个模块里,在大叫按钮里调用:
图片推广优化
遮掩其他使命表,这个跟上头的有点肖似,不错用在如下场景:除现时使命表外,还有其他使命表处于败露气象,我面前唯一败露现时使命表,其他使命表给我遮掩起来:
Sub xHide() Dim Sht As Worksheet Dim curSht As String curSht = ActiveSheet.Name ActiveSheet.Visible = xlSheetVisible For Each Sht In Excel.ThisWorkbook.Worksheets If Sht.Name <> curSht Then Sht.Visible = xlSheetVeryHidden End If NextEnd Sub
败露总共使命表:
天津宏茂塑胶有限公司图片
See you next time! 本站仅提供存储劳动,总共本色均由用户发布,如发现存害或侵权本色,请点击举报。
相关资讯