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

大戢山 · 发表于 2018-12-17 08:13

学习学习

yb2037120 · 发表于 2018-12-18 09:45

谢谢老师

麦来高 · 发表于 2018-12-19 16:38

我也是来看正确答案的

hycc8787 · 发表于 2018-12-24 23:35

66666

hycc8787 · 发表于 2018-12-25 23:32

1111

dc26310896 · 发表于 2018-12-26 22:27

学习交流

2227890579 · 发表于 2018-12-27 10:05

特意过来学习的

eiou · 发表于 2019-1-1 20:34

非常感谢学习一下

forlovery · 发表于 2019-1-1 22:24

新人学习

胱 · 发表于 2019-1-2 10:50

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

Sub 另存为工作簿()
Dim wb As Workbook
Sheets.Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/第十讲练习.xls"
wb.Close True
End Sub

请兰校长检阅

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