Excel精英培训网

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

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

  [复制链接]
发表于 2021-5-19 10:16 | 显示全部楼层
学习
回复

使用道具 举报

发表于 2021-5-19 10:19 | 显示全部楼层
回复

使用道具 举报

发表于 2021-6-18 17:56 | 显示全部楼层
感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢感谢
回复

使用道具 举报

发表于 2021-6-19 09:40 | 显示全部楼层
liuts 发表于 2011-7-2 17:22
**** 本内容被作者隐藏 ****

1
回复

使用道具 举报

发表于 2021-7-14 14:23 | 显示全部楼层
我想学学
回复

使用道具 举报

发表于 2021-7-31 21:11 | 显示全部楼层
学习
回复

使用道具 举报

发表于 2021-8-6 09:04 | 显示全部楼层
Sub 按钮3_Click()
    Dim sh As Worksheet
     Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
        Set sh = ActiveSheet
         sh.Name = Sheets.Count - 2 & "日报表"
End Sub

一把模板隐藏就会有bug,回复看看其他同学的答案。
回复

使用道具 举报

发表于 2021-8-6 09:08 | 显示全部楼层
junior 发表于 2021-8-6 09:04
Sub 按钮3_Click()
    Dim sh As Worksheet
     Sheets("日报表模板").Copy after:=Sheets(Sheets.Coun ...

Sub 按钮3_Click()
    Dim sh As Worksheet
     Sheets("日报表模板").Visible = True
     Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
        Set sh = ActiveSheet
         sh.Name = Sheets.Count - 2 & "日报表"
     Sheets("日报表模板").Visible = False
End Sub

有点困惑如果少了上面颜色标记的代码,就会出现完全不一样的效果
回复

使用道具 举报

发表于 2021-8-6 10:12 | 显示全部楼层
Sub 题目2()
    Dim x As Integer, st As String, wb As Workbook
        For x = 1 To Sheets.Count
        st = Sheets(x).Name
            If Right(st, 2) = "报表" Then
               If Dir(ThisWorkbook.Path & "\" & st & ".xls") = "" Then
                 Sheets(x).Copy
                 Set wb = ActiveWorkbook
                 wb.SaveAs ThisWorkbook.Path & "\" & st & ".xls"
                 wb.Close True
               End If
           End If
        Next
End Sub
回复

使用道具 举报

发表于 2021-8-6 23:22 | 显示全部楼层
学习了,感谢
回复

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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