当前位置：网站首页 > 热门文章 > 正文

VBA如何隔行设置不同的颜色，这个小技巧一定要学会

bigegpt 2024-12-25 10:24 37 浏览

制表过程当中，经常遇到不同行设置不同的颜色，以区分行与行，同时也有利于对表格的辨识与操作。

本节将介绍一下，如何用VBA代码实现隔行颜色的设置。

下图为设置不同颜色的效果，颜色可以自由定义，为了鲜艳，特别用了红黄两色。

可以看上顶部有一上下拉框，这里可以选择起始行，也就是从第几行开始变色。

选择后单击按钮就自动生成了。

操作很简单。

下面重点看一下代码实现过程。

按钮代码：

Private Sub CommandButton1_Click()
Dim c1 As Long, c2 As Long, i As Long
i = Me.ComboBox1.Value
If i < 1 Then Exit Sub
setSheet
c1 = 11232'定义颜色1
c2 = 823514'定义颜色2
Dim R As Range, cell As Range
Set R = Range("A" & i).Resize(20, 10)'定义颜色区间
For Each cell In R
    If cell.Row Mod 2 = 0 Then'如果是偶数行
        ActiveSheet.Rows(cell.Row).Interior.Color = c1'为行赋值颜色
    Else
        ActiveSheet.Rows(cell.Row).Interior.Color = c2
    End If
Next cell
End Sub

过程也不复杂，就是对行号进行判断，如果是偶数行就设置一种颜色，奇数行就设置另一种颜色。

运用了一个计算函数MOD,这个函数是取余函数，可以计算出两个数之除是否有余数，我们对行号进行除2，如果除尽没有余数就是偶数行，否则就是奇数行。

虽然很简单，但是一定要学过基本的数学，至少知道什么奇数和偶数，不然就没办法。

严格意义上是十进制的计算方法，计算机只懂得二进制，所有计算都将转换为二进制之后，才会运算，实际上计算机很笨，但是这么笨的东西比人计算的快。

本节重点还是要对代码进行理解，然后就容易学会了。

喜欢的朋友可以收藏、关注。

---END---

r语言dim函数

上一篇：MsgBox提示框函数详细讲解，VBA编程应用
下一篇：ExcelVBA函数:向当前工作表插入可放大选中单元格字体的代码

VBA如何隔行设置不同的颜色，这个小技巧一定要学会

相关推荐

idea本地配置连接远程hadoop集群的一些网络问题解决汇总

Ceph运维手册(基于P版本)

无缓存不行?例行升级的入门级阿斯加特AN2 SSD装机点评

大数据开发前要做什么准备?8台Hadoop服务器进行集群规划前配置

Tensorflow分类loss函数总结 tensorflow绘制loss曲线

R语言学习笔记(七) -离散型数据的模型预测2

iOS Runtime详解

7 个对 Java 意义重大的性能指标，你知道几个?

PHP 远程调试最佳实践

Laravel框架使用图片处理简单教程