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

optimus

kk

VBA01

HAHA

optimus

1. Sub 日报表格式生成()
   
2. Dim n As Integer, m As Integer, i As Integer
   
3. m = 1
   
4. n = Sheets.Count
   
5. Dim sh As Worksheet
   
6. 
   
7. Sheets("日报表模板").Visible = True
   
8. 
   
9. 100:
   
10.     For m = 1 To 30
    
11.         If SameName(m) = True Then
    
12.         
    
13.         GoTo 101
    
14.         Else: GoTo 200
    
15.         End If
    
16. 101:    Next m
    
17. 
    
18. 
    
19.         
    
20. 200:      Sheets("日报表模板").Copy before:=Sheets("日报表模板")
    
21.                
    
22.                 Set sh = ActiveSheet
    
23.                 sh.Name = ("第" & m & "日报表")
    
24.                 Sheets("日报表模板").Visible = False
    
25.                 Sheets("第1题").Select
    
26.                 Exit Sub
    
27.    
    
28. 
    
29. End Sub
    
30. Function SameName(j)
    
31. Dim m As Integer, i As Integer
    
32.     For i = 1 To Sheets.Count
    
33.         If Sheets(i).Name = ("第" & j & "日报表") Then
    
34.             'MsgBox "第" & j & "日报表已存在"
    
35.             SameName = True
    
36.             Exit Function
    
37.         End If
    
38.     Next i
    
39.     SameName = False
    
40. End Function
    
41. 
    
42. Sub 另存报表()
    
43. Dim n As Integer
    
44. Dim na As String
    
45. Dim wsh As Worksheet
    
46. n = 1
    
47. 
    
48. For Each wsh In ThisWorkbook.Worksheets
    
49.     na = Sheets(n).Name
    
50.     If na <> "第1题" And na <> "日报表模板" Then
    
51.                
    
52.                 Sheets(n).Copy
    
53.                 na = ActiveSheet.Name
    
54.                 ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & na & ".xls"
    
55.                 'activeworkbook.
    
56.                 ActiveWorkbook.Close True
    
57.                 n = n + 1
    
58.       
    
59.         Else
    
60.         n = n + 1
    
61.     End If
    
62.     Next wsh
    
63. 200:
    
64. 'MsgBox "没有日报表", vbOKCancel
    
65. End Sub

复制代码

zpf19910917

谢谢，学习下

baoyatoujs

感谢版主！

fleaman

学习

wf562748385

学习

kxparker

习题做了，老觉得自己写的不够简洁高效率。看看别人写的学习学习

wantedangel

• 游客，如果您要查看本帖隐藏内容请回复
  
  

百令9

刚刚进入，备难到了。