作业帮 > 综合 > 作业

想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 00:53:37
想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.
想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.
如果你是输入就完成判断
用单元格事件完成,代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Myr
Myr = Target.Row
If Target.Column = 1 And Target.Value > 1 Then Rows(Myr).Interior.ColorIndex = 3
If Target.Column = 14 And Target.Value > 1 Then Rows(Myr).Interior.ColorIndex = xlNone
End Sub
如果你是很多行数据一次判断完成
运行以下宏完成
Sub test()
Dim i&, x&
i = Range("A65536").End(xlUp).Row
For x = 1 To i
If Cells(x, 1) > 1 Then Rows(x).Interior.ColorIndex = 3
If Cells(x, 14) > 1 Then Rows(x).Interior.ColorIndex = xlNone
Next x
End Su