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

匿名 *发表于 2019-6-21 23:21* · 发表于 2019-6-21 23:21

看看答案

匿名 *发表于 2019-6-21 23:25* · 发表于 2019-6-21 23:25

kangkang答案

匿名 *发表于 2019-6-21 23:27* · 发表于 2019-6-21 23:27

看看答案啊

匿名 *发表于 2019-6-21 23:27* · 发表于 2019-6-21 23:27

liuts 发表于 2011-7-2 17:22
**** 本内容被作者隐藏 ****

看看答案，谢谢

190978117 · 发表于 2019-6-24 23:10

Sub 日报表格式生成()
Dim whs As Worksheet
Dim x As Integer
Worksheets("日报表模板").Visible = 1
Worksheets("日报表模板").Copy after:=Worksheets(Worksheets.Count)
Set whs = ActiveSheet
x = Worksheets.Count - 2

whs.Name = x & "日报"
Worksheets("日报表模板").Visible = 0
ThisWorkbook.Save

End Sub
Sub 另存报表()
Dim wk As Workbook
Set wk = ActiveWorkbook
wk.SaveAs ThisWorkbook.Path & "/日报表.xls"
wk.Close (True)

End Sub

Alexandra1988 · 发表于 2019-7-2 16:14

Sub fuzhi()
Sheets("日报表模板").Visible = True
Dim sht As Worksheet, nCount%
nCount = Sheets.Count
Sheets("日报表模板").Copy after:=Sheets(nCount)
ActiveSheet.Name = "日报表" & nCount + 1
Sheets("日报表模板").Visible = False
End Sub

匿名 *发表于 2019-7-3 22:52* · 发表于 2019-7-3 22:52

哒哒哒哒哒哒多多多多多多多多多多多多多多多多多多

匿名 *发表于 2019-7-3 22:59* · 发表于 2019-7-3 22:59

哒哒哒哒哒哒多多多多多多多多多多多多多多多多多多

匿名 *发表于 2019-7-3 23:01* · 发表于 2019-7-3 23:01

哒哒哒哒哒哒多多多多多多多多多多多多多多多多多多多

匿名 *发表于 2019-7-3 23:02* · 发表于 2019-7-3 23:02

发防守打法撒奥奥奥奥奥奥奥奥第三方

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