[已解决]用VBA设置工作表隐藏

adan_bai

设置了隐藏为什么没有实现呢？请老师们指点一下

练习题.zip (28.95 KB, 下载次数: 12)

2012-12-31 20:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-31 20:58

1. Sub 日报表格式生成()
   
2.     Dim x As Integer
   
3.     Dim sh As Worksheet
   
4.     Sheets("日报表模板").Visible = True
   
5.     For x = 1 To Sheets.Count
   
6.         If Sheets(Sheets.Count).Name = x & "日报表" Then
   
7.             Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
   
8.             Set sh = ActiveSheet
   
9.             sh.Name = x + 1 & "日报表"
   
10.             Sheets("日报表模板").Visible = False
    
11.             Exit Sub
    
12.         End If
    
13.     Next x
    
14.     Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
    
15.     Set sh = ActiveSheet
    
16.     sh.Name = "1日报表"
    
17.     Sheets("日报表模板").Visible = False
    
18. 
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1.             Exit Sub

复制代码

提前退出了。

hwc2ycy

1. Sub 日报表格式生成()
   
2.     Dim x As Integer
   
3.     Dim sh As Worksheet
   
4.     Sheets("日报表模板").Visible = True
   
5.     For x = 1 To Sheets.Count
   
6.         If Sheets(Sheets.Count).Name = x & "日报表" Then
   
7.             Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
   
8.             Set sh = ActiveSheet
   
9.             sh.Name = x + 1 & "日报表"
   
10.             Sheets("日报表模板").Visible = False
    
11.             Exit Sub
    
12.         End If
    
13.     Next x
    
14.     Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
    
15.     Set sh = ActiveSheet
    
16.     sh.Name = "1日报表"
    
17.     Sheets("日报表模板").Visible = False
    
18. 
    
19. End Sub
    

复制代码