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

huajiangning · 发表于 2017-7-12 20:53

kankankankana

新人初学VBA， · 发表于 2017-7-14 09:19

学习

bigbang458 · 发表于 2017-7-15 11:35

谢谢斑竹看下答案

dejun031 · 发表于 2017-7-16 13:45

来看看

HEDAYONG · 发表于 2017-7-17 18:52

我来抄答案来了

zh00zhq00q · 发表于 2017-7-20 14:14

谢谢

zyingqiao · 发表于 2017-7-22 18:27

看看，学习一下

Sieben · 发表于 2017-7-22 19:05

编了好久就是有一些没写出来

ID19920103 · 发表于 2017-7-22 22:32

XUEIX YIXIA

sunnybest099 · 发表于 2017-7-25 11:32

Sub 日报表格式生成()
Dim sf As Worksheet, x As Integer
Set sf = Sheets("日报表模板")
sf.Copy after:=Sheets(Sheets.Count)
Set sf = sf
100:
For x = 0 To Sheets.Count
x = x + 1
sf.Name = x & "日报表模板"
Sheets(x & "日报表模板").Visible = True
Next x
GoTo 100
End Sub

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