Excel最近工作报表里用的编程代码
发布时间：2023-06-05 18:07:54
工作报表不能分享大家看，让可以让大家瞧瞧我这简单的代码，O(∩_∩)O哈哈~。具体如下:
Sub 清空销量2() ‘清空后6月导入的数据
res = MsgBox("准备清空销量数据", vbYesNo) ‘对话框的设置
If res = vbNo Then
Range("a3").Select ‘光标定位A2
Else
Range("a3:n25").ClearContents ‘清空该区域
MsgBox "已经清空销量数据"
Range("a3").Select
End If
End Sub
Sub 导入销量新数据2()
Sheets("外部后6月数据").Range("a3:n25").Copy Destination:=Range("a3:n25") ‘进行跨表数据的复制粘贴
MsgBox "成功导入销量数据"
End Sub
Sub 清空销额2() ‘同上
res = MsgBox("准备清空销售额数据", vbYesNo)
If res = vbNo Then
Range("a28").Select
Else
Range("a28:n51").ClearContents
MsgBox "已经清空销售额"
Range("a28").Select
End If
End Sub
Sub 导入销额新数据2()
Sheets("外部后6月数据").Range("a28:n51").Copy Destination:=Range("a28:n51")
MsgBox "成功导入销售额数据"
Range("a28").Select
End Sub
Sub 刷新全部透视表() ‘刷新工作簿的数据
ActiveWorkbook.RefreshAll
MsgBox "已经刷新工作簿中的全部透视表"
End Sub
总结：减少重复的人工操作，减少错误，运用几段简单的代码，效果跨工作表复制粘贴数据，刷新工作簿所有透视表，弹出是否对话框，清空数据。
本篇结束。
0
投稿猜你喜欢
Creators Update 附带了最新的 MBR2GPT 磁盘转换工具，让 Windows 10 可以轻松地从旧版 BIOS 切换到 U- excel 合格率计算方法一：excel 合格率统计，也是频繁使用到的。比如下面所示的excel工作表，不及格人数及合格率怎么算？在C列统计
- 我们在对思维导图进行编辑的时候经常会需要突出某些主题，这个时候我饿么你除了将这些主题的字体进行大小的调整或是加粗，还可以李彤思维导图工具栏中
- 很多的小伙伴在更新了最新的wegame后都发现没有了符文推荐也不会设置，不过不用担心，下面就为你们带来了wegame推荐符文关了开启方法，快
- VueScan Pro for Mac 是一款专业和扫描仪驱动程序，VueScan Pro可以驱动42个品牌共计6000多款扫描仪，甚至制造
- 不少小伙伴基本有听说或者接触过bios，特别是在安装系统或者需要对硬件进行些设置的时候。不过很多人不知道bios是什么，有什么作用。今天小编
- 很多时候，我们在启动win8系统的时候，难免会碰到一些软件应用程序冲突的故障，而出现这样问题主要是因为应用程序和服务会自动启动，并在后台运行
- 在平时的工作中，我们可能会安装很多软件，安装完这些软件之后，它的图标就会出现在桌面上，但是很多用户不喜欢系统自动排列的图标而是想要把桌面图标
- Win10 S怎么升级到win10专业版？Win10 S就是经简单的win10系统，但是想要将Win10 S升级到win10专业版，该怎么升
- 电脑windows update 提示80070002 错误该怎么办？windows 打补丁时有时会遇到 80070002错误，导致系统补丁
- iMessage 聊天虽然大家对 iMessage 没有微信那样使用的习惯，但 iMessage 有很多小玩法，除了支持第三方表情包，还有类
- 在电脑版WPS word文档中，我们经常会根据自己的实际需要插入一些表格，这样不仅可以丰富文档内容，还能更加专业化地编辑数据。插入表格后，我
- 1.打开需要插入生僻疑难字的文档 2.点击工具栏的“插入”然后点击“符号”→“其它符号”
- 所谓Win10快速更新模式，指的就是能够更快地获得更新版本的提示，从而比其他人更早地开始更新。那么Win10系统怎么切换到快速更新模式呢？设
- Win10电脑任务栏不显示任务怎么办？最近有用户反映这个问题，在使用电脑的时候发现任务栏不显示任务了，这是怎么回事呢？应该怎么解决呢？针对这
- 如何在WPS中绘制精美实用的报价单?WPS是一款办公软件套装，用WPS表格制作报价单，大家知道具体的操作步骤吗?下面就是在WPS中绘制精美实
- 一些用户反映，在在Windows10预览版更新至Build 9860版本后，一些界面和应用程序会出现文字缺失和显示不完整的问题。这个问题该怎
- Win7系统电脑中Ctrl键没有反应怎么解决？用户有时候使用电脑的时候，突然发现Ctrl键没有任何反应，Ctrl键就像是卡住了一样，这是什么
- Excel公式： 获取非连续单元格区域中只出现一次的数字本次的练习是：如下图1所示，有一组非连续的单元格区域，由任意数量的单列区域组成，每个
- 为了更好的了解Windows系统对此问题的收集与处理，就会弹出一个错误报告的对话框，下面为大家介绍下既无需禁用Windows错误报告，也不用
