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

阿豪

好好看下，，

w2001pf

我也想看啊。但金币不够，能不能公布题目啊？

w2001pf

学习了，基本上看个大概的。

yewei113

没有看呢还，不过都下载了

bb75308973

1. 好好学习,天天向上,我来交作业了!希望后面的教程每次都来那么一两个教程
   
2. [hide] Sub 日报表格式生成()
   
3.     Dim bb As Worksheet
   
4.     Dim mb As Worksheet
   
5.     Set mb = Sheets("日报表模板")
   
6.     Application.ScreenUpdating = False
   
7.     mb.Visible = xlSheetVisible
   
8.     mb.Copy after:=Sheets(Sheets.Count)
   
9.     Set bb = ActiveSheet
   
10.     If Sheets.Count < 34 Then '防止出现32日的报表
    
11.         bb.Name = Sheets.Count - 2 & "日报表"
    
12.     Else
    
13.         Application.DisplayAlerts = False '一旦出现32日以上的报表则悄悄地删除
    
14.         bb.Delete
    
15.         Application.DisplayAlerts = True
    
16.     End If
    
17.         mb.Visible = xlSheetHidden
    
18.         Sheets("第1题").Select
    
19.     Application.ScreenUpdating = True
    
20. End Sub
    
21. Sub 另存报表()
    
22.     Dim sh As Worksheet
    
23.     Dim sb As Workbook
    
24.     Dim x As Integer
    
25.     Application.ScreenUpdating = False
    
26.     For x = 3 To Sheets.Count
    
27.         Set sh = Sheets(x)
    
28.         sh.Copy
    
29.         ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & sh.Name & ".xlsx"
    
30.         ActiveWorkbook.Close False '保存后记得关闭,不然任务栏一大堆的窗口,机器不好哈哈可能 会挂掉!
    
31.         ThisWorkbook.Activate
    
32.     Next
    
33.     Application.ScreenUpdating = True
    
34. End Sub [/hide]

复制代码

學海無涯

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

bobbygorton

学习一下。。。

bingbing5

兰校长快批作业啦！等币币！

sclxc

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