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

yiyi1221 · 发表于 2020-5-27 10:42

来学习了

b5361204 · 发表于 2020-5-29 15:57

。。。。。。

斑马线 · 发表于 2020-6-8 20:22

lzdno4 · 发表于 2020-6-9 16:19

学习了

jxlyw · 发表于 2020-6-11 16:16

看看学习下

ppmoon · 发表于 2020-6-16 15:05

看看，谢谢了

wz7510 · 发表于 2020-6-18 23:59

学习学习！

wendigo · 发表于 2020-6-20 10:03

大佬

Nice-20200629 · 发表于 2020-6-29 17:19

本帖最后由 Nice-20200629 于 2020-6-29 17:21 编辑

Sub 显示报表()
Sheets("日报表模板").Visible = True
End Sub

Sub 另存报表()
Dim sh As Worksheet
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = "1日报表"
End Sub

Sub 隐藏日报表()
Sheets("日报表模板").Visible = False
End Sub

请帮我看下哪里错了哇

Nice-20200629 · 发表于 2020-6-29 17:20

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