wei1019的专栏

本期编程知识：Shape对象基本操作及灵活应用

通过实际案例演示如何实现快速刷屏功能，附带自定义开始/暂停按键

利用VBA生成堆积柱状图(xlColumnStacked)以及对该堆积柱状图进行个性化设置

通过Application.CommandBar自定义右键菜单，快速实现数字转化为带圈数字

本期分享Characters(Start, Length).Font方法的语法详解及使用场景

End属性用法及其使用案例

本期分享编程知识：使用Range对象引用单元格或区域的方法有很多，总结了近20种，都可灵活应用于编程，让代码不再卡壳

本期分享编知识：通过Sheet.HPageBreaks、Sheet.VPageBreaks属性查找任意单元格所在页码，以及利用PageSetup属性对打印页面进行设置

本期分享编知识：利用Application.GetOpenFilename和Application.fileDialog增强用户体验，并通过文件操作函数(Open、Output、Print等）实现将Excel文档转成csv文档

本期分享编知识：利用Shape对象统计工作簿中的图形对象数量

通过 Shapes.AddShape 模拟批注，本质上是用“动态形状”替代原生批注功能。再结合Worksheet_SelectionChange 事件，实现点击单元格显示或隐藏注释功能当然还可以通过Worksheet事件实现更高级的交互，如点击单元格自动切换注释内容、根据单元格内容自动切换注释形状等，通过这一技术，Excel 不再只是“数据表格”，而是能承载丰富交互与视觉表达的“智能画布”如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的。

' 设置工作表和目标单元格Set rng = ActiveCell ' 活动单元格，执行代码前先选中要插入批注的单元格如A2' 检查是否已有批注，如果有则删除End If' 添加批注Set cmt = rng.AddComment("众里寻他千百度，蓦然回首，那人却在灯火阑珊处。") '批注的内容' 获取批注的 Shape 对象' 设置批注背景颜色（RGB格式）shp.Fill.ForeColor.RGB = RGB(255, 240, 200) ' 浅橙色背景。

本期主要分享了Application.OnTime 的用法，它是VBA中实现定时功能的重要方法，通过合理设置参数，能在指定时间或间隔时间运行指定任务或函数使用 Now + TimeValue(time) 来计划固定的时间间隔执行任务，而 TimeValue(time) 可安排某个任务只在具体的时间点运行Application.OnTime 在需要自动化执行任务的场景中应用广泛，如数据处理、报表生成、倒计时等，但使用时需注意最小间隔限制、Excel运行状态和时间精度误差等问题。

经过本期的学习，大家会使用Application.InputBox选择数据区域了吗？多多练习很快就可以熟练掌握了如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。

通过 For i = 2 To lastRow这个循环无法满足最后一个单元格的处理，因为我们的处理逻辑先获取单元格起始位置，再去计算数据，所以在获取最后1个合并单元格结束位置时i就已经超过lastRow需要单独处理最后1个合并单元格，通过循环外增加startRow <= lastRow判断，再将startRow至lastRow之间的数据累加本期编程知识分享了两种方式确定合并单元格的起止位置，选择哪一种方式完全取决于表格中的数据。

第一步：拿到需求Excel文件后，首先将该文档另存为.xlsm格式文件，若有安全警告，选择启用即可（或者直接打开一个.xlsm文件）如何快速开始编程还不用搭建环境，那一定就是它了......在弹出的“宏”对话框中，填写宏名及位置信息宏名：可以根据实现的功能自己指定位置：选择的是所有打开的工作簿，使用范围更广输入好信息后，点击“创建”，会自动跳转到VBA开发界面。第三步：VBA的开发界面如下，会自动生成一个函数框架，该函数是以宏名命名的，然后我们只要在中间红色框位置添加功能代码。

适用于企业颁奖、学校表彰、活动证书批量生成等需要快速制作个性化奖状的场合

在 Excel 中，当工作表较多时，快速定位特定工作表可能会变得困难。本期就教大家如何使用 VBA 宏自动创建一个工作表目录

使用 UserForm 和自定义的颜色选择器，帮你一秒隔行设置底色，一秒去掉底色

今天就分享到这里了，如果你有更好的建议和想法请留言或是关注我的公众号“努力鸭是黑色的”私信，善于思考提问的朋友会学到更多哦如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号，解锁更多的VBA技能。

判断图片所在单元格，除了文中提到的方式，其实还有很多方式，如图片名与作品编号之间的一一对应，需要提前准备好图片和作品编号的对应关系，VBA编码的优势就在这里，比较随性自由，只要有更好的想法就可以通过编写代码实现今天的分享就到这里了，多动手多实践，善于发现身边的自动化需求，你一定会比任何人学的都快如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号，解锁更多的VBA技能。

在VBA中，对Excel工作表进行增加和删除操作是常见的需求，文中实例涉及的是当前活动的Excel文档，如果你的代码需要操作另一个打开的Excel文档，只需要按照如下语句引用该Excel文档即可，其余操作不变Set wb = Workbooks("目标工作簿名.xlsx")Set ws =wb.Sheets("工作表名")按照文中的步骤，你也动手试试吧如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号，解锁更多的VBA技能。

第一个需求就是批量去掉这些绿色三角图标，另外两个需求就是自动计算环比增长及根据环比数据情况增加批注

在表格中生成进度条，进度条需要自适应单元格的宽度，根据不同进度区间变换颜色，并且按照进度数据大小显示其长短

两种实现方法都已经整理出来放在代码实现中了，有兴趣的朋友可以参考比较，最后选择适合自己的方式

工作中经常会遇到表格中存在很多的空行的情况，不利于查看和操作表格，如果又快又准的将这些空行删除呢？

像这类既有合并的单元格，又有没合并的单元格，想在表中增加一列序号，需要怎么做呢？本期就教你用不一样的方法实现它

现在就教你一招，用不一样的方法自动删除数据，全程不需要人工干预，也不需要输入繁琐的Excel公式，只需要点击一个按钮就能完成

一张又细又长表格，如果直接按打印键，就要打印4页，并且打印后除了第一张有表头，其他页是没有的，不方便查看不说，每页还有大面积的留白，特别不美观。本期手把手教你如何通过自动化解决这类问题

根据B列和C列内容判断每个月的最后一天，在最后一天后面插入一行Excel公式，用SUM函数求和，计算G列和H列的合计，G列和H列不能是数值必须是Excel求和公式，其他字段留空。