如何用VBA代码才能显示第13个工作表以后的所有工作表标签

lsc900707

zh2783458 发表于 2018-6-24 15:47
谢谢你，请问当我要显示的工作表名称不是表一至表六，而是第13个工作表以后的所有工作表标签，那要怎样修 ...

1. Sub gj23w98()
   
2.     ActiveWindow.DisplayWorkbookTabs = True
   
3.     For i=13 to  Sheets.count
   
4.         sheets(i).Visible = 1
   
5.     Next
   
6. End Sub

复制代码

zh2783458

谢谢以上老师的热心帮助，可能是我没有表达清楚，导致没有达到我想要的结果。谢谢各位老师了！

wss0002

11楼也不是吗

lsc900707

zh2783458 发表于 2018-6-24 16:29
谢谢以上老师的热心帮助，可能是我没有表达清楚，导致没有达到我想要的结果。谢谢各位老师了！

1. Sub gj23w98()
   
2.     ActiveWindow.DisplayWorkbookTabs = True
   
3.     For i = 14 To Sheets.Count
   
4.         Sheets(i).Visible = 1
   
5.     Next
   
6. End Sub

复制代码

zhuoxun

lsc900707 发表于 2018-6-24 23:48

请问老师，如果隐藏了工作表标签，如何按你这个VBA代码执行？请老师赐教，谢谢。

lsc900707

zhuoxun 发表于 2018-12-28 20:16
请问老师，如果隐藏了工作表标签，如何按你这个VBA代码执行？请老师赐教，谢谢。

上面说的就是显示隐藏了的标签呀。

zhuoxun

谢谢老师。