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
在当今这个数据驱动的时代,几乎每一个业务决策都离不开对数据的深入分析。而其中,指标波动归因分析更是至关重要的一环。无论是 ...
2025-02-18当数据开始说谎:那些年我们交过的学费 你有没有经历过这样的场景?熬了三个通宵做的数据分析报告,在会议上被老板一句"这数据靠 ...
2025-02-17数据分析作为一门跨学科领域,融合了统计学、编程、业务理解和可视化技术。无论是初学者还是有一定经验的从业者,系统化的学习路 ...
2025-02-17挖掘用户价值本质是让企业从‘赚今天的钱’升级为‘赚未来的钱’,同时让用户从‘被推销’变为‘被满足’。询问deepseek关于挖 ...
2025-02-17近来deepseek爆火,看看deepseek能否帮我们快速实现数据看板实时更新。 可以看出这对不知道怎么动手的小白来说是相当友好的, ...
2025-02-14一秒精通 Deepseek,不用找教程,不用买资料,更不用报一堆垃圾课程,所有这么去做的,都是舍近求远,因为你忽略了 deepseek 的 ...
2025-02-12自学 Python 的关键在于高效规划 + 实践驱动。以下是一份适合零基础快速入门的自学路径,结合资源推荐和实用技巧: 一、快速入 ...
2025-02-12“我们的利润率上升了,但销售额却没变,这是为什么?” “某个业务的市场份额在下滑,到底是什么原因?” “公司整体业绩 ...
2025-02-08活动介绍 为了助力大家在数据分析领域不断精进技能,我们特别举办本期打卡活动。在这里,你可以充分利用碎片化时间在线学习,让 ...
2025-02-071、闺女,醒醒,媒人把相亲的带来了。 我。。。。。。。 2、前年春节相亲相了40个, 去年春节相亲50个, 祖宗,今年你想相多少个 ...
2025-02-06在数据科学的广阔领域中,统计分析与数据挖掘占据了重要位置。尽管它们常常被视为有关联的领域,但两者在理论基础、目标、方法及 ...
2025-02-05在数据分析的世界里,“对比”是一种简单且有效的方法。这就像两个女孩子穿同一款式的衣服,效果不一样。 很多人都听过“货比三 ...
2025-02-05当我们只有非常少量的已标记数据,同时有大量未标记数据点时,可以使用半监督学习算法来处理。在sklearn中,基于图算法的半监督 ...
2025-02-05考虑一种棘手的情况:训练数据中大部分样本没有标签。此时,我们可以考虑使用半监督学习方法来处理。半监督学习能够利用这些额 ...
2025-02-04一、数学函数 1、取整 =INT(数字) 2、求余数 =MOD(除数,被除数) 3、四舍五入 =ROUND(数字,保留小数位数) 4、取绝对值 =AB ...
2025-02-03作者:CDA持证人 余治国 一般各平台出薪资报告,都会哀嚎遍野。举个例子,去年某招聘平台发布《中国女性职场现状调查报告》, ...
2025-02-02真正的数据分析大神是什么样的呢?有人认为他们能轻松驾驭各种分析工具,能够从海量数据中找到潜在关联,或者一眼识别报告中的数 ...
2025-02-01现今社会,“转行”似乎成无数职场人无法回避的话题。但行业就像座围城:外行人看光鲜,内行人看心酸。数据分析这个行业,近几年 ...
2025-01-31本人基本情况: 学校及专业:厦门大学经济学院应用统计 实习经历:快手数据分析、字节数据分析、百度数据分析 Offer情况:北京 ...
2025-01-3001专家简介 徐杨老师,CDA数据科学研究院教研副总监,主要负责CDA认证项目以及机器学习/人工智能类课程的研发与授课,负责过中 ...
2025-01-29