
Excel基本操作VBA代码2-填充与边框
我们来看看填充与边框相关操作的VBA代码,当然,我们只要重点的常用的操作代码,其他低概率应用操作,自己有空再去了解吧。
一、填充
首先是单元格的填充操作。
下面的代码是由“将目标区域以黄色填充”这一简单的操作而自动生成的系统代码:
上面这段代码的效果如下:
当我们将那些跑龙套的(我们不常用或者极少用到的)代码去掉以后,要达到上面图片的效果,真正需要的代码只需要一行:
Selection.interior.color = 65535
至于填充的其他属性,如:Pattern图案、PatternColorIndex图案颜色指数、TintAndShade色彩阴影、PatternTintAndShade图案色彩阴影,这些不常用的属性,喜欢的自己录制宏了解下就好。
二、边框
接着下来,我们来看看关于边框(borders)的基本操作都有哪些代码。
我们预期的效果如下图:
为了达到这效果进行的操作的系统VBA代码如下:
是不是觉得很夸张?想一下,添加边框竟然需要那么多行代码,烦不烦那?别抱怨了,系统这叫严谨。要简洁的?那还是让我们把上面操作的主角找出来吧。
其实,上面这对代码所带来的效果,基本上等同于下面这句代码所起的作用:
Selection.borders.linestyle = xlContinuous
或者
Selection.borders.linestyle = 1
或许你会疑惑了,既然一句能搞定的事情,那上面哪些龙套究竟是干嘛的呢?
那先让我们认识下边框家族的兄弟们吧。
边框 borders
这个负责总体边框的设置,就是目标区域里面单元格的所有边框都属于它。
左边框线 borders(xlEdgeLeft) 选择区域的最左边框
右边框线 borders(xlEdgeRight) 选择区域的最右边框
顶部边框线 borders(xlEdgeTop) 选择区域的顶部边框
底部边框线 borders(xlEdgeBottom) 选择区域的底部边框
内部垂直线 borders(xlInsideVertical) 选择区域的内部垂直线
内部水平线 borders(xlInsideHorizontal) 选择区域的内部水平线
向下对角线borders(xlDiagonalDown) 选择区域每个单元格的向下对角线
向上对角线borders(xlDiagonalUp) 选择区域每个单元格的向上对角线
一般来说,我们录制的设置边框的代码,每次都会同时对上面8个对象进行设置的。而我们在实际 的操作和应用中,则大可不必如此麻烦。最常用的是borders,其它的则按照实际情况需要进行选用就可以了。数据分析培训
对象找到了,那么接着下来就是针对这些边框进行属性设置了。
对于一般的操作来说,边框的属性里面,重要的、常用的基本上有三个:线形 linestyle、颜色 color 和 粗细 weight。
1、边框线形
线形一般地有8种:
xlContinuous 或 1
Selection.borders.linestyle = 1
xlDash 或 -4115
Selection.borders.linestyle = xlDash
xlDashDot 或 4
Selection.borders.linestyle = 4
xlDashDotDot 或 5
Selection.borders.linestyle = xlDashDotDot
xlDot 或 -4118
Selection.borders.linestyle = -4118
xlDouble 或 -4119 或 9
Selection.borders.linestyle = -4119
xlSlantDashDot 或 13
Selection.borders.linestyle = 13
xlNone 或 -4142 或 0 (无边框)
Selection.borders.linestyle = -4142
另外,单元格对角线的设置与效果这里也顺带展示一下。
向下对角线borders(xlDiagonalDown)
selection.borders(xlDiagonalDown).linestyle = 9
向上对角线borders(xlDiagonalUp)
selection.borders(xlDiagonalUp).linestyle = 9
2、边框颜色
边框颜色的设置操作代码,相对简单。颜色的主角是:color
selection.borders.color=RGB(0,255,0)
或者
selection.borders.color = 255
3、边框线粗细
边框线的粗细变化由 borders 的 weight属性来控制,一般常用的粗细情形有四种(基于同一线形的粗细):
xlHairLine 或 1
selection.borders.weight = 1
xlThin 或 2
selection.borders.weight = 2
xlMedium 或 -4138 或 3
selection.borders.weight = 3
xlThick 或 4
selection.borders.weight = 4
三、神一般的总结
1、填充搞定代码
Selection.interior.color = 65535
2、边框搞定代码
Selection.Borders.LineStyle = 1 '线形
Selection.Borders.Color = 255 '颜色
Selection.Borders.Weight = 3 '粗细
数据分析咨询请扫描二维码
若不方便扫码,搜微信号:CDAshujufenxi
在数据成为新时代“石油”的今天,几乎每个职场人都在焦虑: “为什么别人能用数据驱动决策、升职加薪,而我面对Excel表格却无从 ...
2025-10-18数据清洗是 “数据价值挖掘的前置关卡”—— 其核心目标是 “去除噪声、修正错误、规范格式”,但前提是不破坏数据的真实业务含 ...
2025-10-17在数据汇总分析中,透视表凭借灵活的字段重组能力成为核心工具,但原始透视表仅能呈现数值结果,缺乏对数据背景、异常原因或业务 ...
2025-10-17在企业管理中,“凭经验定策略” 的传统模式正逐渐失效 —— 金融机构靠 “研究员主观判断” 选股可能错失收益,电商靠 “运营拍 ...
2025-10-17在数据库日常操作中,INSERT INTO SELECT是实现 “批量数据迁移” 的核心 SQL 语句 —— 它能直接将一个表(或查询结果集)的数 ...
2025-10-16在机器学习建模中,“参数” 是决定模型效果的关键变量 —— 无论是线性回归的系数、随机森林的树深度,还是神经网络的权重,这 ...
2025-10-16在数字化浪潮中,“数据” 已从 “辅助决策的工具” 升级为 “驱动业务的核心资产”—— 电商平台靠用户行为数据优化推荐算法, ...
2025-10-16在大模型从实验室走向生产环境的过程中,“稳定性” 是决定其能否实用的关键 —— 一个在单轮测试中表现优异的模型,若在高并发 ...
2025-10-15在机器学习入门领域,“鸢尾花数据集(Iris Dataset)” 是理解 “特征值” 与 “目标值” 的最佳案例 —— 它结构清晰、维度适 ...
2025-10-15在数据驱动的业务场景中,零散的指标(如 “GMV”“复购率”)就像 “散落的零件”,无法支撑系统性决策;而科学的指标体系,则 ...
2025-10-15在神经网络模型设计中,“隐藏层层数” 是决定模型能力与效率的核心参数之一 —— 层数过少,模型可能 “欠拟合”(无法捕捉数据 ...
2025-10-14在数字化浪潮中,数据分析师已成为企业 “从数据中挖掘价值” 的核心角色 —— 他们既要能从海量数据中提取有效信息,又要能将分 ...
2025-10-14在企业数据驱动的实践中,“指标混乱” 是最常见的痛点:运营部门说 “复购率 15%”,产品部门说 “复购率 8%”,实则是两者对 ...
2025-10-14在手游行业,“次日留存率” 是衡量一款游戏生死的 “第一道关卡”—— 它不仅反映了玩家对游戏的初始接受度,更直接决定了后续 ...
2025-10-13分库分表,为何而生? 在信息技术发展的早期阶段,数据量相对较小,业务逻辑也较为简单,单库单表的数据库架构就能够满足大多数 ...
2025-10-13在企业数字化转型过程中,“数据孤岛” 是普遍面临的痛点:用户数据散落在 APP 日志、注册系统、客服记录中,订单数据分散在交易 ...
2025-10-13在数字化时代,用户的每一次行为 —— 从电商平台的 “浏览→加购→购买”,到视频 APP 的 “打开→搜索→观看→收藏”,再到银 ...
2025-10-11在机器学习建模流程中,“特征重要性分析” 是连接 “数据” 与 “业务” 的关键桥梁 —— 它不仅能帮我们筛选冗余特征、提升模 ...
2025-10-11在企业的数据体系中,未经分类的数据如同 “杂乱无章的仓库”—— 用户行为日志、订单记录、商品信息混杂存储,CDA(Certified D ...
2025-10-11在 SQL Server 数据库操作中,“数据类型转换” 是高频需求 —— 无论是将字符串格式的日期转为datetime用于筛选,还是将数值转 ...
2025-10-10