使用VBA进行颜色填充满足条件的行

 时间:2024-10-12 02:01:32

1、打开Excel表格,按下【Alt+F11】组合快捷键打开VBA编辑器,也可以点击菜单栏上面的【开发工具】,【Visual Basic】打开VBA编辑器。

使用VBA进行颜色填充满足条件的行

2、点击VBA编辑器菜单栏上面的【插入】、【模块】,也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。

使用VBA进行颜色填充满足条件的行

3、在VBA编辑器代码框里面输入以下代码:Sub ColoreInput()Dim i争犸禀淫& '定义i为长整型Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表For i = 2 To 1000 '从第2行到1000行If mysheet1.Cells(i, 5) > 165 Then '如果条件满足则执行mysheet1.Range(mysheet1.Cells(i, 1), mysheet1.Cells(i, 8)). _Interior.Color = RGB(255, 0, 0) '填充的颜色为红色End IfNextEnd Sub

使用VBA进行颜色填充满足条件的行

4、代码程序释义:程序里面的下划线(_)主要是上面一行与下面一行程序的连接,在一行程序里面如果太长,使用下划线(_)来连接、换行。对于填充的颜色RGB,可以在Excel表格上面的【开镫炜茛玳始】、【填充颜色】、【其他颜色】,在”颜色“对话框的【自定义】里面就可以找到,改变数值就可以看到新增的颜色。

使用VBA进行颜色填充满足条件的行

5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序,条件满足的行将会自动填充所设置的颜色。

使用VBA进行颜色填充满足条件的行

6、VBA自动填充满足条件的行的颜色完成。

使用VBA进行颜色填充满足条件的行
  • 怎样使用VBA工作表激活事件的运用?
  • 在VBA中,如何编写单元格偏移代码?
  • 怎么查看excel文档用SUM函数求和的vba宏代码
  • VBA代码给单元格赋值
  • vba的if判断语句的使用教程
  • 热门搜索
    中国梦我的梦手抄报内容 文明交通手抄报图片 我爱读书手抄报大全 初中安全手抄报 弟子规手抄报图片 绿色上网手抄报 生活中的小数手抄报 防火手抄报图片大全 清明手抄报图片大全 数学家的故事手抄报