Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 兰色幻想

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

  [复制链接]
发表于 2019-10-27 19:01 | 显示全部楼层
1,求答案求答案
回复

使用道具 举报

发表于 2019-10-27 22:52 | 显示全部楼层
本帖最后由 exyantou 于 2019-10-27 22:59 编辑

复制代码
回复

使用道具 举报

发表于 2019-11-7 08:26 | 显示全部楼层
回复

使用道具 举报

发表于 2019-11-9 23:31 | 显示全部楼层
Sub 日报表格式生成()
Sheets("日报表模板").Visible = True
Dim sh As Worksheet
Sheet4.Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = Sheets.Count - 2 & "日报表"
Sheets("日报表模板").Visible = False
Sheet1.Select
End Sub

Sub 另存报表()
Dim i As Integer, wb As Workbook
For i = 3 To Sheets.Count
Sheets(i).Copy
Set wb = ActiveWorkbook
wb.SaveAs Filename:=ThisWorkbook.Path & "/" & Sheets(1).Name & ".xlsx"
wb.Close True
Next i
End Sub
回复

使用道具 举报

发表于 2019-11-13 21:39 | 显示全部楼层
你第一个表格弄 处来啦啊
回复

使用道具 举报

发表于 2019-11-13 21:45 | 显示全部楼层
兰老板威武啊,一下子感觉就开始让我入门VBA了,真是太给力啦
回复

使用道具 举报

发表于 2019-11-20 19:37 | 显示全部楼层
see see
回复

使用道具 举报

发表于 2019-11-22 22:41 | 显示全部楼层
学习学习
回复

使用道具 举报

发表于 2019-11-25 11:23 | 显示全部楼层
回复回复
回复

使用道具 举报

发表于 2019-12-8 15:21 | 显示全部楼层
不太会,来看看大家的回复
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 00:24 , Processed in 0.490136 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表