第十集第1题

小鹏的天空

开始执行时还正常，执行到“2日报表”时就不行乐，请高手指点，编码错误在哪，谢谢。

gufengaoyue

1. Private Sub 生成日报表_Click()
   
2. On Error Resume Next
   
3. Dim sh As Worksheet, thisMonthDays%, i%
   
4.      thisMonthDays = Day(DateSerial(Year(Now), Month(Now) + 1, 0))
   
5.      For i = 1 To thisMonthDays
   
6.           Set sh = Sheets(i & "日报表")
   
7.           If Err.Number <> 0 Then Exit For
   
8.      Next
   
9.      If i > thisMonthDays Then MsgBox "本月报表已满！": Exit Sub
   
10.      Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
    
11.      ActiveSheet.Name = i & "日报表"
    
12.      Sheets(i & "日报表").Visible = 0
    
13. End Sub

复制代码

小鹏的天空

gufengaoyue 发表于 2015-8-13 15:37

不好意思，老师，我刚接触vba，不是很懂，你那个程序我试着运行了一下，好像没反应。{:1312:}

gufengaoyue

小鹏的天空 发表于 2015-8-13 16:13
不好意思，老师，我刚接触vba，不是很懂，你那个程序我试着运行了一下，好像没反应。

增加了一个sheet，不过隐藏了。你看看隐藏了什么

小鹏的天空

加了个“1日报表”，加在日报表模板后面了，题目要求好像应该是在前面，且按一次按钮，就增加一个