excel VBA自动化 - 固定格式报表的自动处理
目录
目录
一、录制宏的基础操作
1 新建sheet
2 打开、保存和查看方式
3 关闭屏幕刷新
4 使用相对引用
5 设置粘贴为数值的快捷键
二、实行for 循环
三、练习案例
练习1 - FOR 循环
练习2 - vlookup自动化
一、录制宏的基础操作
1 新建sheet
运行数据录制时，需要新建专用的sheet并重命名，使系统下次运行时可识别正确。
2 打开、保存和查看方式
打开方式：
① 开发工具 - 录制宏
② 右键sheet - 查看代码
③ 可在excel打开宏之后，按F1-查看帮助，打开microsoft运行宏的说明网址：运行宏-说明
保存方式：带有VBA代码的文件，都将文件另保存为 .xlsm 的格式
查看代码：开发工具 - visual basic → 模块
3 关闭屏幕刷新
- 在代码首行下面 输入 excel.Applicantion.ScreenUpdating = FALSE
- 在最下面的end sub前输入 excel.Applicantion.ScreenUpdating = TRUE
即可关闭显示刷新的运行过程,不会再有屏幕刷新的效果
4 使用相对引用
① 绝对引用 ： 无论选中哪个单元格，宏都只会执行录制时所操作的单元格 （录制时选择）
② 相对引用 ：选中某个单元格后，执行宏时，会以被选中的单元格位置作为基准。
5 设置粘贴为数值的快捷键
① 操作流程
- 开发工具 - 宏 -输入名称 选择性粘贴数值或文本
- 打开代码，输入以下代码
Sub pub_选择性粘贴数值或文本()' 数值及数字格式' 快捷键: Ctrl+eOn Error Resume Next Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormatsActiveSheet.PasteSpecial Format:="文本"End Sub- 点击 （选项） - 设置快捷键 Ctrl + e
② 代码含义
- On Error Resume Next
如出现运行时错误，程序会继续运行，不中断
- Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
选择粘贴为数值或文本格式
- ActiveSheet.PasteSpecial Format:="文本"
运行中的工作簿粘贴的格式为：文本
二、实行for 循环
目的是让宏自动执行，相对应的运行次数：
- 以另其自动执行9次为例，在第三行输入 For i = 1 To 9
- 随后在end sub 之前，加入 Next
即可使系统自动执行9次代码
三、练习案例
练习1 - FOR 循环
以下图待待拆分的表格，需将其每行内容拆分，形成8个包含相同表头的独立表。
| 省份 | 客户 | 是否终止合作 |
| 福建 | AAA | 否 |
| 江苏 | BBB | 否 |
| 福建 | ccc | 否 |
| 江苏 | ddd | 否 |
| 新疆 | eee | 否 |
| 陕西 | fff | 否 |
| 北京 | ggg | 否 |
| 广东 | hhh | 否 |
- 点击录制宏 → 选中表头最左上的单元格 - 使用绝对引用 → 在第一行内容下插入两行空白行 → 复制表头，粘贴在原表的第二行上方 → 将刚粘贴的表头的最前单元格选中 → 停止录制
- 点击【开发工具 - 宏】，查看到录制好的宏 → 可点击【执行】查看录制效果，单次运行效果如下图
- 点 编辑 → 打开代码界面 因为要形成8个独立的表，意味着代码要循环运行8次
- 在开头输入 For i = 1 To 8
- 并结尾输入 next
- 最后的运行效果如下图
练习2 - vlookup自动化
- 以日常工作中的vlookup为例，先把报表需要的数据源先整理好 → 放到对应新建的sheet里
- 做好报表的基本格式 → 点击 录制宏
- 像平常一样，该VLOOKUP就VLOOKUP → 点停止录制 → 执行宏
- 可关闭屏幕刷新，在开头加 excel.Applicantion.ScreenUpdating = FALSE
- 最下面的end sub前 excel.Applicantion.ScreenUpdating = TRUE
excel VBA自动化 - 固定格式报表的自动处理相关推荐
- 【Kettle】如何输出固定格式报表
我的工作是为公司分析部门提供数据,其中一部分是固定时间点提取的报表,这些报表的格式固定,每次机械化的修改参数→提取数据→复制粘贴,实在是繁琐.下面介绍一个我工作中使用kettle输出固定格式报表的例子 ...
- Excel批量将固定格式的源数据提取到一个表中
今天我和大家分享的是,Excel批量将固定格式的源数据提取到一个表中,详见下面的动图演示.我们需要将源数据表中以列形式存放的姓名和年龄统一汇总提取到以行形式的数据表中. (方方格子插件.) 1.首先我 ...
- Excel VBA: 自动生成巡检报表并通过邮件定时发送
目录 环境说明 逻辑结构 效果说明及截图 ①. 安装SecureCRT ②. 自动巡检脚本 ③. 数据检索并FTP传送 ④. 安装Excel 2013 ⑤. 安装Serv-U ⑥. 自动生成图表并邮件 ...
- Excel VBA自动化办公：选择Excel文件合并订单数据生成订单汇总表、生成发货单并导出pdf文件、自动统计业绩生成业绩表
基本需求: 让用户可以选择多个文件,根据用户选中的工作簿进行合并订单数据,按照预先设计好的订单模板写入数据. 对于同一个交易序号下面有多个订单的,需要计算该交易序号下所有订单的总金额.总票数.相同交易 ...
- excel VBA自动化 - IF条件语句和FOR循环语句应用
目录 一.变量 1.变量的定义 2.变量的注意点 二.单条件IF语句 1.单条件IF的单次运行 2.结合FOR循环,多次运行IF语句 3. FOR语句的其他应用
- Excel VBA 学习笔记13：单元格的格式
Excel VBA 学习笔记13:单元格的格式 NumberFormat 属性 (Excel) vba excel 单元格格式设置 Excel VBA 单元格格式 python解决SNIMissing ...
- python操作Excel实现自动化报表
Excel作为日常办公最广泛使用的工具之一,学好它可以帮助我们节约时间,提升工作效率,学会灵活高效的使用excel有着十分重要的意义. 本人觉得会使用大部分excel内置公式和以及VBA的就是高手了. ...
- 如何把文本文档转换成html格式,把固定格式的文本文档转换为Excel电子表格的方法...
有时候,需要把一些拥有固定格式的文本文件导入电子表格.微软的Excel 电子表格程序有一个文本文件转换向导,将这种格式转换变得非常快捷方便.本文图文讲解把固定格式的文本文档转换为Excel电子表格的方 ...
- 自动化错误mysql vba,c - 运行时错误-214767259（80004005）自动化错误未指定错误 - Excel VBA - UIAutomation - 堆栈内存溢出...
我对EXcel VBA有一些了解,我是UI Automation的新手. 我正在尝试使用Excel VBA在客户端环境中进行UI自动化. 我参考了UIAutomationCore.dll. 当我尝试单 ...
最新文章
- 进程状态控制-进程的撤销
- (0023)iOS 开发之Mac上MySQL服务的卸载
- python Unicode转ascii码的一种方法
- shell脚本如何实现goto_linux通过shell脚本实现对apache服务的监控
- tcp底层连接过程（c语言）
- 【练习】翻转句子中单词的顺序
- kafka 集群_Kafka集群监控系统Kafka Eagle部署与体验
- timeview未就绪_android input anr分析
- 安装百度库，C调用Python出错，卸载、再重装消失
- Atitit 学习一项技术的方法总结 目录 1. 自己动手实现学习法 1 2. 七步学习法 —— 如何高效学习一项技能 1 3. 如何快速学习一项技能-十步学习法 - HugoLester - 博客
- 关于微信服务号使用百度地图获取定位不准问题
- 【大学物理】第一章：质点运动学
- 在那海的那边，山的那边，有一条蓝鲸鱼----它的名字叫Docker！！
- 【MongoDB】继续在简单操作的边缘试探D2
- autojs微信运动自动点赞
- 明源售楼系统技术解析 MVC架构与房源生成（一）
- 【报错】unknown error: DevToolsActivePort file doesn‘t exis
- 【转】RMAN-06094: datafile 1 must be restored ID 1339439.1
- 转 影像质量评估之锐利度--MTF(SFR)
- 《Adobe Photoshop CC经典教程》—第1课1.4节在Photoshop中还原操作