全民一起VBA实战篇第七课：实战篇小结

最新推荐文章于 2023-11-23 23:16:52 发布
最新推荐文章于 2023-11-23 23:16:52 发布
阅读量689 收藏 1
点赞数
分类专栏： 锦到说VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_43568982/article/details/104537370
版权

实战篇一共学习了六个专题

在第一个专题里学习了表格格式操作与Excel功能调用

包括

  • 文件打印的方法以及设置打印细节
  • 定时器的应用
  • 跨range的处理
  • 操作窗体、图表等Shape对象

在第二个专题里学习了文本的查找定位和替换

包括

  • Find方法的使用
  • Findnext的使用
  • 定位最后一行的技巧
各种情况 Usedrange或SpecialCells End属性 Find方法 倒序循环
最大行号 正确 可能错误 正确 正确
空白表格 出错 出错 正确 正确
带格式的单元格 出错 正确 正确 正确
已删除的单元格 可能出错 正确 正确 正确
隐藏单元格 正确 出错 正确 正确
筛选掉的单元格 正确 出错 出错 正确
代码复杂度 简单 简单 简单 复杂
最低0.47元/天 解锁文章
高开低走。
关注
专栏目录
重学 VBA - 基础与实战篇(含正则表达式)
←か淡定☆ ヾ 的博客
06-12 545
目录1. 单元格对象与方法1.1 End 方法1.2 SpecialCells 方法 1. 单元格对象与方法 1.1 End 方法 【应用】：查找最后一行 标准写法（不是63336 ，也不是1048576）： Cells( Rows.Count, 1).End ( xlUp ) Cells( Columns.Count, 1).End ( xlToLeft ) 这样，不管是Excel 2003 版本（最大65536行）还是Excel 2007 及以后版本（最大1048576行），都不会报错。
全民一起VBA实战篇第五课：外部文件处理技巧
qq_43568982的博客
02-06 1065
题目一 用窗口选择/打开文件 Sub get方法() Dim fname fname = Application.GetOpenFilename() '获取选择的文件名 If fname <> False Then '判断是否有选中，如果点了取消，则退出程序 '否则运行文件 MsgBox fname ...
全民一起VBA实战篇第一课：表格格式操作与Excel功能调用
qq_43568982的博客
02-08 1097
文件打印 Sub 批量打印() Dim fn As String, wb As Workbook, ws As Worksheet fn = Dir("E:\EXCEL\*.xlsx") Do While fn <> "" Set wb = Workbooks.Open("E:\EXCEL\" & fn) ...
全民一起VBA实战篇第三课：文本内容的实用技巧
qq_43568982的博客
02-01 528
题目要求： 要求大家编写程序自动在F列中标记出每一个交易记录是该客户的第几次交易。比如第3行的“赵六”是第一次出现，所以F3为 1 ，而第4行的“赵六”是第二次出现，所以F4应为 2 。 方法一： 双重循环 Option Explicit Sub demo() Dim i As Long, j As Long, s As Long Dim r As Object Set...
全民一起VBA实战篇 专题2 第五回 多键排序无非多次循环，独特功能还需独自开发
06-26 363
相关知识点： 多关键字排序原理：现对次要的列排序，再排序优先的倒序（从最次要开始）进行依次排序，就能实现 Worksheets.Sort 工作表排序，自学 例1 足球赛积分表排序，四个排序列 本来的优先级是总积分、获胜次数、净胜球、进球数 实现排序就得倒序进球数、净胜球、获胜次数、总积分按照这个顺序排序，最关键的最后排 Sub demo2() ...
VBA应用实战案例（1）
m0_62872215的博客
11-23 1646
VBA实战具体语法的应用，即VBA打开文件夹、文件和工作簿，VBA使用Vlookup函数及Autofilter方法，VBA中数组的运用，VBA遍历文件夹及次级文件夹所有文件，VBA复制粘贴数据及关闭工作簿。
全民一起VBA基础+提高+实战-视频课程资源网盘链接提取码下载 .txt
最新发布
03-16
很多人都知道，VBA是提高Excel工作效率的不二利器。...没关系，学完“全民一起VBA”系列课程，你就会发现，原来VBA如此易学、如此实用！只要是经常使用Excel的人士，均可通过本课程轻松掌握VBA。 课程大小：13.3G
全民一起VBA实战篇第六课：VBA编程技巧及Word调用
qq_43568982的博客
02-09 1090
Err 对象 使用Err可以提升程序的健壮性，有利于用户使用。 Option Explicit Sub errDemo() Dim i As Long i = 3 On Error GoTo sthwrong '出现问题跳转到sthwrong Do While Cells(i, 2) <> "" ...
VBA实战技巧精粹例子
02-20
因资源有点大，须要的请根据压缩包内的地址到网盘下载，由浅入深，字典，正则，sql等等各种实战应用！
全民一起VBA实战篇 专题1 第二回 可选参数灵活搭配 格式内容一应俱全
06-16 527
相关知识点： Application.FindFormat属性：用于指定后面Find等方法中需要查找的格式,与Range的方法一致 Application.FindFormat.Font.Bold=True Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchC...
43个典型ExcelVBA实例
06-20
43个典型ExcelVBA实例,例1.九九乘法表（Print方法的应用）
《ExcelVBA实战技巧精粹》视频教程_ExcelHome
09-07
本视频教程是Excel home网站出的视频教程，用来学习VBA实战有一定指导意义！
全民一起VBA实战篇第四课：文本内容的处理技巧
qq_43568982的博客
02-04 583
题目一 按照要求设置输出格式 Option Explicit Sub 单位() Dim i, s i = 1222.222223 s = Format(i, "$.###") '#代表一位数字 MsgBox s End Sub Option Explicit Sub 单位() Dim i, s i = 1222.2 ...
全民一起VBA实战篇 专题1 第一回 FIND方法实现快速查找 通配符号提供灵活选择
06-16 2693
相关知识点： Range.Find 方法，在该Range类对象代表的单元格区域中，搜索含有指定内容的单元格。Find只返回第一个找到的结果，例找374这个数字：Range(“B2，G14”).Find(374)，返回Range（”C4”） Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchCase,Ma...
全民一起VBA实战篇 专题4 第七回 递归不怕检索难，万缕千层只等闲
10-13 871
相关知识点： Collection对象： 用于存放任意多个对象，不需要事先指定其长度，常用方法： Add方法：添加一个元素 Clear方法：清空所有元素 Count属性：返回元素的总数 例1 递归遍历子文件夹，将找到的文件夹名字存放在数组里...
VBA实战一---处理考生成绩
Sampson的博客
06-19 769
处理考生成绩问题需要处理的文件未处理的文件图片处理之后文件图片VBA代码 链接: https://www.bilibili.com/video/BV1L4411Q7Ni?p=4. 问题 文件中包含多个表格，数目不确定，每张表格是一个地区的考生成绩，请计算称呼和专业代号，删除成绩表中名字为空的数据,最后将每张表格拆分到一个excel文件中，文件名根据表名命名 需要处理的文件 待更新 未处理的文件图片 处理之后文件图片 VBA代码 Sub demo() Dim i As Integer Dim sht
全民一起VBA实战篇 专题2 第二回 选择法轻松上手，双循环巧妙排序
06-19 763
相关知识点： 选择排序法：在剩余数字中找出一个最大的数字，填入第一个空白方格里，如此反复，直到没有剩余数字。缺点是运行效率太低 其他方法：堆排序，基数排序，快速排序，希尔排序，桶排序，归并排序，二叉树排序 application.ScreenUpdating=False：关闭屏幕刷新提高运行效率，恢复刷新=True Range.Sort: 内置的排序方法 例1按照GDP对国家进行排...
VBA入门之实战
你不要担心
08-16 4807
这篇文章是对上一篇的VBA入门的实战总结，有助于之后自己对入门知识的运用。传送连接：VBA入门 一、创建工作簿 Public Sub WorkBookAdd() Dim Wb As Workbook, sht As Worksheet '定义一个Workbook对象变量和一个Worksheet对象变量 Set Wb = Workbooks.Add '创建一个工作簿并赋值给...
全民K歌实战：React Native开发与集成经验分享
在《React Native在全民K歌的开发实践》一文中，作者庄子健（阿子）作为腾讯的资深开发者，分享了K歌Web团队在将React Native引入全民K歌项目中的经验与挑战。文章主要分为以下几个部分： 1. **自我介绍**：庄子健...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值