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

mansiontiger · 发表于 2017-11-7 23:14

学习

mansiontiger · 发表于 2017-11-7 23:23

学习

officemaster · 发表于 2017-11-9 14:28

学习学习

Leipeng0320. · 发表于 2017-11-9 21:34

本帖最后由 Leipeng0320. 于 2017-11-9 21:37 编辑

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

hjqqq1995 · 发表于 2017-11-10 11:49

hjqqq1995 · 发表于 2017-11-10 11:50

正宗新手 · 发表于 2017-11-19 18:33

找找答案过来

jane2017 · 发表于 2017-11-19 22:32

来学习了

rjy2631279 · 发表于 2017-11-30 23:09

Sub 生成日报表()
Dim sht As Worksheet, i As Integer
i = Worksheets.Count - 1
Worksheets("工作表模板").Visible = True
Worksheets("工作表模板").Copy after:=Worksheets(Worksheets.Count)
Set sht = ActiveSheet
sht.Name = i & "日报表"
Worksheets("工作表模板").Visible = False
End Sub

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