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/20241201/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-11-28 18:23职业培训
2025-01-06 16:53职业培训
2024-12-14 12:33职业培训
2024-12-14 09:35职业培训
2025-01-05 03:30职业培训
2024-11-29 09:07职业培训
2025-01-05 00:31职业培训
2024-11-29 04:20职业培训
2025-01-03 05:59职业培训
2024-11-25 20:01职业培训
扫码二维码
获取最新动态