VBA80集第10集练习上交专贴（正确答案奖励20金币）

qoo600

1

qoo600

chen_liangs

看看............................

linzhipeng

来看答案

小叶子的背包

生成以后都隐藏了，不知道为什么

linluan1001

good

170766071

打的不错

alicia_florric

学习一下高手的答案

大神之路

来看看大神的写法

大神之路

1. Option Explicit
   
2. 
   
3. Sub 日报表格式生成()
   
4. Dim st As Worksheet, i As Integer
   
5. Worksheets("日报表模板").Visible = True
   
6. For i = 1 To Sheets.Count
   
7.     If Sheets(i).Name = "1日" Then
   
8.         Worksheets("日报表模板").Copy after:=Sheets(Sheets.Count)
   
9.         Set st = ActiveSheet
   
10.         st.Name = (Sheets.Count - 2) & "日"
    
11.         Worksheets("日报表模板").Visible = False
    
12.         Sheets("第1题").Select
    
13.         Exit Sub
    
14.     End If
    
15. Next i
    
16.         Worksheets("日报表模板").Copy after:=Sheets(Sheets.Count)
    
17.         Set st = ActiveSheet
    
18.         st.Name = "1日"
    
19.         Worksheets("日报表模板").Visible = False
    
20.         Sheets("第1题").Select
    
21. End Sub
    
22. Sub 另存报表()
    
23. Dim i As Integer, wb As Workbook
    
24. If Sheets.Count > 2 Then
    
25.     For i = 3 To Sheets.Count Step 1
    
26.         Sheets(i).Copy
    
27.         Set wb = ActiveWorkbook
    
28.         wb.SaveAs ThisWorkbook.Path & "" & ThisWorkbook.Sheets(i).Name
    
29.         wb.Close True
    
30.     Next i
    
31. End If
    
32. End Sub

复制代码