我们使用的Excel应用程序,默认情况下,打开任何Excel文件后,无论输入任何数据,单元格底纹颜色都是无色的。如果我们在里面有大量的行和列,查看某一行或某一列的数据会很不方便。
用过其他管理软件系统的朋友应该对数据录入或者查看界面中的表格数据区间设置印象深刻,这对于用户直观的看到某一行或者某一列的数据非常有帮助。由于行与行或列是以不同的颜***间显示的,所以对比非常明显,查看数据不会因为行数或列数错误而导致目标单元格中的数据错误。
虽然Excel默认没有这个功能,但是我们可以通过设置或者编码来实现。所以在这里,作者展示了如何用VBA代码设置Excel工作表中所用单元格区域的底纹间隔颜色,这样我们就可以像其他管理软件系统一样简单的区分工作表中的数据。
准备工作如下:
在新创建的名为“示例数据”的Excel文件内填充一些数据,用于测试,如下截图示:在新创建的名为“Sample Data”的Excel文件中填入一些数据进行测试,如下截图所示:
事实上,在数据量很小的情况下,编码后的执行过程极短。为了有一个中间过渡,作者要求在设置颜色间隔后弹出一个提示对话框:
最终结果如下:
完整的示例代码截图如下:
以下是完整的示例代码:
设置子间隔颜色()
将rngs显示为Excel。范围
Dim rowCount为整数,columnCount为整数
Dim i为整数,j为整数
Set rngs = ActiveSheet。使用范围
行数= rngs。行数。计数
columnCount = rngs。列数
对于i = 1到rowCount
如果我Mod 2 & lt& gt那么0
对于j = 1到columnCount
rngs。Cells(i,j).Interior.Color = RGB(255,0,0)
下一个j
其他
对于j = 1到columnCount
rngs。Cells(i,j).Interior.Color = RGB(0,255,0)
下一个j
如果…就会结束
接下来我
设置rngs =无
MsgBox & # 8220颜色间隔设置完成!”
本文来自秦楚殇投稿,不代表舒华文档立场,如若转载,请注明出处:https://www.chinashuhua.cn/24/545348.html