excel中使用vba突出显示符合条件的数据的方法
工具/原料
excel2013
更多经验请关注,如果帮到了你,请在上方给个投票谢谢支持。好人一生平安。
先顶后看年薪百万,如果帮到了你,帮忙给个好评,这对小编很重要,万分感谢。
方法/步骤
1、首先我们打开一个工作样表作为例子,例子中我们进行筛选的是大于1400这个数值的数据。
2、按alt+f11进入vba编辑器,并在工程窗口中创建一个新的模块。
3、在模块中我们键入以下代码,接下来我来详细解释代码的作用。Sub显示大于1400的数值()DimiAsIntegerFori=6To13IfSheets(1).Cells(i,4).Value>1400ThenSheets(1).Cells(i,4).SelectSelection.Font.FontStyle="倾斜"Selection.Font.ColorIndex=3EndIfNextEndSub
4、首先是定义模块名称,这里为了记忆方便,我们选择了中文名称。然后定义一个变量为双字节变量,可以提高vba的处理速度。不过这里可以提醒一点,因为计算机性能的发展,这里定义变量的内存范围已经补是很重要了。
5、接下来我们定义的是工作薄1也就是sheet1中数据所存在的单元格范围,使用for函数循环赋值行,并确定列值为4.然后使用cells函数将数据返回进原工作薄。这一段使用if函数对语句进行判断,取值大于1400的值则进行select,并将其倾斜并填充为红色字体。
6、最后我们可以在表格中实际运用一下,可以看到D列对应范围内大于1400的值变成了红色并倾斜。大家可以以此方法修改,扩充整个表格的数据判断。