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

冬夜春晓 · 发表于 2022-2-7 13:54

好

冬夜春晓 · 发表于 2022-2-7 13:54

好的

songyunkai · 发表于 2022-2-9 16:35

给力

yulong1213 · 发表于 2022-2-9 22:51

看看大啊

PennyAsh6urn · 发表于 2022-2-16 21:09

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

另存报表不会命名工作簿名称

haibiandie911 · 发表于 2022-2-17 19:18

交作业来了，校长辛苦了。

coldwind86 · 发表于 2022-3-8 16:40

xingyun0303 · 发表于 2022-3-21 21:10

yangjet · 发表于 2022-3-28 13:00

作业

神秘风暴 · 发表于 2022-4-11 08:15

我是来好好学习的。

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