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/c/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-14 23:05职业培训
2024-12-07 17:14职业培训
2024-11-30 17:34职业培训
2025-01-01 06:09职业培训
2024-12-15 06:40职业培训
2024-11-27 17:41职业培训
2025-01-05 12:09职业培训
2024-12-07 23:30职业培训
2025-01-03 11:57职业培训
2024-12-12 11:43职业培训
扫码二维码
获取最新动态