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

卡路里的春天 · 发表于 2019-3-22 13:36

看看

阿利 · 发表于 2019-3-23 08:48

看看人家的作业

匿名 *发表于 2019-3-24 14:33* · 发表于 2019-3-24 14:33

Sub 日报表格式生成()
Dim sh As Worksheet, X As Integer
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
X = Sheets.Count
sh.Name = (X - 2) & "日报表"
Sheets("日报表模板").Visible = False

End Sub

mayw2019 · 发表于 2019-3-25 13:53

看下答案

匿名 *发表于 2019-3-25 17:49* · 发表于 2019-3-25 17:49

匿名 *发表于 2019-3-25 17:50* · 发表于 2019-3-25 17:50

Paul1837 · 发表于 2019-3-26 12:04

学习一下

mayw2019 · 发表于 2019-3-27 08:58

学习

zhouzhou9950 · 发表于 2019-3-29 09:42

file:///C:\Users\zjl\AppData\Roaming\feiq\RichOle\1418162680.bmp

yukang56 · 发表于 2019-4-7 19:38

互相学习下~~~~~

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