Excel精英培训网

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

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

  [复制链接]
发表于 2021-3-23 13:46 | 显示全部楼层
吧   
回复

使用道具 举报

发表于 2021-4-4 17:42 | 显示全部楼层
回复

使用道具 举报

发表于 2021-4-4 17:57 | 显示全部楼层
回复

使用道具 举报

发表于 2021-4-12 22:37 | 显示全部楼层
学习一下



回复

使用道具 举报

发表于 2021-4-12 22:41 | 显示全部楼层
学习
回复

使用道具 举报

发表于 2021-4-16 17:59 | 显示全部楼层
一听全会,一做全废
还是来瞄一眼答案
回复

使用道具 举报

发表于 2021-4-21 17:20 | 显示全部楼层
想看答案!
回复

使用道具 举报

发表于 2021-4-27 16:21 | 显示全部楼层
工作表命名卡住了,怎么做的?
回复

使用道具 举报

发表于 2021-4-27 23:06 | 显示全部楼层
努力学习中
回复

使用道具 举报

发表于 2021-5-13 10:17 | 显示全部楼层
本帖最后由 ANGELINA0518 于 2021-5-13 10:19 编辑

Option Explicit
Sub 日报表()
Dim x As Integer
Dim sh As Worksheet
Sheets("日报表模板").Visible = True
x = Sheets.Count
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = x - 1 & "日报表"
sh.Select
Sheets("日报表模板").Visible = False
End Sub

Sub 另存报表()
Dim y As Integer
Dim wb As Worksheet
For y =1 To Sheets.Count - 1
Sheets(y &"日报表").Copy
Set wb = ActiveSheet
wb.SaveAs ThisWorkbook.Path & "\" & wb.Name & ".xls"
ActiveWorkbook.Close True
Next y
End Sub


回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 17:18 , Processed in 1.668376 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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