设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Exeel 视频区 › Excel 视频教程 › VBA80集第10集练习上交专贴（正确答案奖励20金币）

数据透视表40+个常用小技巧，让你一次学会！

1 ... 191 192 193 194195196 197 198 ... 210 / 210 页下一页

发新帖

楼主: 兰色幻想

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

发表于 2020-1-7 11:27 | 显示全部楼层

感谢

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2020-1-9 09:28 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

抄答案

回复

使用道具举报

发表于 2020-1-16 08:47 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

回复可见

回复

使用道具举报

发表于 2020-1-22 02:48 | 显示全部楼层

来学习的，看看答案，我自己写的有些问题

回复

使用道具举报

呆呆鱼的天空

发表于 2020-1-30 22:39 | 显示全部楼层

来学习

回复

使用道具举报

发表于 2020-1-30 23:13 | 显示全部楼层

求答案

回复

使用道具举报

发表于 2020-2-4 11:17 | 显示全部楼层

很厉害，学习学习

回复

使用道具举报

发表于 2020-2-4 15:18 | 显示全部楼层

Sub 日报表格式生成()
Dim ws0 As Worksheet
Set ws0 = Sheets("日报表模板")
Dim ws1 As Worksheet
ws0.Visible = True
ws0.Copy after:=Sheets(Sheets.Count)
Set ws1 = Sheets(Sheets.Count)
ws0.Visible = False
Dim x As Integer
x = Sheets.Count - 2
ws1.Name = x & "日报表"
End Sub
Sub 另存报表()
Dim wb As Workbook
Dim x As Integer
x = Sheets.Count - 2
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & x & "日报表.xls"
End Sub

复制代码

回复

使用道具举报

积跬步至千里

发表于 2020-2-5 12:15 | 显示全部楼层

学习

回复

使用道具举报

积跬步至千里

发表于 2020-2-5 12:17 | 显示全部楼层

膜拜

回复

使用道具举报

1 ... 191 192 193 194195196 197 198 ... 210 / 210 页下一页

发新帖

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

GMT+8, 2024-4-29 13:23 , Processed in 0.581447 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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