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

lcbnyn

对不起，你没有权限使用 [hide] 代码，请修改。

lzclzch

谢谢版主{:011:}

serenaWu

第十集练习题.rar (12.65 KB, 下载次数: 16)

2011-7-25 16:04 上传

点击文件名下载附件

serenaWu

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

czx1981

1. Sub 日报表格式生成()
   
2. Dim sh As Worksheet
   
3. Worksheets("日报表模板").Visible = True
   
4.       Worksheets("日报表模板").Copy after:=Worksheets(Worksheets.Count)
   
5.        Set sh = ActiveSheet
   
6.           sh.Name = Worksheets.Count - 2 & "日报表"
   
7.          Worksheets("日报表模板").Visible = False
   
8.          Worksheets("第1题").Select
   
9. 
   
10. End Sub

复制代码

1. Sub 另存报表()
   
2. Dim i As Byte, wb As Workbook, w
   
3. For i = 3 To Worksheets.Count
   
4. Worksheets(i).Copy
   
5. Set wb = ActiveWorkbook
   
6. w = Worksheets(1).Name
   
7. wb.SaveAs ThisWorkbook.Path & "/" & w & ".xls"
   
8. wb.Close True
   
9. Next
   
10. End Sub

复制代码

循序渐进

学习最佳代码

wsc771

考虑得真周到啊！LIKE用得很妙！

蝶，雨

学习学习{:011:}{:011:}

雨后彩霞

第十集练习题1111.rar (12.59 KB, 下载次数: 8)

2011-7-28 23:00 上传

点击文件名下载附件 回复可见在哪儿呀？

ywjs123

校长辛苦了。