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

ykymj · 发表于 2011-7-11 23:08

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

talentmei · 发表于 2011-7-13 13:39

本帖最后由兰色幻想于 2011-7-14 16:41 编辑

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

ruifox · 发表于 2011-7-13 23:05

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

ruifox · 发表于 2011-7-14 12:57

兰校长，烦请判作业啊，我还在等金币啊！

xu27727413 · 发表于 2011-7-14 16:14

我要看一下

时光翩翩 · 发表于 2011-7-14 16:38

请老师批改

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

quasimodo · 发表于 2011-7-15 13:55

怎么提交作业呢？

兰色幻想 · 发表于 2011-7-15 13:57

回复 quasimodo 的帖子

把你的答案传上来就行了

quasimodo · 发表于 2011-7-15 14:01

我要金币

bingbing5 · 发表于 2011-7-16 20:55

Sub 另存报表()
Dim wb As Workbook
Sheets.Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/练习题.xls"

End Sub

Sub 日报表格式生成()

Dim sh As Worksheet
Dim x As Integer

Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)

Set sh = ActiveSheet
sh.Name = Sheets.Count - 2 & "日报表"
Sheets("日报表模板").Visible = False

Exit Sub

End Sub

		自动登录	找回密码
密码			注册

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

评分

点评

评分

评分

评分

评分

评分