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/b/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-27 14:03职业培训
2025-01-05 13:29职业培训
2024-12-08 19:58职业培训
2025-01-07 15:44职业培训
2025-01-02 15:26职业培训
2024-12-07 02:17职业培训
2025-01-06 17:50职业培训
2025-01-02 23:04职业培训
2024-12-13 19:47职业培训
2024-12-21 23:03职业培训
扫码二维码
获取最新动态