Sub未隐藏工作表数量统计()DimnAsString
DimxAsString
DimyAsString
n=Worksheets.Count
x=0
Fori=1Ton
IfWorksheets(i).Visible=TrueThen
x=x+1
EndIf
Next
y=MsgBox("当前工作簿中有"&x&"个未隐藏的工作表",vbOKOnly,"未隐藏工作表数量")
EndSub
本文地址: http://www.goggeous.com/i/1/204994
文章来源:天狐定制
版权声明:除非特别标注,否则均为本站原创文章,转载时请以链接形式注明文章出处。
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2025-01-08职业培训
2024-12-01 00:06:57职业培训
2024-12-01 00:06:57职业培训
2024-12-01 00:06:56职业培训
2024-12-01 00:06:55职业培训
2024-12-01 00:06:55职业培训
2024-12-01 00:06:53职业培训
2024-12-01 00:06:52职业培训
2024-12-01 00:06:44职业培训
2024-12-01 00:06:44职业培训
2024-12-01 00:06:43职业培训
2024-12-17 19:01职业培训
2025-01-06 07:19职业培训
2024-11-26 05:25职业培训
2024-12-08 00:26职业培训
2024-12-17 05:43职业培训
2024-12-23 15:09职业培训
2025-01-01 19:48职业培训
2024-11-25 19:03职业培训
2024-12-22 07:12职业培训
2024-11-27 09:57职业培训
扫码二维码
获取最新动态