SEO技术教程学习
重庆网站优化、网站排名服务

excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

原标题:excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

我们使用的Excel应用程序,默认打开任何Excel文件后,不管输入任何数据,单元格的底纹颜色都是无色的,如果我们有大量行数和列数的数据在里面,在看某一个行或某一列的数据时,会显得很不方便。

用过其他管理软件系统的朋友应该对数据录入或者查看界面的表格数据间隔设置印象深刻,非常利于用户直观看到具体某行或者某列的数据,由于行与行 或者 列与列 之间用不同的颜色间隔显示,对比非常明显,查看数据也不会因为看错行数或列数而导致看错目标单元格内的数据。

虽然说Excel默认不情况下没有这个功能,但是我们可以自己通过设置或者编码来实现,那么笔者这里就展示通过VBA代码来设置Excel工作表内已使用单元格区域的底纹间隔颜色,从而可以仿效其他管理软件系统一样对工作表内的数据做简单区分。

准备工作如下:

excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

在新创建的名为“示例数据”的Excel文件内填充一些数据,用于测试,如下截图示:

excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

经过编码后的执行过程,其实执行过程在数据量很少的情况下,时间极短,笔者为了有一个中间过渡,让它颜色间隔设置完成后弹出一个提示对话框:

excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

最终结果如下:

excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

完整的示例代码截图如下所示:

excel底纹怎么设置颜色(添加excel底纹颜色的步骤)

下面是完整的示例代码:

Sub 设置间隔颜色()

Dim rngs As Excel.Range

Dim rowCount As Integer, columnCount As Integer

Dim i As Integer, j As Integer

Set rngs = ActiveSheet.UsedRange

rowCount = rngs.Rows.Count

columnCount = rngs.Columns.Count

For i = 1 To rowCount

If i Mod 20 Then

For j = 1 To columnCount

rngs.Cells(i, j).Interior.Color = RGB(255, 0, 0)

Next j

Else

For j = 1 To columnCount

rngs.Cells(i, j).Interior.Color = RGB(0, 255, 0)

Next j

End If

Next i

Set rngs = Nothing

MsgBox “颜色间隔设置完成!”

本文链接: http://www.xusseo.com/zatan/83201.html

版权声明:本文著作权归原作者徐三seo所有,转载请注明出处,感谢!

重庆SEO培训徐三为您提供最专业的SEO方案

SEO十万个为什么熊掌号专题

友情链接


#