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

然然的然然 · 发表于 2017-8-27 11:52

然然的然然发表于 2017-8-26 21:36

[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\454674727\QQ\WinTemp\RichOle\S(VU7}3B[_S026X~)ETRG%E.png[/img]

lierwang · 发表于 2017-8-28 12:07

学习来了

lierwang · 发表于 2017-8-30 20:01

交作业

Sub 日报表格式生成()
Sheets("日报表模板").Visible = True
Dim sh As Worksheet
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
   sh.Name = Sheets.Count - 2 & "日报表"
Sheets("日报表模板").Visible = False
End Sub
Sub 另存报表()
Dim wb As Workbook
Dim x As Integer
  For x = 1 To (Sheets.Count - 2)
Sheets(x & "日报表").Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & x & "日报表.xlsx"
wb.Close True
  Next
End Sub

陈李婷婷 · 发表于 2017-9-12 13:30

duyang · 发表于 2017-9-14 13:28

显示全部楼层 · 发表于 2017-9-14 18:47

提示: 作者被禁止或删除内容自动屏蔽

大C · 发表于 2017-9-17 10:43

谢谢大佬！

JeanHe · 发表于 2017-9-28 13:23

123

JeanHe · 发表于 2017-9-28 13:54

1231223

sherryhuang · 发表于 2017-9-28 16:09

回复看答案

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

tljzf 该用户已被删除	发表于 2017-9-14 18:47 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
tljzf 该用户已被删除
	回复使用道具举报显身卡