分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,第NO.124-NO.126则,内容是:高亮显示活动单元格区域、高亮显示指定区域内的行列、如何引用工作表等内容。
VBA过程代码124:高亮显示活动单元格区域
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Target.Interior.ColorIndex = 36
End Sub
代码的解析说明:上述代码实现了设置工作表当前选定区域单元格的内部填充颜色,以高亮显示选定区域。这里设置的是淡黄色。Cells.Interior.ColorIndex = xlColorIndexNone
将工作表中所有的单元格的内部填充颜色设置为xlColorIndexNone,即取消单元格的内部填充颜色。
VBA过程代码125:高亮显示指定区域内的行列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlNone
Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
rng.Interior.ColorIndex = 36
End Sub
代码的解析说明:设置工作表当前选定区域单元格内部填充颜色,高亮显示活动单元格所在的行和列。代码Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
使用Union方法将所选单元格所在的行、列连接起来成为一个区域。
VBA过程代码126:如何引用工作表
Sub mynz()
Worksheets("16").Activate
Sheets("16").Activate
End Sub
代码的解析说明:工作表名称是指显示在工作表标签中的文本,工作表名称可以使用WorkSheets集合和Sheets集合两种引用方式。
越简单的事物往往越容易理解,简单的过程组合起来就是一个复杂的过程,我们要先认真掌握这些简单的过程,才能在可以为我们复杂的工程服务。
下面是我根据自己20多年的VBA实际利用经验,编写的四部教程,这些是较大块的“积木”,可以独立的完成某些或者某类系统的过程,欢迎有需要的朋友联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。这些教程供有志于提高自己能力的朋友选择。
第一套:《VBA代码解决方案》PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备的资料。
第二套:《VBA数据库解决方案》PDF教程。数据库是数据处理的利器,对于中级人员应该掌握这个内容了。
第三套:《VBA数组与字典解决方案》PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备资料。
第四套:《VBA代码解决方案》视频教程。目前正在录制,现在推出“每天20分钟,半年精进VBA”活动,越早参与,回馈越多。现在第一册48讲内容已经录制完成。录制到第二册79讲的课程,第二级阶段的优惠期开始。