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/g/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-30 19:49职业培训
2025-01-08 05:39职业培训
2024-12-15 12:09职业培训
2024-12-15 17:39职业培训
2024-11-26 02:18职业培训
2024-12-21 23:48职业培训
2025-01-06 23:24职业培训
2025-01-07 09:34职业培训
2025-01-07 09:59职业培训
2025-01-06 07:37职业培训
扫码二维码
获取最新动态